标签:VBA,用户窗体
可以在鼠标处或者你想要的任意位置创建弹出菜单,如下图1所示。...图1
在VBE中,插入一个类模块,并将该模块重命名为“clsPopup”,输入代码:
Option Compare Text
Private m_hMenu As Long
'子菜单的标题部分是显示在父菜单上的选项...Sub RemoveItem(ByVal nID As Long)
RemoveMenu m_hMenu, 0, MF_REMOVE Or MF_BYPOSITION
End Sub
'添加项目到菜单..."
End With
With mnuSub
.AddItem 10, "子菜单1"
.AddItem 11, "子菜单2"
.AddItem 12, "子菜单3"
.AddItem...13, "子菜单4"
.AddItem 14, "子菜单5 (新列)", , , , , True
.AddItem 15, "子菜单6"
.AddItem 16, "子菜单7"