Question

vb 怎样让 RichTextBox 中的文字 无法让鼠标拖动选中

就是 不让人复制 ， （鼠标选中后 ctrl +c 也不行）

Answer 1

三种方法：
1、将RichTextBox的Enabled设置成FALSE，但这样会变成灰色，不完美；
2、添加一个Frame，将RichTextBox添加到Frame里，再将Frame的Enabled设置成FALSE，同时将Frame的BorderStyle设置成0（即无边框），但这样什么都做不了；
3、在RichTextBox的KeyDown事件里加入如下代码：
IF Shift=2 THEN KeyCode = 0 '当按下Ctrl键时，让KeyCode无效。
依你自己的需求选吧，我能想到的简单的方法暂只有这几个了。

Answer 2

我写的，亲测可行：
Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
RichTextBox1.SelLength = 0 '在鼠标拖选的时候会变成无法选中
End Sub
Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
RichTextBox1.SelLength = 0 ‘按ctrl+c的时候会变成未选中状态
End Sub

Answer 3

为文本框设置一个窗口回调函数，在回调函数中判断WM_MOUSEMOVE消息，如果是这个消息就忽略，这样就可以达到不能选中文本的效果。