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

yang0026 · 发表于 2019-5-20 10:57

为什么我自己新添加了一个列表框就不行了呢。。。。

xudotom · 发表于 2019-5-27 16:32

不支持64位系统

ranger丶亦 · 发表于 2019-7-23 09:24

收藏了，学习一下

fox_9741 · 发表于 2020-2-25 10:19

感谢，WIN10+Office365可以使用，稳定性待验证。

yes363001640 · 发表于 2020-7-10 14:43

太厉害了。大神

ggmmlol · 发表于 2020-11-26 14:00

xudotom 发表于 2019-5-27 16:32
不支持64位系统

加上64位兼容代码：

列表框滚动Demo.zip (15.2 KB, 下载次数: 537)

02761752696 · 发表于 2021-1-23 12:38

学习记录一下

cgx5871 · 发表于 2021-1-24 03:13

yang0026 发表于 2019-5-20 10:57
为什么我自己新添加了一个列表框就不行了呢。。。。

估计你和我一样走了弯路.
在MouseWheel代码中有指定frm.

If lParam.hwnd > 0 Then
If LISTBOX_Post_Flag = 1 And LISTBOX_Mouse_Flag = 1 Then frm.ListBox1.TopIndex = frm.ListBox1.TopIndex - 1
If LISTBOX_Post_Flag = 1 And LISTBOX_Mouse_Flag = 2 Then PostMessage mListBoxHwnd, WM_KEYDOWN, VK_UP, 0
Else
If LISTBOX_Post_Flag = 1 And LISTBOX_Mouse_Flag = 1 Then frm.ListBox1.TopIndex = frm.ListBox1.TopIndex + 1
If LISTBOX_Post_Flag = 1 And LISTBOX_Mouse_Flag = 2 Then PostMessage mListBoxHwnd, WM_KEYDOWN, VK_DOWN, 0
End If

复制代码

你是不是改动了名字.

lucasmnp · 发表于 2021-6-1 16:02

如果FRAME里面添加了一个IMAGE呢，楼主，请问如何操作呢

我也来学vab · 发表于 2022-7-24 01:23

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

没反应，怎么回事

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

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