如何使RichTextBox的内容不可选。

下载源代码

下载 SourceRichTextBoxBg - 49 KB

引言

如何使RichTextBox 的内容不可选。

在许多情况下，您可能希望在应用程序中显示一些文本，同时又想阻止用户复制内容。一种实现此目的的方法是使用标签，但标签不支持文本格式和RTF格式。因此，在这种情况下，这个简单的教程可以完全解决问题。

本教程解释了如何使用RichTextBox，并且还可以使文本不可选。

使用代码

‘创建一个VB.NET解决方案。
‘您将在其中看到一个form1。
‘现在将Richtextbox1添加到此窗体。
‘将其命名为richtextbox1。
‘添加一个标签，将其命名为Label1。

‘现在为源代码添加几个事件。

‘窗体加载事件

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

RichTextBox1.Rtf = File.ReadAllText("c:\m1.rtf") ‘输入文件为rtf格式

RichTextBox1.ReadOnly = True
RichTextBox1.BorderStyle = BorderStyle.None ‘可选
RichTextBox1.WordWrap = True ‘可选

End Sub

‘为Richtextbox1添加事件

Private Sub RichTextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.GotFocus

RichTextBox1.SelectionLength = 0
Label1.Focus()

End Sub

Private Sub RichTextBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDoubleClick

RichTextBox1.SelectionLength = 0
Label1.Focus()

End Sub

Private Sub RichTextBox1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged

RichTextBox1.SelectionLength = 0
Label1.Focus()

End Sub

关注点

多尝试使用.NET控件。

访问 IPStudents.info 获取更多关于VB.NET、PHP等的精彩代码...

历史

第一个，也是我猜的最后一个版本...