这个问题嘛: KEYDOWN: IF ASCII=2 THEN PIC1.POPUPMENU FORM1.FILE END IF 就这样啦。
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then MsgBox "right key"End Sub
Private Sub RichTextBox1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button = 2 Then '如果是鼠标右键按下时 Form1.PopupMenu mnufile, 0, X, Y '弹出右键菜单 End If End Subhttp://www.cooljk.com/vb/kantuxieVB/kanlixieVB_8.html
MouseUp事件里面判断Button,2是右键
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu 菜单名称 End If End Sub
然后用坐标定x.y
这样就可以做为一个右键菜单了。
顺便问一下,怎么区分是左键还是右键点击
KEYDOWN:
IF ASCII=2 THEN
PIC1.POPUPMENU FORM1.FILE
END IF
就这样啦。
If Button = 2 Then '如果是鼠标右键按下时
Form1.PopupMenu mnufile, 0, X, Y '弹出右键菜单
End If
End Subhttp://www.cooljk.com/vb/kantuxieVB/kanlixieVB_8.html
If Button = vbRightButton Then
PopupMenu 菜单名称
End If
End Sub