VB中抑制控件的彈出菜單
p> 在VB的某些控件如文本框(TEXTBOX)、組合框(COMBOBOX)等上單擊鼠標右鍵都會有缺省的彈出菜單,這些缺省彈出菜單,在某些情況下我們并不需要或者根據實際情況需要使用自己的彈出菜單,那么如何抑制控件的彈出菜單呢?我們需要檢測控件的鼠標右鍵單擊消息,然后什么事也不做或者使用自己的彈出菜單,這需要編寫一個鉤子函數來完成。下面以抑制文本框的彈出菜單為例說明實現方法。
為窗體添加一個模塊,在模塊中編寫鉤子函數:
首先聲明使用的API函數及常量,
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 LongDeclare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) _ As LongPublic Const GWL_WNDPROC = -4Public Const WM_RBUTTONUP = &H205Public lpPrevWndProc As LongPrivate lngHWnd As Long
鉤子函數編寫:
Public Sub Hook(hWnd As Long) lngHWnd=hWnd lpPrevWndProc = SetWindowLong(lngHWnd, GWL_WNDPROC, AddressOf WindowProc)End Sub
鉤子函數撤消:
Public Sub UnHook()Dim lngReturnValue As LonglngReturnValue = SetWindowLong(lngHWnd, GWL_WNDPROC, lpPrevWndProc)End SubFunction WindowProc(ByVal hw As Long, ByVal uMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Select Case uMsg檢測鼠標擊鍵消息,如果是單擊右鍵 Case WM_RBUTTONUP 什么事也不做 或彈出自己定制的菜單 Case ElseWindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam) End SelectEnd Function
在窗體中添加一個文本框,在窗體的Form_Load事件中啟動鉤子函數:
Private Sub Form_Load() Call Hook(Text1.hWnd)End Sub
在窗體的Form_Unload事件中撤消鉤 ?
Private Sub Form_Unload(Cancel As Integer) Call UnHookEnd Sub
注意,在窗體退出時必須撤消鉤子函數,否則程序會出錯。
本程序在VB5.0、WIN98下調試通過。