关于弹出式菜单的问题，请高人指点下

2024-11-24 18:02:50

推荐回答（2个）

回答1：

这样写。因为你的名称Option与关键字重复了，所以迹液要加上方括号。
＝＝＝轮芹＝＝＝＝腊州毕＝＝＝
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu [option] '别看这一句奇怪，但是就得这样。
End If
End Sub

回答2：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu option1
End If
End Sub

你改个名字吧可能因为是关顷差键字的缘故~还有啊~用PopupMenu 必须扰镇要有缓乎粗子菜单的~