VB中抑制控件的彈出菜單

在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 Long
Declare Function SetWindowLong Lib
"user32" Alias "SetWindowLongA" _
　(ByVal hWnd As Long, ByVal nIndex
　 As Long, ByVal dwNewLong As Long)　_
　 As Long
Public Const GWL_WNDPROC = -4
Public Const WM_RBUTTONUP = &H205
Public lpPrevWndProc As Long
Private 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 Long
lngReturnValue = SetWindowLong(lngHWnd,
GWL_WNDPROC, lpPrevWndProc)
End Sub
Function 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 Else
WindowProc = CallWindowProc(lpPrevWndProc,
hw, uMsg, wParam, lParam)
　 End Select
End Function

在窗體中添加一個文本框，在窗體的Form_Load事件中啟動鉤子函數：

Private Sub Form_Load()
Call Hook(Text1.hWnd)
End Sub

在窗體的Form_Unload事件中撤消鉤子

Private Sub Form_Unload(Cancel As Integer)
　 Call UnHook
End Sub

注意，在窗體退出時必須撤消鉤子函數，否則程序會出錯。

本程序在VB5.0、WIN98下調試通過。