如何判断鼠标左键是否按下

[原来如此]

如何判断鼠标左键是否按下?我说的鼠标按下的位置不是指窗体中的某个控件,而是任意位置(包括窗体外)的判断.就是鼠标的所在位置的地方判断按键是否按下.

[jhone99]

具体说一下你想干什么用？

[ChinaITOldMan]

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
MsgBox "Left button is pressed!"
End If
End Sub

[jacklygoodluck]

API

[xiaoting924]

用事件控制onMouseDown事件，当鼠标按下后触发该事件。

[happy_sea]

用一个Timer控件和一个API就可以实现了：

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
    Dim Res As Long
    Res = GetAsyncKeyState(1)
    If Res = -32767 Then
        Debug.Print "鼠标左键被按下！"
    End If
End Sub

[啊的发哦]

[Quote=引用 4 楼 happy_sea 的回复:]
用一个Timer控件和一个API就可以实现了：

VB codePrivate Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Dim Res As Long
Res = GetAsyncKeyState(1)
If Res = -32767 Then
Debug.Print "鼠标左键被按下！"
End If
End Sub
[/Quote]

[东方之珠]

用全局钩子也可以.
http://blog.csdn.net/Modest/archive/2006/10/21/1344213.aspx

[holyw]

学习了。