'=========================================================='| 模 塊 名 | TextBoxDisableAbility'| 說  明 | 禁止文本框的功能'==========================================================Option ExplicitPrivate Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As LongPrivate 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 LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const GWL_WNDPROC = (-4)Private Const WM_CUT = &H300 '-------------剪切消息Private Const WM_COPY As Long = &H301 '-------------復制消息Private Const WM_PASTE As Long = &H302 '-------------粘貼消息Private Const WM_CLEAR = &H303 '-------------刪除消息[右鍵菜單的刪除]Private Const EM_UNDO = &HC7 '-------------撤銷消息Private Const WM_CONTEXTMENU = &H7B '-------------右鍵菜單Private prevWndProc   As LongPrivate Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long  Select Case Msg  Case WM_CUT, WM_COPY, WM_PASTE, WM_CLEAR, EM_UNDO, WM_CONTEXTMENU    '這里處理自定義的事件,最好為空  Case Else    '回調系統函數處理    WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)  End SelectEnd FunctionPublic Sub DisableAbility(TargetTextBox As TextBox)  '程序啟動時調用這個  prevWndProc = GetWindowLong(TargetTextBox.hwnd, GWL_WNDPROC)  SetWindowLong TargetTextBox.hwnd, GWL_WNDPROC, AddressOf WndProcEnd Sub