为窗体添加一个模块，在模块中编写钩子函数：
首先声明使用的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下调试通过。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
