鼠标事件！

easonzgf 发布于 2014-12-11 19:24， 588 次点击

　　Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　　If (Button And 3)=3 Then
　　Print "OK"
　　End If
　　End Sub

这个同时按下鼠标左右键，不会出现ok么？？？？

8 回复

wmf20142014-12-11 21:34

楼主强大！在键盘事件中能写鼠标事件代码。

yangfrancis2014-12-11 23:00

mousedown和mouseup事件，估计还需要设置一个布尔变量,在这两个事件中改变布尔值来监视鼠标左键是按下还是放开，再在右键按下事件中来读取该布尔值以确定是否执行代码内容。这只是个思路，我还没试，你自己可以尝试着弄一下。

yangfrancis2014-12-11 23:04

不过好像记得mousedown只识别左键或右键的按下，不能识别两键同时按下，还得用记时器来记录一下一键放开和另一键按下之间的时间差，当时间差小于一个设定值时将它们算作同时按下。早先用这种事件写过一个自制的扫雷。可惜代码不在现在的电脑上，没法贴出来了。

lianyicq2014-12-12 10:19

回复楼主 easonzgf

使用API
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Me.Show
Do
If GetAsyncKeyState(vbKeyLButton) And GetAsyncKeyState(vbKeyRButton) Then Form1.Caption = "左右"
If GetAsyncKeyState(vbKeyLButton) Then Form1.Caption = "左"
If GetAsyncKeyState(vbKeyRButton) Then Form1.Caption = "右"

DoEvents
Loop
End Sub

xzlxzlxzl2014-12-12 16:26

在mousedown事件里根本无法捕获左右键同时按下的值，因为你做不到同时，但在左右键按着不放的情况下，可以捕获button=3。

zhengang10262014-12-14 11:24

以下是引用wmf2014在2014-12-11 21:34:31的发言：

楼主强大！在键盘事件中能写鼠标事件代码。

呵呵

zhengang10262014-12-15 17:20

回复 6楼 xzlxzlxzl

请教版主，我怎么无法捕获到？我用下面代码要不是1、要不是2，既使按着左健不放再按右键也不会有3出现，该怎么才能获得3呢？
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print Button
End Sub

xzlxzlxzl2014-12-15 18:34

在MouseMove事件里捕获