弹出菜单跟系统菜单是一回事.
比如说你在菜单编辑器里建立了一个"系统"菜单名为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了.
比如说你在菜单编辑器里建立了一个"系统"菜单名为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了.
如combread(大点) 所说完全正确。
mnuDelete.Caption="余"
这样,你在菜单编辑器中建好弹出菜单的父菜单以后,把Visible设为False。而探出菜单的Visible为True。
这样可以满足你的要求。
If Button = 2 Then
mnuDelete.Caption = "sdf"
PopupMenu mnuMain
End If
End Sub