在线等，急，字符串中存储着要运行的form的名称，怎么才能执行它呢？

Question

比如 字符串strTemp中存储着"frmOpen"，现在我想运行frmOpen.show ,frmOpen用字符串变量strTemp替代，应该怎么做呢？

Answer 1

把strTemp定义为窗体组件
dim strTemp as Form

Answer 2

dim a 
for each a in forms
if a.name="frmOpen" then
a.open
end if
next

Answer 3

一楼的办法很不错，一般遇到这种状况还可以直接把他设为object

Answer 4

Private Sub Command1_Click()
    Dim strTemp As String
    strTemp = "form2"
    Dim myform As Form
    Set myform = Forms.Add(strTemp)
    myform.Show
End Sub

Answer 5

'引用自TechnoFantasy(冰儿马甲www.applevb.com) '假设你要显示的窗体是Form2，首先在Form2中加入下面的代码：Public Sub showme()
    Me.Show
End Sub然后在工程中引用Microsoft Script Control ，然后在主窗体中添加commandbutton，在其中加入以下代码：Private Sub Command1_Click()
    Dim x As New ScriptControl
    Dim c As New Class1
    Dim frm As New Form2
    
    x.Language = "VBScript"
    x.AllowUI = True
    x.AddObject "frm", frm
    x.Eval "frm.showme"
End Sub

Answer 6

rainstormmaster(暴风雨 v2.0)方法狂好!!!!

Answer 7

用的最多的是  冰儿马甲的方法,rainstormmaster(暴风雨 v2.0)
的我没有试过.呵呵.

Answer 8

Private Sub Command1_Click()
    Dim strTemp As String
    strTemp = "form2"
    Dim myform As Form
    Set myform = Forms.Add(strTemp)
    myform.Show
End Sub调试通过

Answer 9

'Private Sub Form_Load()
'    Dim frm1 As String
'    frm1 = "Form2"
'    LoadFormByString (frm1)
'End Sub'Loading a Form using a Strin(add form1 form2 to New Project)Sub LoadFormByString(sFormName As String)
    Dim NewForm As Form
    Set NewForm = VB.Forms.Add(sFormName)
    NewForm.Show
End Sub

Answer 10

'Private Sub Form_Load()
'    Dim frm1 As String
'    frm1 = "Form2"
'    LoadFormByString (frm1)
'End Sub'Loading a Form using a Strin(add form1 form2 to New Project)Sub LoadFormByString(sFormName As String)
    Dim NewForm As Form
    Set NewForm = VB.Forms.Add(sFormName)
    NewForm.Show
End Sub