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 If
End Sub这段只限制了按键的粘贴,以及右键的复制,我还要限制按键的复制以及右键菜单的粘贴

Answer 1

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '这段为API声明
Private Function KeyIsDown(vKeyCode) As Boolean '检查键值
KeyIsDown = (GetAsyncKeyState(vKeyCode) < 0)
End Function
Private Sub EditCut_Click()
Clipboard.Clear
Clipboard.SetText Screen.ActiveControl.SelText
Screen.ActiveControl.SelText = ""
End Sub
Private Sub EditCopy_Click()
Clipboard.Clear
Clipboard.SetText Screen.ActiveControl.SelText
End Sub
Private Sub EditDelete_Click()
Screen.ActiveControl.SelText = ""
End Sub
Private Sub EditSelectAll_Click()
Screen.ActiveControl.SelStart = 0
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'禁止 Ctrl+V 粘贴功能 keyascii=22 是 Ctrl+V
If KeyAscii = 22 Then KeyAscii = 0
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then '如果 按下的鼠标键值=右键 那么
Text1.Enabled = False 'Text1调整为不可用
Text1.Enabled = True 'Text1调整为可用
Text1.SetFocus 'Text1或得到焦点
PopupMenu mnuEdit '弹出自己想要的菜单
End If '结束如果
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) '判断　shift+insert(45)
If KeyIsDown(vbKeyShift) And KeyCode = 45 Then KeyCode = 0
If KeyCode = 93 Then PopupMenu mnuEdit
End Sub 希望我的回答让您满意 答案提供者：Zhang.CK [B`L`A]