已经贴了三次了，没有答案呀，请大虾帮忙呀

Question

在ＶＢ里我只知道一个窗体的名字比如说Ｆｏｒｍ２　是字符型的，
我要怎么样才能将这个窗体调用出来，比如说Ｓｈｏｗ出来

Answer 1

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 ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
       ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
 
Private Sub Command1_Click()
Dim formname As String
formname = "From2"
ExecuteLine formname & ".show"
End Sub

Answer 2

昨天的帖不是你发的吗？
用select case处理。（参考昨天的贴）

Answer 3

Option ExplicitPrivate Sub Command1_Click()
    Dim f As Form
    Const sFormName As String = "form2"
    
    Set f = Forms.Add(sFormName)
    f.Show
End Sub

Answer 4

leolan(史留香) ∶
你是增加一个窗体吧？