技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 5446|回复: 5
收起左侧

【VB6】响应鼠标滚轮事件

[复制链接]

1060

主题

2443

帖子

6万

积分

用户组: 管理员

一只技术宅

UID
1
精华
221
威望
348 点
宅币
19518 个
贡献
40309 次
宅之契约
0 份
在线时间
1846 小时
注册时间
2014-1-26
发表于 2015-11-30 20:25:13 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有帐号?立即注册→加入我们

x
VB6的窗体或PictureBox本来只支持鼠标的三个操作:按下鼠标键,移动鼠标,松开鼠标键。然而对于习惯了搓鼠标滚轮的用户来说,如果能搓鼠标滚轮就更爽了。
这里不放出完整的App了。我就说个方法,大家脑补一下写写代码就可以搞定了。
1、给工程新建一个模块(module)
KME.png

2、你需要哪个控件(或窗口)响应鼠标滚轮事件呢?选好,然后用一个变量来存储它的hWnd的值。
就像我这样,把它写得漂漂亮亮的。
tile.png
hwnd.png
之所以这么做(而不是使用picTileList.hWnd)是有理由的。当窗口被卸载的时候,在VB里“picTileList”这个控件类也就被卸载了。然而这个时候你还会收到消息。这个时候,“picTileList”这个控件类就无法被使用了(因此你也不能获取其hWnd)

3、是时候告诉大家原理了。其实也就是Hook消息处理函数,自己处理消息而已,非常简单的东西。
这里只是说一下大致的做法以便大家参考。
我们需要存储旧的消息处理函数的地址,来处理除了搓滚轮以外的消息(这样控件才能响应别的事件)。用GetWindowLong(第二个参数nIndex填GWL_WNDPROC)就可以获取旧的消息处理函数的地址了。
然后自己再写一个新的消息处理函数,用于处理搓滚轮消息。用SetWindowLong把这个新的消息处理函数安装进控件就行了。
API声明:
[Visual Basic] 纯文本查看 复制代码
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const GWL_WNDPROC = (-4)
消息处理函数的原型必须是这样的:
[Visual Basic] 纯文本查看 复制代码
Private Function MouseWheelProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal WP As Long, ByVal LP As Long) As Long
其实只要有四个ByVal的Long参数,并且最后返回Long就行了。函数名、是不是Private等这些可以根据自己的喜好来设置。
wndproc.png

4、消息处理函数的内容。
分三步。首先判断消息(也就是第二个参数)是不是WM_MOUSEWHEEL(值为&H20A),其次判断窗口句柄(第一个消息)是哪个控件的句柄。根据这个来判断是你的哪个控件(或窗口)被搓了鼠标滚轮。
如果消息不是WM_MOUSEWHEEL,那就用CallWindowProc来调用旧的消息处理函数(并且把你的四个参数也传递进去)
mw.png

5、给你的控件写搓滚轮事件处理过程吧!
为了使其更符合VB的风格,我是这样写的。
mousewheel.png
其中的Delta是手搓滚轮的格数(滚轮是一格一格的,你每搓一格都会有个感觉的,不过有的鼠标没有这种感觉)乘以WHEEL_DELTA(也就是120),因此你需要让Delta的值除以WHEEL_DELTA来取得实际的格数。
啊,忘了。你的窗口刚加载的时候就得完成Hook操作。。不Hook就不能识别。因此,在窗口加载的时候,完成操作吧。
Load.png

觉得有点乱哈。凑合着看看吧。提示一下重点是消息处理函数的Hook和消息的处理过程,这里不能出错。
[Visual Basic] 纯文本查看 复制代码
'这些代码必须放在Module模块里
'这些代码不是伪代码。。按照自己的需求修改后是可以使用的。

'首先声明API
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const GWL_WNDPROC = (-4)
Private Const WM_MOUSEWHEEL As Long = &H20A&
Private Const WHEEL_DELTA = 120

'必须的变量
Dim 控件的hWnd As Long
Dim 控件的旧消息处理函数 As Long

'初始化操作。下面这个函数被调用后,控件才能识别鼠标滚轮。
Sub InitMouseWheel()
控件的hWnd = 窗口.控件.hWnd
控件的旧消息处理函数 = GetWindowLong(控件的hWnd, GWL_WNDPROC) '取得原先的消息处理函数的入口
SetWindowLong 控件的hWnd, GWL_WNDPROC, AddressOf 新消息处理函数 '安装自己的消息处理函数
End Sub

'消息处理函数,这个的参数类型和返回类型可不能写错了
Function 新消息处理函数(ByVal hWnd As Long, ByVal Msg As Long, ByVal WP As Long, ByVal LP As Long) As Long
If Msg = WM_MOUSEWHEEL Then '如果消息是“搓鼠标滚轮”
    If hWnd = 控件的hWnd Then '通过比较hWnd来判断是哪个控件或窗口被搓滚轮了
        Dim 滚动格数 As Long, 按键信息 As Long, X As Long, Y As Long
        滚动格数 = (WP And &HFFFF&) \ WHEEL_DELTA
        按键信息 = WP \ &H10000
        X = LP And &HFFFF& '搓滚轮的时候鼠标的位置
        Y = LP \ &H10000

        '做你的处理
    End If
Else '其它消息
    If hWnd = 控件的hWnd Then '判断是什么控件或窗口的消息,然后使用它们原先的消息处理函数来处理,使其能响应事件。
        新消息处理函数 = CallWindowProc(控件的旧消息处理函数, hWnd, Msg, WP, LP) '将参数原样传递给旧的消息处理函数,并且返回其返回的值。
    End If
End If
End Function

本帖被以下淘专辑推荐:

回复

使用道具 举报

12

主题

50

帖子

388

积分

用户组: 中·技术宅

UID
2285
精华
0
威望
29 点
宅币
279 个
贡献
1 次
宅之契约
0 份
在线时间
30 小时
注册时间
2017-2-25
发表于 2017-12-22 12:06:49 | 显示全部楼层
本帖最后由 乘简 于 2017-12-25 16:09 编辑

此贴做废!~
回复

使用道具 举报

0

主题

2

帖子

11

积分

用户组: 初·技术宅

UID
3253
精华
0
威望
0 点
宅币
9 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2017-12-24
发表于 2017-12-24 18:50:17 | 显示全部楼层
很好 很不错

0

主题

41

帖子

45

积分

用户组: 初·技术宅

UID
3351
精华
0
威望
2 点
宅币
0 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2018-1-14
发表于 2018-1-14 12:58:11 | 显示全部楼层
不错!!!!
回复

使用道具 举报

1

主题

34

帖子

19

积分

用户组: 初·技术宅

UID
6035
精华
0
威望
2 点
宅币
-19 个
贡献
0 次
宅之契约
0 份
在线时间
5 小时
注册时间
2020-7-7
发表于 2020-7-8 10:47:57 | 显示全部楼层
响应鼠标滚轮事件

4

主题

64

帖子

972

积分

用户组: 大·技术宅

UID
4293
精华
4
威望
12 点
宅币
680 个
贡献
184 次
宅之契约
0 份
在线时间
69 小时
注册时间
2018-9-19
发表于 2020-7-8 22:44:15 | 显示全部楼层
A5大婶居然都没有水平滚轮支持

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图  

GMT+8, 2020-7-16 12:23 , Processed in 0.119124 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表