Ϊ´°ÌåÌí¼ÓÒ»¸öÄ£¿é£¬ÔÚÄ£¿éÖбàд¹³×Óº¯Êý£º

Ê×ÏÈÉùÃ÷ʹÓõÄ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 = %26H205
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
     ʲôÊÂÒ²²»×ö
    »òµ¯³ö×Ô¼º¶¨ÖƵIJ˵¥
   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ϵ÷ÊÔͨ¹ý¡£