大家好！请问各位：我用VB编成制作一个窗口，在窗口中用MSHFlexGrid1控件作了一个表格，请问各位高人如何编写代码才能使浏览表格内数据时，使鼠标滚轮支持浏览数据表内数据上下滚动？谢谢！
北京
杨
2006-9-12

subclassing MFlexGrid 窗口, 並捕獲 WM_MOUSEWHEEL 消息.

判斷 wParam 的 HIWORD 或 LOWORD (在 VB 是 wParam \ 65536),
如果得到的大於 0, 輪是向上轉動, 小於 0 的滾輪向下轉動.

yeshirow：你好！
本人水平较低，请问您能提供给我一个例子吗？谢谢

標准模組中 (.bas):
......' // 將需要的 API 宣告一下, 自己會吧.
Global g_MFWndProc As Long

Public Function MFWndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim wp As Long
Select Case uMsg
Case WM_MOUSEWHEEL
wp = wParam \ 65536
' 怎麽處理消息自己定義一下吧, 在這裏用簡單的WM_KEYDOWN 來處理了.
If wp > 0 Then
' 滾輪向上轉動
PostMessage hWnd, WM_KEYDOWN, vbKeyUp, 1
Else
'滾輪向下轉動
PostMessage hWnd, WM_KEYDOWN, vbKeyDown, 1
End If
MFWndProc = 0
Exit Function
End Select
MFWndProc = CallWindowProc(g_MFWndProc, hWnd, uMsg, wParam, lParam)
End Function

---------------------------------------------
在包含 MFlexGrid 的窗體中:

Private Sub Form_Load()
'..........
g_MFWndProc = SetWindowLong(MSFlexGrid1.hWnd, GWL_WNDPROC, AddressOf MFWndProc)
'..........
End Sub

Private Sub Form_UnLoad()
'........
SetWindowLong MSFlexGrid1.hWnd, GWL_WNDPROC, g_MFWndProc
End Sub
---------------------------------------

不要以 End 結束程式.
如果確實要以 End 結束, 要在 End 之前呼叫一下 Unload 裏的那個 SetWindowLong.

說明一下, WM_MOUSEWHEEL 在下面的條件中才有效 (與 Windows 的版本有關):

#if (_WIN32_WINNT >= 0x0400) || (_WIN32_WINDOWS > 0x0400)
#define WM_MOUSEWHEEL 0x020A
#define WM_MOUSELAST 0x020A
#else
#define WM_MOUSELAST 0x0209
#endif /* if (_WIN32_WINNT < 0x0400) */