Private Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu menu1
End If
End Sub
上面代码右键单击一次能弹出menu1,再单击右键没有反应,需单击左键再单击右键才能弹出menu1。
如何只单击右键就能连续弹出menu1.
谢谢!
...全文
934打赏收藏
如何使快捷菜单从form中连续弹出
Private Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu menu1 End If End Sub 上面代码右键单击一次能弹出menu1,再单击右键没有反应,需单击左键再单击右键才能弹出menu1。 如何只单击右键就能连续弹出menu1. 谢谢!