Question

VB6.0问题请教，用变量作为窗体名 ，打开！

怎样达到 点击 菜单按钮 返回 菜单按钮的 name 然后 用show 方法 打开 对应该 按钮名称的窗体（不是新建窗体）
Private Sub 系统设置_Click()
a = ActiveMenu.Name '想返回当前点击菜单的 名称 ，这句怎么写？
a.show ’通过变量 a 打开 窗体 系统设置 ， show 方法 可以用变量吗？
End Sub
VB 菜鸟 初学者，在此先感谢 大师指点！！
Global frms As New Collection ’在模块声明

Private Sub Command1_Click()
Dim i '
For i = 1 To Forms.Count - 1
'查找当前打开的窗体 放到 窗口 菜单及 frms 里
On Error Resume Next
Unload 美好人生.窗口(i)
frms.Remove i
On Error GoTo 0
frms.Add Forms(i).Name, Forms(i).Name
Load 美好人生.窗口(i)
美好人生.窗口(i).Caption = Forms(i).Caption
美好人生.打开的窗口.Visible = True
Next i
end sub

Answer 1

不能，可以通过Select 语句
Select case ActiveMenu.Name
case "Form1
Form1.Show
Case "Form2
Form2.Show
End Select

或者事选把窗体添加进集合中
Dim col As new Collection
private sub Form_Load()
col.add Form1,"Form1"
col.add Form2,"Form2"
end sub
private sub 设置系统()
col.item(ActiveMenu.Name).Show
end sub

追问

可是，有50多个菜单，及窗体

追答

没发现过其它处理方法，

追问

唉，，自学VB有些日子了，如果问题在百度已无法解决，是不是证明我已经入门了？？

追答

我也是这么觉得的，不过一次有偶然性，要多次才能说明你触及的问题有一定深度了。

追问

Private Sub 窗口_Click(Index As Integer) ’点击对应名称的菜单 打开窗体
A = 窗口(Index).Caption
frms.Item(2).Show 照您的方法 提示 要求对象？
frms.Item(A).Show
End Sub

追答

可能关键字不对吧，集合的关键字大小写敏感的。看看我的附件。