vb由几个属于不同菜单项的子菜单生成一个右键菜单

来源：百度知道 编辑：UC知道 时间：2024/05/31 11:16:22
假若有以下菜单
AAA
....aaa
....bbb
....ccc
BBB
....ddd
....eee
....fff
现想右键时弹出一菜单，其菜单项是AAA中的ccc和BBB中的eee，请问如何实现？

'把下面代码保存为Form1.frm，然后打开文件，运行后在窗体空白处按鼠标右键，即可看到你想看到的效果。
'====Form1.frm====
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 165
ClientTop = 855
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.Label Label1
Caption = "请在窗体内按鼠标右键，会弹出重组后的菜单。"
Height = 375
Left = 120
TabIndex = 0
Top = 120
Width = 4455
End
Begin VB.Menu m1
Caption = "AAA"
Begin VB.Menu m11
Caption = "aaa"
End
Begin VB.Menu m12
Caption = "bbb"