Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static i As Integer
Dim x1, y1, x2, y2
i = i + 1
If i = 1 Then x1 = X: y1 = Y '记录第一次单击的坐标
If i = 2 Then x2 = X: y2 = Y '记录第二次单击的坐标
Print x1, y1
Print x2, y2
End Sub
<!DOCTYPE html>
<html>
<head>
<meta >
新出炉的底层鼠标钩子（Low Level Mouse Hook)
'==================窗体代码=================
Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseHookProc, ApphInstance, 0)
If hHook <> 0 Then
MsgBox "已钩住鼠标事件，请按本窗体右上方的X按钮关闭窗体，不要使用VB调试工具栏的“结束”按钮，以免VB崩溃"
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx hHook
End Sub
'=============模块代码==================
Public Const WH_MOUSE = 7 '本地钩子
Public Const WH_MOUSE_LL = 14 '全局钩子
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 CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Const WM_LBUTTONDOWN = &H201 '窗口中按下鼠标左键
Public Const WM_LBUTTONUP = &H202 '窗口中松开鼠标左键
Public Const WM_MOUSEMOVE = &H200 '窗口中移动鼠标
Public Const WM_RBUTTONDOWN = &H204 '窗口中按下鼠标右键
Public Const WM_RBUTTONUP = &H205 '窗口中松开鼠标右键
Public Const WM_MOUSEWHEEL = &H20A '鼠标滚轮
Public Const WM_NCLBUTTONDOWN = &HA1 '窗口标题栏中按下鼠标左键
Public Const WM_NCLBUTTONUP = &HA2 '窗口标题栏中左开鼠标左键
Public Const WM_NCMOUSEMOVE = &HA0 '窗口标题栏中移动鼠标
Public Const WM_NCRBUTTONDOWN = &HA4 '窗口标题栏中按下鼠标右键
Public Const WM_NCRBUTTONUP = &HA5 '窗口标题栏中松开鼠标右键
Public hHook As Long
Public Type POINTAPI
x As Long
y As Long
End Type
Type MSLLHOOKSTRUCT
pt As POINTAPI '相对于屏幕左上角的坐标x,y
mouseData As Long '鼠标数据
flags As Long '标记
time As Long '时间戳
dwExtraInfo As Long '其他信息
End Type
Type MOUSEHOOKSTRUCT
pt As POINTAPI '相对于屏幕左上角的坐标x,y
hwnd As Long '鼠标光标下窗口的句柄
wHitTestCode As Long '鼠标光标在窗口中的位置，标题栏、左边框、右边框，下边框。。。
dwExtraInfo As Long '其他信息，通常为0
End Type
Dim oMouseHookStruct As MSLLHOOKSTRUCT
Public Function MouseHookProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
CopyMemory oMouseHookStruct, ByVal lParam, Len(oMouseHookStruct)
DebugPrint "当前鼠标位置-x:" & oMouseHookStructptx & "; y:" & oMouseHookStructpty
Select Case wParam
Case WM_LBUTTONDOWN, WM_NCLBUTTONDOWN
DebugPrint "左键按下"
Case WM_LBUTTONUP, WM_NCLBUTTONUP
DebugPrint "左键d起"
Case WM_RBUTTONDOWN, WM_NCRBUTTONDOWN
DebugPrint "右键按下"
Case WM_RBUTTONUP, WM_NCRBUTTONUP
DebugPrint "右键d起"
Case WM_MOUSEMOVE, WM_NCMOUSEMOVE
DebugPrint "鼠标移动"
Case WM_MOUSEWHEEL
DebugPrint "鼠标滚轮"
End Select
MouseHookProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End Function
以上就是关于急救!!vb中如何用mousedown事件获取两点坐标，在线等!!全部的内容，包括:急救!!vb中如何用mousedown事件获取两点坐标，在线等!!、记录腾讯地图点击地图获取标注坐标、VB中如何在后台获取鼠标点击屏幕的事件,并记录鼠标点击时的坐标等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）