win32系统中的触屏事件采用的什么坐标系

系统赋值：

st_vId：控件id

st_vW：控件对象

st_eA：执行的动作

st_eX：触屏位置X坐标

st_eY：触屏位置Y坐标

st_rX：原始位置X坐标

st_rY：原始位置Y坐标

该事件有返回值，不设置返回值将默认为false。当用户触屏屏幕即执行事件代码。

返回值说明：

在事件代码编辑框顶部一行填写 “[true]”，即设置为返回true

当返回true值时，说明已完成该事件的执行，将不在执行此事件。

当返回false值时，将持续执行当前事件。

新出炉的底层鼠标钩子（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

UIControlEventTouchDragExit 仅当触摸拖动离开控件范围时发生一次。 UIControlEventTouchDragOutside 当触摸拖动离开控件范围后会随用户的持续拖动而持续发生。

以上就是关于win32系统中的触屏事件采用的什么坐标系全部的内容，包括:win32系统中的触屏事件采用的什么坐标系、VB中如何在后台获取鼠标点击屏幕的事件,并记录鼠标点击时的坐标、如何在UIControlEventTouchDragInside事件里获取坐标等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！