添加一个标准模块,代码如下:
Option Explicit
Public OldProc As Long
Public Const GWL_WNDPROC = (-4)
Public Const WM_CONTEXTMENU = &H7B&
Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As 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 Function TextWndProc(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
If wMsg = WM_CONTEXTMENU Then
TextWndProc = 0
Exit Function
End If
TextWndProc = CallWindowProc(OldProc, hWnd, wMsg, wParam, lParam)