鼠标中间滚轮滚动产生的是什么消息或事件啊。

Question

ru  ti

Answer 1

Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_MOUSEWHEEL = &H20A
Public Function FlexScroll(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'支持滚轮的滚动 Yu 2004-5-10 15:33
         Select Case wMsg
                  
                Case WM_MOUSEWHEEL
                     
                    Select Case wParam                           Case -7864320  '向下滚
                                SendKeys "{PGDN}"                           Case 7864320   '向上滚
                                SendKeys "{PGUP}"                    End Select
                     
         End Select
         
         FlexScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)
         
End Function