Question

VB 中的　HScroll　的鼠标事件

HScroll　下没有　MouseDown　等事件
我如何判断我的鼠标是否按住了HScroll的滑块

想做的是当触发了HScroll2_Change()的事件后我需要判断我的鼠标是否还按在滑块上，如果按着则做Ａ，如果不是则做Ｂ．

如果答案是ＡＰＩ的话希望有注释

谢谢

Answer 1

在子类中捕捉WM_MOUSEWHEEL 消息
下面是WM_MOUSEWHEEL的语法。
WM_MOUSEWHEEL
fwKeys = LOWORD(wParam); /* key flags */
zDelta = (short)HIWORD(wParam);
/*wheel rotation*/
xPos = (short) LOWORD(lParam);
/*horizontal position of pointer */
yPos = (short) HIWORD(lParam);
/*vertical position of pointer */
下面是WM_MOUSEWHEEL的语法。
WM_MOUSEWHEEL
fwKeys = LOWORD(wParam); /* key flags */
zDelta = (short)HIWORD(wParam);
/*wheel rotation*/
xPos = (short) LOWORD(lParam);
/*horizontal position of pointer */
yPos = (short) HIWORD(lParam);
/*vertical position of pointer */
其中：fwKeys指出是否有CTRL、SHIFT、鼠标键(左、中、右、附加)按下，允许复合。zDelta传递滚轮滚动的快慢，该值小于零表示滚轮向后滚动（朝用户方向），大于零表示滚轮向前滚动（朝显示器方向）。lParam指出鼠标指针相对屏幕左上的x、y轴坐标。 滚轮按钮相当于普通的三键鼠标的中键，根据滚轮按钮的动作，Windows分别发出WM_MBUTTONUP、WM_MBUTTONDOWN、WM_MBUTTONDBLCLK消息，这些消息VB已经在鼠标事件中支持。