Question

VB在textbox中怎么禁止右键菜单中的复制粘贴功能

不要网上直接复制过来的 我要针对我这个问题的答案,因为我都已经在网上搜索了,没有找到我要的答案. ①限制键盘的ctrl+c, ctrl+v的功能, ②限制鼠标右键出来的右键菜单中的复制粘贴功能 另外shift and 2 是什么意思可以选用清除剪切板功能 或者textbox1.locked=false给点解释 我找到的功能如下Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)    If KeyCode = vbKeyV And (Shift And 2) Then        Text2.Locked = True    End If    If KeyCode = vbKeyC And (Shift And 2) Then    Text2.Locked = True    End IfEnd Sub这段只限制了按键的粘贴,以及右键的复制,我还要限制按键的复制以及右键菜单的粘贴谢谢解答 回答详细的给高分

Answer 1

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyV And Shift = 2 Then'其中,当ctrl被按下时,Shift的值为2.
Text1.Locked = True
MsgBox "禁止粘贴."
Text1.Locked = False
End If
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = MouseButtonConstants.vbRightButton Then
MsgBox "右键菜单被禁用.", vbOKOnly, "对不起"
End If
End Sub

'这样应该是行的.

Answer 2

'==========================================================
'| 模 块 名 | TextBoxDisableAbility
'| 说  明   | 禁止文本框的功能
'==========================================================
Private Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case Msg
        '看下面的英文，应该知道是屏蔽啥功能的吧COPY，PASTE。。。。
        Case WM_CONTEXTMENU , WM_CUT, WM_COPY, WM_PASTE, WM_CLEAR, EM_UNDO
            '这里处理自定义的事件,最好为空
        Case Else
            '回调系统函数处理
            WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)
    End Select
End Function

Rem 屏蔽输入框右键
Public Sub DisableAbility(TargetTextBox As TextBox)
    prevWndProc = GetWindowLong(TargetTextBox.hwnd, GWL_WNDPROC)
    SetWindowLong TargetTextBox.hwnd, GWL_WNDPROC, AddressOf WndProc
End Sub

调用方法：
    Call DisableAbility(输入框名)

Answer 3

1、你可以给文本框自己做一个空右建菜单。