如何让滚轮支持ListBox，使垂直滚动条移动？

cm96999

如何让滚轮支持ListBox，使垂直滚动条移动？代码见附件。

182197315

http://club.excelhome.net/forum. ... 36192&typeid=11

cm96999

182197315 发表于 2020-2-15 09:51
http://club.excelhome.net/forum.php?mod=viewthread&tid=736192&typeid=11

谢谢。但这个帖子里没有说具体怎么操作，我还是不知道怎么实现这个功能。

山菊花

原代码：

1.             If wzDelta < 0 Then '朝用户方向
   
2.                 UserForm1.Caption = "朝用户方向   " & CStr(wzDelta)
   
3.             Else                '朝显示器方向
   
4.                 UserForm1.Caption = "朝显示器方向   " & CStr(wzDelta)
   
5.             End If<div></div>

复制代码

修改为：

            If wzDelta < 0 Then '朝用户方向
                UserForm1.ListBox1.TopIndex = UserForm1.ListBox1.TopIndex + 1
            Else                '朝显示器方向
                UserForm1.ListBox1.TopIndex = UserForm1.ListBox1.TopIndex - 1
            End If

aecn

山菊花 发表于 2020-2-15 11:14
原代码：

修改为：

能不能让整个工作表里的LISTBOX都起效果

cm96999

山菊花 发表于 2020-2-15 11:14
原代码：

修改为：

山大侠您好，把您的代码放进去后，还是没有起作用，是不是我那时搞错了？麻烦看下。（见附件）

一把小刀闯天下

cm96999 发表于 2020-2-15 12:26
山大侠您好，把您的代码放进去后，还是没有起作用，是不是我那时搞错了？麻烦看下。（见附件）

示例试了一下滚轮有效，你这还带钩子的，很容易崩溃。可能跟系统有关，，，

---------
win7-64 +office2010-32

cm96999

一把小刀闯天下 发表于 2020-2-15 12:50
示例试了一下滚轮有效，你这还带钩子的，很容易崩溃。可能跟系统有关，，，

---------

是的，我这个代码是借用别人的，经常导致Excel出错，无法使用。我的系统是Win10+Office2016根本用不了，看来只能放弃了。