HScroll问题

[zqymike]

如何知道鼠标在上HScroll控件按下？

[goodname008]

' 是这个意思吗?

Option Explicit

Private Sub VScroll1_Change()
MsgBox "按下了"
End Sub

[zqymike]

这样没用

最好是捕捉HScroll的MouseMove事件

[goodname008]

' 那就用子类处理拦截消息好了.


' 窗体代码
Option Explicit

Private Sub Form_Load()
ret = SetWindowLong(HScroll1.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

' 标准模块
Option Explicit
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_WNDPROC = (-4)
Private Const WM_MOUSEMOVE = &H200
Public ret As Long

' SetWindowLong 的回调函数, 利用 Msg 拦截消息
Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If Msg = WM_MOUSEMOVE Then Debug.Print "MouseMove"

WindowProc = CallWindowProc(ret, hwnd, Msg, wParam, lParam)
End Function