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

Posted 2023-03-22

不要网上直接复制过来的 我要针对我这个问题的答案,因为我都已经在网上搜索了,没有找到我要的答案. ①限制键盘的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这段只限制了按键的粘贴,以及右键的复制,我还要限制按键的复制以及右键菜单的粘贴谢谢解答 回答详细的给高分

（Lock属性只是让文本框不能接收用户输入，但还是可以粘贴的。）在窗体中画一个文本框，打开代码窗口，把代码复制进去：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 3 Then
MsgBox "请勿非法复制！"
KeyAscii = 0
ElseIf KeyAscii = 22 Then
MsgBox "请勿非法粘贴！"
KeyAscii = 0
End If
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "禁止在文本框中使用右键！"
End If
End Sub 参考技术A 晕,你点text控件,看看属性栏有这个属性米, locked有这个属性米,有的话直接选择true,我忘了,现在也米电脑,不过跟据你的代码看,应该是　是否可编辑属性　吧.

为啥有的图片能复制不能粘贴

为什么有的图片能复制不能粘贴

图片里面含有特殊代码，禁止别人复制粘贴
防止网页文字复制代码（禁止左键选）
<SCRIPT LANGUAGE=javascript>
function click()
alert('禁止你的左键复制！')
function click1()
if (event.button==2) alert('禁止右键点击~！')
function CtrlKeyDown()
if (event.ctrlKey) alert('不当的拷贝将损害您的系统！')
document.onkeydown=CtrlKeyDown;
document.onselectstart=click;
document.onmousedown=click1;
</SCRIPT>

复制以上代码放到头部信息里就100％可以了! 参考技术A 图片复制有两个不同的意思：
第一个是图片文件的复制，可以粘贴在桌面；
第二种是图片内容的复制，要在文档或输入框了才能粘贴的；
查看图片时直接框中复制是对图片内容的复制，不能粘贴在桌面

参考资料：百度一下