How to make content of RichTextBox unselectable.

Download Source Code

Download SourceRichTextBoxBg - 49 KB

Introduction

How to make content of RichTextBox unselectable.<o:p>

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

‘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.<o:p>

‘Now add few Events to source code.<o:p>

‘Form load event<o:p>

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<o:p>

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

RichTextBox1.ReadOnly = True<o:p>
RichTextBox1.BorderStyle = BorderStyle.None ‘optional
RichTextBox1.WordWrap = True ‘optional <o:p>

End Sub<o:p>

<o:p>

‘Add events to Richtextbox1

Private Sub RichTextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.GotFocus<o:p>

RichTextBox1.SelectionLength = 0<o:p>
Label1.Focus()<o:p>

End Sub<o:p>

<o:p> Private Sub RichTextBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDoubleClick<o:p>

RichTextBox1.SelectionLength = 0
Label1.Focus()<o:p>

<o:p> End Sub<o:p>

<o:p>

Private Sub RichTextBox1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged<o:p>

RichTextBox1.SelectionLength = 0
Label1.Focus()<o:p>

End Sub

Points of Interest

Just play more with .NET controls.

Just visit IPStudents.info for more exciting codes on VB.NET ,PHP and more...

History

First and I guess Last version...