窗体打开

Question

用数据表把所有窗体名存起来,在树形中我双击相应的功能,同时也调用数据表中的窗体名,这时如何打开相应的窗体(我要直接用数据表中的变量名转换成窗体对象打开,不是SELECT CASE来判断再打开相应的窗体)??????

Answer 1

Option ExplicitPrivate Declare Function EbExecuteLine Lib "vba6.dll" ( _
ByVal pStringToExec As Long, _
ByVal Unknownn1 As Long, _
ByVal Unknownn2 As Long, _
ByVal fCheckOnly As Long) As LongPrivate Sub Command1_Click()
Dim a As String
a = "form1.show"
EbExecuteLine StrPtr(a), 0, 0, 0
End Sub