请教：如何做到新打开一个窗口后，在菜单“窗口”下自动加一个菜单项，对应新打开的窗口？
请教：
现在想在MDI环境下，通过菜单打开一个MDI子窗口，此窗口打开后，在主菜单的“窗口”菜单下自动加一个新菜单项，当窗口关闭后，从“窗口”菜单中自动删除此项。
就是做一个动态的菜单，菜单下记录已经打开过的MDI子窗口。
谢谢
问题点数：20、回复次数：6Top
1 楼DengXingJie（杰西）回复于 2006-07-04 14:51:42 得分 0
可以實現的
Top
2 楼Athoncj（阿龙）回复于 2006-07-05 00:36:36 得分 0
设计部分：
1.在窗口菜单下建立name="form1"名称的菜单,caption="窗口排列"并设置index为0(重要)，这个是引导用窗口，放些不使用代码也可以
2.代码加载菜单
load form1(1)
Top
3 楼Athoncj（阿龙）回复于 2006-07-05 00:38:30 得分 20
续：
form1(1).caption =新窗口1.caption
form1(1).Visible = True
form1(2).caption =新窗口2.caption
form1(2).Visible = True
.......
Top
4 楼Athoncj（阿龙）回复于 2006-07-05 00:39:20 得分 0
代码加载菜单
load form1(1)
form1(1).caption =新窗口1.caption
form1(1).Visible = True
load form1(2)
form1(2).caption =新窗口2.caption
form1(2).Visible = True
........
Top
5 楼Zygodactyous（Zygodactylous）回复于 2006-07-05 08:53:37 得分 0
load 菜单名 后，这个新菜单与主菜单是并列的啊，不属于某个菜单的子菜单，且如何指定它的click事件呢？？Top
6 楼Athoncj（阿龙）回复于 2006-07-05 19:22:52 得分 0
主菜单的下级建立name="form1"名称的菜单,caption="窗口排列"并设置index为0
load 菜单名(index)有索引啊
Private Sub form1_Click(Index As Integer)
If Index = 1 Then MsgBox "test1"
If Index = 2 Then MsgBox "test2"
If Index = 3 Then MsgBox "test3"
End Sub
Top
