列表框实现鼠标滚轮滚动Demo

onizukaxp · 发表于 2018-1-11 00:51

楼主，你好！感谢你的分享！
你的代码在VBA7下测试是可以的。但是在VBA7.1(EXCEL2013)下除了要DELARE声明需要追加Ptrsafe和这个API 函数 Private Declare Ptrsafe Function SetWindowsHookEx Lib "user32" _
                                       Alias "SetWindowsHookExA" ( _
                                                                  ByVal idHook As Long, _
                                                                  ByVal lpfn As color=Red]Long, _
                                                                  ByVal hmod As Long, _
                                                                  ByVal dwThreadId As Long) As Long中红色部分变更为longlong才可以使用。但是使用过程中有个问题，当鼠标在窗体外控制listbox滚动时，会复选桌面上的文件。（我引用的程序有将EXCEL缩小到窗体后面。）还请看看是什么问题。谢谢

onizukaxp · 发表于 2018-1-11 01:01

简单的说就是无论鼠标指针在哪里，当窗体激活时，如何将鼠标滚轮的作用范围限定在窗体的LISTBOX里。谢谢

gdzrh917 · 发表于 2018-2-5 16:59

好东西受益留名哈谢谢

ebkzxcel · 发表于 2018-3-5 18:27

厉害,学习了,正要用这个功能呢

lyb200 · 发表于 2018-3-17 10:36

下载了，谢谢，以后但愿能看懂。

hopradio · 发表于 2018-3-23 22:21

64位不能用……编译错误

snowfly1112 · 发表于 2018-7-24 08:29

学习，学习，学习，学习，学习，学习，学习，学习，学习，学习，学习，学习

lytznh · 发表于 2018-7-24 09:28

请教:不用窗体,直接在工作表的列表框中如何实现鼠标滚轮滚动

e315 · 发表于 2018-9-3 09:39

哈哈哈，困扰我好几天的问题，今天终于找到了。wheel滚动，赶紧来拜读下。

xemejxy · 发表于 2018-9-15 13:00

谢谢楼主分享。先留个脚印，到时候学习！

		自动登录	找回密码
密码			免费注册

[分享] 列表框实现鼠标滚轮滚动Demo

评分