禁用文本框右键菜单

'模块代码Option ExplicitPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long'设置窗口信息Private 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'调用窗口处理Private Const WM_RBUTTONDOWN = &H204Private Const GWL_WNDPROC = (-4)Private lpOldWndFunc As Long'--------------------------------------------------------------------------------------'函 数 名: WindowProcedure'描 述: 窗口消息处理函数'--------------------------------------------------------------------------------------Private Function WindowProcedure(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Select Case wMsg Case WM_RBUTTONDOWN Case Else WindowProcedure = CallWindowProc(lpOldWndFunc, hWnd, wMsg, wParam, _ lParam) '原窗口消息处理 End SelectEnd Function'--------------------------------------------------------------------------------------'函 数 名: SubClass'描 述: 子类化窗口'--------------------------------------------------------------------------------------Public Sub SubClass(ByVal hWnd As Long) lpOldWndFunc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProcedure) '新窗口消息处理End Sub'--------------------------------------------------------------------------------------'函 数 名: UnSubClass'描 述: 取消子类化'--------------------------------------------------------------------------------------Public Sub UnSubClass(ByVal hWnd As Long) Call SetWindowLong(hWnd, GWL_WNDPROC, lpOldWndFunc) '恢复原窗口消息处理End Sub'窗口代码Option Explicit'--------------------------------------------------------------------------------------'事 件 名: Form_Load'描 述: ----'--------------------------------------------------------------------------------------Private Sub Form_Load() Call SubClass(Text1.hWnd) '子类化窗口End Sub'--------------------------------------------------------------------------------------'事 件 名: Form_Unload'描 述: ----'--------------------------------------------------------------------------------------Private Sub Form_Unload(Cancel As Integer) Call UnSubClass(Text1.hWnd) '取消子类化End Sub