在vb中实现鼠标手势

最新推荐文章于 2021-06-02 10:23:09 发布

原创

最新推荐文章于 2021-06-02 10:23:09 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #function #integer #webbrowser #user #keyboard

本文介绍了如何在VB中利用鼠标钩子实现鼠标手势功能，通过捕获鼠标移动事件，识别用户按住右键移动鼠标的方向，从而实现向上、向下、向左、向右四种基本手势。代码示例中展示了安装和卸载鼠标钩子、处理鼠标事件的过程。

在vb中实现鼠标手势

1.什么是鼠标手势:
???我的理解,按着鼠标某键(一般是右键)移动鼠标,然后放开某键,程序会识别你的移动轨迹,做出相应的响应.

2.实现原理:
?首先说明一下,我在网上没有找到相关的文档,我的方法未必与其他人是一致的,实际效果感觉还可以.
?鼠标移动的轨迹我们可以将其看成是许多小段直线组成的,然后这些直线的方向就是鼠标在这段轨迹中的方向了.
3.实现代码:
?还要说明一下,
?a)要捕获鼠标的移动事件,可以使用vb中的mousemove事件,但这个会受到一些限制(例如,在webbrowser控件上就没有这个事件).于是这个例子中,我用win api,在程序中安装个鼠标钩子,这样就能够捕获整个程序的鼠标事件了.
?b)这个里只是个能捕获鼠标向上,下,左,右的移动的例子.(呵呵,其实这四方向一般也足够了:))

新建Standrad EXE,添加一个Module

form1的代码如下

Option Explicit

Private Sub Form_Load()
Call InstallMouseHook
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call UninstallMouseHook
End Sub

Module1的代码如下

Option Explicit

Public Const HTCLIENT As Long = 1

Private hMouseHook As Long
Private Const KF_UP As Long = &H80000000

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

Private Type POINTAPI
??? X As Long
??? Y As Long

End Type