VB识别鼠标左右键

发布网友发布时间：2022-05-12 15:17

共1个回答

热心网友时间：2023-10-11 13:58

MouseDown事件中有个button变量当鼠标右键按下时 button的值为vbRightButton，左键按下为vbRightButton,滚轮按下为4知道这个就好实现你所说的功能了你在Mousedown事件中添加下面代码：if button = vbRightButton thenmsgbox "按下右键"elseif button = vbLeftButton thenmsgbox "按下左键"判断左右键同时放开代码如下：Option Explicit
Dim OldButton As Byte
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
If OldButton + Button = 3 Then
MsgBox "鼠标左右键同时放开'"
End If
OldButton = Button
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
OldButton = 0
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com