---- 一、提出問題
---- 自從1996年微軟推出Intellimouse鼠標後，帶滾輪的鼠標開始大行其道，支持鼠標滾輪的應用軟件也越來越多。但我感到奇怪，為什麼VB到6.0本身仍然不支持鼠標滾輪，VF可是從5.0就提供MouseWheel事件了。
---- 如何讓VB應用程序支持鼠標滾輪？MSDN上有一篇解決VB下應用Intellimouse鼠標的文章，它解決這一問題的方法是通過一個幾十K的第三方控件實現的，可惜該控件沒有源代碼。況且為了支持鼠標滾輪使用一個第三方控件，好像有點得不償失。本文給出用純VB實現這一功能的方法。
---- 二、解決問題
---- 我們知道VB應用程序響應的Windows傳來的消息，需要通過VB解釋。可是很不幸，雖然VB解釋所有得消息，卻只讓用戶程序在事件中處理部分消息，VB自己處理其他的消息，或者忽略這些消息。
---- 在VB5.0以前應用程序無法越過VB直接處理消息，微軟從VB5.0開始提供AddressOf 運算符，該運算符可以讓用戶程序將函數或者過程的地址傳遞給一個API函數。這樣我們就可以在VB應用程序中編寫自己的窗口處理函數，通過AddressOf 運算符將在VB中定義的窗口地址傳遞給窗口處理函數，從而繞過VB的解釋器，自己處理消息。事實上，該方法可用於在VB中處理任何消息。
---- 實現應用程序支持鼠標滾輪的關鍵是，捕獲鼠標滾輪的消息 MSH_MOUSEWHEEL、WM_MOUSEWHEEL。其中MSH_MOUSEWHEEL是為95准備的，需要Intellimouse驅動程序，而WM_MOUSEWHEEL是目前各版本Windows（98/NT40/2000）內置的消息。本文主要處理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 */
---- 其中：fwKeys指出是否有CTRL、SHIFT、鼠標鍵(左、中、右、附加)按下，允許復合。zDelta傳遞滾輪滾動的快慢，該值小於零表示滾輪向後滾動（朝用戶方向），大於零表示滾輪向前滾動（朝顯示器方向）。lParam指出鼠標指針相對屏幕左上的x、y軸坐標。
---- 滾輪按鈕相當於普通的三鍵鼠標的中鍵，根據滾輪按鈕的動作，Windows分別發出WM_MBUTTONUP、WM_MBUTTONDOWN、WM_MBUTTONDBLCLK消息，這些消息VB已經在鼠標事件中支持。
---- 三、實際應用
---- 根據上述原理，給出一個數據庫應用的典型例子。
---- 1.用戶界面班級和學生一對多的查詢，當用戶在學生網格以外滾動鼠標滾輪，班級主表前後移動；用戶在網格以內滾動鼠標學生明細表垂直移動；如果在網格以內按住鼠標滾輪鍵並且滾動鼠標，學生明細表水平移動。
---- 2.Form1上ADO Data 控件對象datPrimaryRS的 ConnectionString為"PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=SCHOOL;uid=;pwd=;"， RecordSelectors 屬性的SQL命令文本為"SHAPE {select * from 班級} AS ParentCMD APPEND ({select * from 學生 } AS ChildCMD RELATE 班級名稱 TO 班級名稱) AS ChildCMD"。
