后台程序全局钩子获取鼠标滚轮滚动方向(VB6.0)

全局鼠标键盘HOOK封装: 封装了一个键盘鼠标HOOK类,使用方便(VB6.0)

需要增加的代码:

'复制内容到剪贴板程序代码
Private Type MSLLHOOKSTRUCT     '鼠标HOOK时lParam指针指向的结构
    pt As POINTAPI
    dwMouseData As Long
    dwFlags As Long
    dwTime As Long
    dwExtraInfo As Long
End Type
Private Const WM_MOUSEWHEEL As Long = &H20A

Private Sub objHookLL_MouseHook(ByVal Code As Long, ByVal wParam As Long, ByVal lParam As Long, lRet As Long)
    '鼠标HOOK事件.
    '要吃了当前消息,把lRet = -1即可.
    If Code = HC_ACTION And wParam = WM_MOUSEWHEEL Then
        Dim stMLL As MSLLHOOKSTRUCT

Call CopyMemory(ByVal VarPtr(stMLL), ByVal lParam, Len(stMLL))

With stMLL
            Debug.Print .dwMouseData / 65536        '输出滚轮状态
            '在这里可以得到鼠标坐标以及其它信息
        End With
    End If
    txtMCode.Text = Code
    txtMwParam.Text = wParam
    txtMlParam.Text = lParam
    Debug.Print "   M = " & Code, wParam, lParam
End Sub

原帖: http://topic.csdn.net/u/20090825/11/d33dfa0a-2c8f-41f3-b78e-c70d352c887c.html

VB部分相关文章推荐

※VB快速读取 TextBox 第 N 行的资料

※VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件

※VB利用资源文件进行工作

※[转]vb高效编程（优化）

※VB阳历转阴历

※纯VB代码取得硬盘的物理序列号

※VB获得磁盘的文件系统

※做VB的，经常注册和反注册OCX控件和DLL链

※VB从程序中生成Exe文件

※VB6监视/操作剪贴板示例(VB6.0代码)

※VB6里自动提交/自动填表的一种相对通用的方案

※VB移动没有标题的窗体

※VB随机字母的函数

※VB删除带子文件夹和文件的文件夹

※VB怎样屏蔽 Alt+F4键

※VB 隐藏进程

※vb屏蔽文本框点右键时的弹出菜单

※VB手控Combobox的打开或收起

※在VB中INI文件的读写、删除（对中文支持很好）

※vb全局热键的写法（占很少的资源）

※vb取消文本框的粘贴功能

※VB常用文件操作类

※VB获取特殊文件夹

※VB获取windows各常用目录的函数（模块）

※VB生成太极图

※VB:常用内部函数大全,你会了几个呢?

※vb中SendMessage函数

※精简VB程序的代码

※VB:将数字转换为大写中文

※VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

※VB:读取及设定NumLock/CapsLock/ScrollLock的值

※VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

※VB后台获得按键,并执行自己的函数(非钩子及热键)

※VB:将短文件名格式转成长文件名

※在vb中使用Iphlpapi.dll获取网络信息(上）

※在vb中使用Iphlpapi.dll获取网络信息(下）

后台程序全局钩子获取鼠标滚轮滚动方向(VB6.0)相关推荐

歌词同步滚动，比市面的大多数效果都好，在平滑滚动的前提下加上了鼠标滚轮滚动以及上下拖拽功能
歌词滚动核心原理解析歌词文件,转换成JSON 对象,java 代码放在最下面将歌词时间部分存到数组,字符部分放到 HTML 标签里面,通过Jquery 选中所有歌词 $li ,拿到一个类似于数组的 ...
金融数据获取：当爬虫遇上要鼠标滚轮滚动才会刷新数据的网页（保姆级教程）
目录 1. 谁这么会给我整活儿 2. Selenium模拟网页浏览器爬取 2.1 安装和准备工作 2.2.1 高度判断 2.2.2 顶部距离判断 3: 爬取内容 4: 完整代码,结果展示 1. 谁这么 ...
tkinter绑定鼠标滚轮滚动事件
大部分的讲python tkinter的书籍好像不太提到如何绑定鼠标滚轮滚动事件哦(其实我也只看了2本书而已).这在某些地方也可能会用到,比如放大缩小图片的时候.我查了下python tkinter文 ...
【uni-app】swiper 实现纵向轮播，且支持鼠标滚轮滚动翻页
前言 swiper 实现纵向轮播,且支持鼠标滚轮滚动翻页操作方法(亲测可用) https://www.w3h5.com/post/607.html
tmux无法使用鼠标滚轮滚动页面
解决tmux无法使用鼠标滚轮滚动页面的问题解决办法: cd ~/.tmux.conf 添加: set -g mouse on 最后: tmux source-file ~/.tmux.conf
将火狐浏览器鼠标滚轮滚动速度调到接近edge浏览器的效果
在火狐浏览器地址栏输入 about:config 进入如下页面点击我已了解此风险在搜索栏输入: mousewheel 如上图,修改4个参数 general.smoothScroll.mouseWh ...
Angularjs之ui-grid的使用鼠标滚轮滚动的Bug
Angularjs之ui-grid的使用鼠标滚轮滚动的Bug 在UI-Grid表格中使用鼠标左键进行拖拽滚动时,表格是滚动正常的:但使用滚轮进行上下滚动时,发现它总会自动跳回到表格顶部,解决方法是在源 ...
html怎么做到滚动鼠标转换,js实现的鼠标滚轮滚动切换页面效果(类似360默认页面滚动切换效果)...
本文实例讲述了js实现的鼠标滚轮滚动切换页面效果的方法.分享给大家供大家参考,具体如下: 运行效果截图如下: 具体代码如下: wheel var currentShowPageIndex = 0; v ...
用鼠标滚轮滚动控制图片的缩小放大
转自:原文链接尚未分析明白,先记录一下 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" &qu ...

后台程序全局钩子获取鼠标滚轮滚动方向(VB6.0)

后台程序全局钩子获取鼠标滚轮滚动方向(VB6.0)相关推荐

最新文章

热门文章