Createmenu‘创建
insertmenuitem’添加项
trackpopupmenu‘弹出
其实你可以用菜单编辑器编写,然后设置菜单隐藏属性为true。
调用时直接用popupmenu函数即可,如:popupmenu MEdit.
祝你成功。

解决方案 »

  1.   

    窗体右键 菜单编辑器
    本示例显示当用户在窗体上单击鼠标右键时在光标处出现的一个弹出式菜单。要检验此示例,创建一个窗体,它包含一个称为 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
      

  2.   

    菜单“工具”-》”菜单编辑器“ 
    把根级菜单设为不可见。
    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