如何动态装载VB窗体?

Question

假设有一个字符串型的变量,其中存放的是一个窗体的名字,比如,工程中有一个窗体叫:frmShow然后,在一个过程中,有一个变量sName,它的值为"frmShow"sub subx
    dim sName as string
    
    sName = "frmShow"
    ?这里有没有方法可以根据sName来达到frmShow.show vbmodal的效果
end sub根据字符串的值来动态装载窗体,有没有方法?

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim m_sFormName As String
    m_sFormName = "frmShow"
    Forms.Add m_sFormName
    Load Forms(Forms.Count - 1)
    Forms(Forms.Count - 1).Show vbModal
End Sub

Answer 2

dim frm as form
set frm = forms.add("frmShow")
frm.show

Answer 3

用ScriptControl控件的ExecuteStatement方法