VB6.0问题请教，用变量作为窗体名 ，打开！
答案:1 悬赏:70 手机版
解决时间 2021-01-27 18:06
- 提问者网友：回忆在搜索
- 2021-01-27 07:20
VB6.0问题请教，用变量作为窗体名 ，打开！
最佳答案
- 五星知识达人网友：平生事
- 2021-01-27 08:37
不能，可以通过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追答可能关键字不对吧，集合的关键字大小写敏感的。看看我的附件。
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追答可能关键字不对吧，集合的关键字大小写敏感的。看看我的附件。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯