Microsoft KB Archive/143273

= How To Insert TAB Characters in RichTextBox Control in VB =

Article ID: 143273

Article Last Modified on 7/1/2004

-

APPLIES TO


 * Microsoft Visual Basic 5.0 Learning Edition
 * Microsoft Visual Basic 6.0 Learning Edition
 * Microsoft Visual Basic 5.0 Professional Edition
 * Microsoft Visual Basic 6.0 Professional Edition
 * Microsoft Visual Basic 5.0 Enterprise Edition
 * Microsoft Visual Basic 6.0 Enterprise Edition
 * Microsoft Visual Basic 4.0 Standard Edition
 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 32-Bit Enterprise Edition

-



This article was previously published under Q143273



SUMMARY
The RichTextBox control allows you to create RTF documents from within your Visual Basic program. If you press the TAB key while a RichTextBox control has the focus, the focus is moved to the next control in the tab order rather than inserting a tab character into the RichTextBox control. This article explains how you can insert the TAB character into the RichTextBox control itself.



MORE INFORMATION
At run-time, a user must press CTRL+TAB to insert a TAB character in a RichTextBox control. However, most people are accustomed to just simply pressing the TAB key. Whenever the TAB key is pressed from within a RichTextBox control, the focus is immediately set to the next control on the form.

In the demonstration program below, we change the TabStop property of all controls on the form to False. While the RichTextBox control has the focus, the TAB key is prevented from setting the focus to another control. This is because the TabStop property is set to False. Therefore, the TAB control character is correctly inserted into the text of the RichTextBox control.

How to Create the Demonstration Program
The demonstration program below shows how to insert a TAB control character in the RichTextBox control provided in Visual Basic.

 Create a new project in Visual Basic. Form1 is created by default. Add a RichTextBox control to Form1.  Add the following code to Form1: Dim arrTabStop As Boolean

Private Sub RichTextBox1_GotFocus 'Store the TabStop property for each control on the 'form and then set the TabStop property of each 'control to False ReDim arrTabStop(0 To Controls.Count - 1) As Boolean For i = 0 To Controls.Count - 1 arrTabStop(i) = Controls(i).TabStop Controls(i).TabStop = False Next End Sub

Private Sub RichTextBox1_LostFocus 'Restore the Tabstop property for each control on the form For i = 0 To Controls.Count - 1 Controls(i).TabStop = arrTabStop(i) Next End Sub

 Add two Command Buttons control to Form1.

Execute the demonstration program by pressing the F5 function key. The focus is set to the RichTextBox control. Type some text into the RichTextBox control. Whenever desired, you can press the TAB key to insert that control character into the text you are typing. Notice that pressing TAB does not move the focus to the Command Button control; you must click the mouse pointer on the command button itself to move the focus to it.

Additional query words: kbVBp400 kbVBp500 kbVBp600 kbVBp kbdsd kbDSupport kbControl

Keywords: kbhowto KB143273

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.