VB中子分類技術的應用 (轉)

VB中子分類技術的應用 (轉)[@more@]

子分類技術的原理：要先取得原先Window Procedure所在的地址，將之記錄起來，接著設定所有的訊息都先轉到我們所寫的訊息處理過程上來，我們過濾傳過來的訊息，尋找特定的訊息進行處理，其餘的送回，由系統決定如何處理。等到我們不需要再處理這些特定的訊息時，便取消訊息的擷取，即中止子分類過程。它一般需要三個過程:開始擷取,訊息處理,中止擷取.
　　需要一個模組，在模組中宣告如下：
　　'Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
　　(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) A s Long Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
　　(ByVal hwnd As Long, ByVal nIndex As Long) As Long 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 Const GWL_WNDPROC = (-4) Public Const WM_MOUSEMOVE = &H200 Public Const WM_RBUTTONDOWN = &H204
　　'全域性變數,存放標誌性資料Public preWinProc As Long
　　'本函式就是用來接收子分類時擷取的訊息的Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _
　　ByVal wParam As Long, ByVal lParam As Long) As
　　Long
　　'擷取下來的訊息存放在msg引數中.
　　if msg=WM_RBUTTONDOWN then
　　'檢測到滑鼠右擊訊息,這裡就可以加入我們的處理程式碼如:
　　msgbox "你好,滑鼠右擊訊息!"
　　'需要注意,如果這兒不加入任何程式碼,則相當於吃掉了這條訊息. else
　　'如果我們不是我們需要處理的訊息,則將之送回原來的程式.
　　wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam) endif End Function 
'以下程式碼在窗體中: '本例以擷取一個combobox控制元件的訊息為例,假設該'控制元件的名字是:comb1 Private Sub subclass() Dim ret As Long
　　'記錄Window Procedure的地址
　　preWinProc = GetWindowLong(comb1.hwnd, GWL_WNDPROC)
　　'開始擷取訊息,並將訊息交給wndproc過程處理.
　　ret = SetWindowLong(comb1.hwnd, GWL_WNDPROC, AddressOf wndproc) End Sub
　　Private Sub EndSubclass()
　　Dim ret As Long
　　'取消訊息擷取，結束子分類過程.
　　ret = SetWindowLong(comb1.hwnd, GWL_WNDPROC, preWinProc) End Sub
　　'當要擷取其它控制元件的訊息時,只需要將subclass與EndSubclass過程中的comb1.h wnd換成該控制元件的控制元件.hwnd即可. '過程中注意存檔,因為如果一時不慎會造成當機