不屏蔽TEXTBOX的右键菜单，仅仅使其无效，有什么办法？

Question

就是使“复制”“粘贴”这些功能有成为灰色的，没有作用，有什么简单的办法呢？

Answer 1

如果只是让别人不能复制的话，试试这样
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Clipboard.Clear
End Sub

Answer 2

Private Sub Form_Load()
Text1.Locked = True
End SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Text1.SelLength = 0
End Sub

Answer 3

supergreenbean(超级绿豆) 的方法挺有意思的，但我发现一个问题，就是如果在其他的程序
中复制，然后到本程序的TEXTBOX中点右键，第一次是可以粘贴的。可能我没有说清楚，我的
目的是让别人不能粘贴，而不是防止别人复制。
而of123的办法有个缺点，就是textbox连输入都不行了啊！

Answer 4

我找到一个方法了！将supergreenbean(超级绿豆) 的语句放到mouse_down事件里就没有上面
的问题，有谁知道是为什么吗？

Answer 5

当然是时间先后了。你的右键有用就的down了，如果是up那左键也行啦。

Answer 6

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then Text1.Enabled = False
End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then Text1.Enabled = True
End Sub