想用变量做为窗体的名称打开窗体怎么做呀

Question

Private Sub Command1_Click()
'    Load "Form" + Text1.Text
    Dim f1 As New Form1
    Dim f2 As New Form2
    Dim f3 As New Form3
    Select Case Text1.Text
        Case "1"
            f1.Show
        Case "2"
            f2.Show
        Case "3"
            f3.Show
        Case Else
            MsgBox ("huamian bu cunzai")
    End Select
End Su

Answer 1

我想要的效果是这样的
我有一个对照表，有图号和表号
在程序运行时，我是输入图号，然后找到对应表号，打开名称为表号窗体
rs("BH").show   最好能是这样，
以前在做VFP时有宏替换的概念，在变量前加个“&”，但VB好象没有，不知道有没有类似的功能

Answer 2

你可以尝试去使用Microsoft Script Control 

Answer 3

Forms(窗体名).Show
或者用CallByName(窗体名, Show)

Answer 4

就用1楼的Case语句，可疑避免表号命名不规范、表号对于窗体不存在之类的错误。
将所有表号贴在Excel中，写个公式所有的代码都出来了，比你找其他方法方便多了。