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

adminsong · 发表于 2024-3-21 22:28

如果在一个工作簿中有多个窗体，如何每个窗体都能实现滚轮效果

gaolzhen · 发表于 2024-3-22 13:49

不错,不错真心不错

qzzone · 发表于 2024-3-22 15:44

vba 64位不行

morpheus126 · 发表于 2024-3-22 15:56

ggmmlol 发表于 2020-11-26 14:00
加上64位兼容代码：

没报错也没反应

大侠有空帮忙看看
win10 365 64位

zjjwt · 发表于 2024-5-13 01:58

ggmmlol 发表于 2020-11-26 14:00
加上64位兼容代码：

我下载下来滚轮发现不论滚轮往上还是往下，他只会往上滚，怎么会这样

cpin · 发表于 2024-5-17 09:38

adminsong 发表于 2024-3-21 22:28
如果在一个工作簿中有多个窗体，如何每个窗体都能实现滚轮效果

感谢楼主老师！通过学习发现，在对应的窗体加上下面的代码就可以了。注意若为ListBox2，则下面的ListBox1要改为ListBox2。若一个窗体有多个窗口要滚动，就增加多段下面的代码，ListBox要一一对应。
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
HookListBoxScroll
End Sub

opiona · 发表于 2024-5-17 11:33

https://club.excelhome.net/threa ... tml?_dsign=38d6bd0d

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

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