关于combobox和鼠标滚轮

glenn001 · 发表于 2006-1-17 04:45

请问各位大侠，combobox的鼠标滚轮功能怎么激活？就是鼠标滚轮向下滚，滚动条也跟着向下翻页

shuyee · 发表于 2006-1-17 08:22

能不能不用啊?

一是尽管Excel支持中键,但只有Excel接收.

二是它的控件不接收中键消息.

所以得先屏蔽掉Excel,使其不能接收中键消息,再设法让combox收到,并转化为index,可能还有细节问题,比如滚过多少pixl,对应几个index.最后就是如果combox在非活动状态时,要恢复Excel接收中键消息.估计你要调用鼠标的消息函数.

丸究阵引 · 发表于 2006-1-17 10:48

以下是引用[I]shuyee[/I]在2006-1-17 8:22:16的发言：
能不能不用啊?
一是尽管Excel支持中键,但只有Excel接收.
二是它的控件不接收中键消息.
所以得先屏蔽掉Excel,使其不能接收中键消息,再设法让combox收到,并转化为index,可能还有细节问题,比如滚过多少pixl,对应几个index.最后就是如果combox在非活动状态时,要恢复Excel接收中键消息.估计你要调用鼠标的消息函数.

呵呵！没那么复杂！自己试一试。

[此贴子已经被作者于2006-1-17 10:51:01编辑过]

shuyee · 发表于 2006-1-18 08:58

查了vba下mouse响应事件,只有click和move,没有滚轮事件.再就是Excel本身响应滚轮,但触发事件未知,如果能知道事件的话,可以把scroll的值转换给combobox.比较了窗体控件和ole控件,发现窗体控件完全不支持滚轮.

欢迎指教.

bright002 · 发表于 2006-1-18 12:43

我也是没找到支持滚轮的事件，估计是不行吧，在vba编程平台下都不支持滚轮，何况插件。希望哪为高手给与解答。

丸究阵引 · 发表于 2006-1-20 09:08

焦点控件的入口处都会收到win的消息,包括鼠标滚轮。滚动combobox用TopIndex 就可以了。上次也有人问到此文题，作了一个供参考。

7jxeEQmH.rar (10.81 KB, 下载次数: 1329)

shuyee · 发表于 2006-1-20 12:59

谢谢.

判断版本时,可以改下,Getfrm1Hwnd = FindWindowA(vbNullString, strCaption)这样就不需要判断了.当然了,caption有重名的风险.

其实还是挺复杂的,你使用了回调函数,使消息重定向.不错.

考虑能不能使在工作表上控件支持.

aagj · 发表于 2007-2-28 17:25

用在LISTBOX上时，无法用关闭userform1

aagj · 发表于 2007-2-28 20:56

把回调函数修改了一下，终于解决了。

Private Function WindowProcB(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
     Select Case Msg
          Case &H20A
            SetIndex wParam
          Case &84
            Call SetWindowLong(Getfrm1Hwnd("UserForm1"), GWL_WNDPROC, mWndProcB)
            mWndProcB = 0
          Case Else
               WindowProcB = CallWindowProc(mWndProcB, hwnd, Msg, wParam, lParam)
     End Select

End Function

anjing572 · 发表于 2007-2-28 22:51

QUOTE:

以下是引用丸究阵引在2006-1-20 9:08:41的发言：
焦点控件的入口处都会收到win的消息,包括鼠标滚轮。
滚动combobox用TopIndex 就可以了。
上次也有人问到此文题，作了一个供参考。

可否把它作成个类

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

关于combobox和鼠标滚轮

shuyee：