弹出菜单跟系统菜单是一回事.
比如说你在菜单编辑器里建立了一个"系统"菜单名为mnuFile,而且它有下一级子菜单名为aaa.
那么你想显示弹出菜单的话,执行代码: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这样就能用右键弹出菜单aaa了.

解决方案 »

  1.   

    在菜单编辑器里建立好所需的菜单资料,然后在MouseDown中调用。
    如combread(大点) 所说完全正确。
      

  2.   

    执行语句:
    mnuDelete.Caption="余"
      

  3.   

    mnuDelete.Caption="删余"我估计你是不想让用户在窗体下拉菜单中看到探出菜单。
    这样,你在菜单编辑器中建好弹出菜单的父菜单以后,把Visible设为False。而探出菜单的Visible为True。
    这样可以满足你的要求。
      

  4.   

    弹出菜单之前先改变它的Caption值:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
       If Button = 2 Then
          mnuDelete.Caption = "sdf"
          PopupMenu mnuMain
       End If
    End Sub