Createmenu‘创建
insertmenuitem’添加项
trackpopupmenu‘弹出
其实你可以用菜单编辑器编写,然后设置菜单隐藏属性为true。
调用时直接用popupmenu函数即可,如:popupmenu MEdit.
祝你成功。
insertmenuitem’添加项
trackpopupmenu‘弹出
其实你可以用菜单编辑器编写,然后设置菜单隐藏属性为true。
调用时直接用popupmenu函数即可,如:popupmenu MEdit.
祝你成功。
调试欢乐多
本示例显示当用户在窗体上单击鼠标右键时在光标处出现的一个弹出式菜单。要检验此示例,创建一个窗体,它包含一个称为 mnuFile(mnuFile 必需至少有一个 submenu)的 Menu 控件。将本例代码粘贴到一个窗体的声明部分,然后按 F5 键。Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuFile
End If
End Sub
把根级菜单设为不可见。
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu a 'a是菜单的名称
End If
End Sub