关于编译之后不能运行

Question

Private Declare Function EbExecuteLine Lib "VBA6.DLL" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
    
Private Function ShowForm(ByVal frm As String) As String
    EbExecuteLine StrPtr(frm & ".SHOW vbModal"), 0, 0, 0
End FunctionPrivate Sub XPButton1_Click()
    Dim i As Integer
    Dim BL(0 To 1) As String
    BL(0) = "激光粒度表"
    BL(1) = "化分表"
    
    Dim BH(0 To 1) As String
    BH(0) = "JGLDB"
    BH(1) = "HFB"    For i = 0 To 1
        If Me.caption = BL(i) Then
            If Me.Option1(0).value = True Then
                input_data.caption = BL(i)
                input_data.Label1.caption = BL(i)
                add_listname
                input_data.Show vbModal
            End If
            If Me.Option1(1).value = True Then
'                BH(i).Show vbModal
                ShowForm BH(i)
                
            End If
        End If
    Next i
Unload Me
End Sub提示找不到VBA6.DLL

Answer 1

不用想了，就是只能在 VB-IDE 中调用的。
老老实实用 Select Case 吧。这是 VB 中最误人子弟的行为之一。