How to make content of RichTextBox unselectable.

you want to display some text in your application and side-by-side you want to prevent the user from copying the content. . One way to implement this use label, but label do not support the formatting of the text and RTF formats.

Download Source Code

Download SourceRichTextBoxBg - 49 KB

Introduction

How to make content of RichTextBox unselectable.

In many situations, if you want to display some text in your application and side-by-side you want to prevent the user from copying the content. One way to implement this use label, but label do not support the formatting of the text and RTF formats. So in that case this simple tutorial can solve the problem completely.

This tutorial explains the way of using a RichTextBox and it also makes the text unselectable.

Using the code

‘The project starts from here.

‘Create a VB.NET solution.
‘You will see a form1 in it.
‘Now Add Richtextbox1 to this form.
‘Name it as richtextbox1.
‘Add a Label, Name it as Label1.

‘Now add few Events to source code.

‘Form load event

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

RichTextBox1.Rtf = File.ReadAllText("c:\m1.rtf") ‘input file in rtf format

RichTextBox1.ReadOnly = True
RichTextBox1.BorderStyle = BorderStyle.None ‘optional
RichTextBox1.WordWrap = True ‘optional

End Sub

‘Add events to 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