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

Posted 2023-05-11

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

三种方法：
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无效。
依你自己的需求选吧，我能想到的简单的方法暂只有这几个了。 参考技术A 我写的，亲测可行：
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 参考技术B 为文本框设置一个窗口回调函数，在回调函数中判断WM_MOUSEMOVE消息，如果是这个消息就忽略，这样就可以达到不能选中文本的效果。

VB。如何把 TEXT 文本框中选中的字体 变成想要的颜色

参考技术A 如何把
TEXT
文本框中选中的字体
变成想要的颜色
尽量要用到：SELTEXT,COMMONDIALOG,FORCOLOR。有其他方法也可以。
满意答案┢┦aΡpy纯7级2008-10-10文本框只能设置全部字体的颜色，无法单独改变部分字体的颜色，改用RichTextBox吧！方法如下：右击工具箱选“部件”，然后选中“Microsoft
Rich
TextBox
Control6.0”，在窗体上画一个RichTextBox控件，然后在代码中通过SelColor属性就可以改变选中的字体的颜色。