怎样通过一个字符串,去构造我工程中已经有的一个窗体?

Question

我在编程过程中,遇到一个问题,我能得到我要构造的窗体的Caption,但怎样才能在
工程中构造我想要的窗体?

Answer 1

这个Caption是我工程中的一个窗体的Caption,现在我能得到这个Caption，请问有办法通过这个Caption把窗体Show出来吗?

Answer 2

form1.caption获取其它窗体的要用api, 好象是:
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Answer 3

是否是通过窗体的Caption找出还没有加载的窗体，显示它

Answer 4

如果没有找到遍历工程中form的方法
你可以将你工程中每个form的name和caption的对应关系列个表放在某个地方,到时去查就可以我看看有没有遍历工程中form的方法

Answer 5

Private myforms As New Collection
Private Sub Command1_Click()
myforms.Item("Form2").Show
End SubPrivate Sub Form_Load()
myforms.Add Form2, "Form2"
End Sub

Answer 6

将你的caption 设置和窗体关连起来
sub ShowForm()
Dim xForm as Form
Select case YourString
       case "One"
            set xForm=New frmOne
            xForm.Show
       case "Two"
            set xForm=New frmTwo
            xForm.Show 
       case 
           .......
End Select
End Sub