VB6.0怎么判断鼠标的左键被按下？

Question

VB6.0怎么判断鼠标的左键被按下？（也就是一直被按着的还没抬起！）。谢谢！是只在窗体以外

Answer 1

一、新建一个模块，复制下面代码：
Option Explicit

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WH_MOUSE_LL = 14

Public Const WM_LBUTTONDOWN = &H201
Public lHook(1) As Long

Public Function LowLevelMouseProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim fEatKeystroke As Boolean

Select Case wParam
Case WM_LBUTTONDOWN
Debug.Print "鼠标的左键被按下"
End Select

If fEatKeystroke Then
LowLevelMouseProc = -1
Else
LowLevelMouseProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
End If
End Function
二、调用举例：

Private Sub Form_Load()
lHook(1) = SetWindowsHookEx(WH_MOUSE_LL, AddressOf LowLevelMouseProc, App.hInstance, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx lHook(1)
End Sub

Answer 2

定义一个全局变量，在mouseDown事件里使其=true，在mouseUp事件里使其=false
然后通过判断这个变量就知道鼠标是否是按下了追问

晕 我是说指的是在窗体外面按的时候！在窗体里谁不会啊！

追答

那你就得写服务了

Answer 3

api