如何打开指定的Form?

[normandj]

数据库：
名称 块模名
审计　　form1
评估 form2

前台：
用表格显示数据，当点“审计”时，可以显示 form1表单

有没有实现相似
dim varform as string
varform ="form1"
forms(varform).show
的这种写法

在vb的forms好像只能是已经load的form.
我的数据可能有几十条，如何都把每个form提前load一次好像不实现。

[yangao]

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"), 0, 0, 0
End Function
    
Private Sub Command1_Click()
    ShowForm "Form2"
End Sub

[ejoe313]

楼上强人

[ejoe313]

也可以这样试试：

把这些要显示的窗体设为子窗体，在ShowForm函数中遍历所有子窗体，
当子窗体的名称与传递过来的变量名称相同时，显示该子窗体