Windows 窗體 RichTextBox 控制元件用於顯示、輸入和操作格式文字。RichTextBox 控制元件除了做 TextBox 控制元件所做的每件事外，還可以顯示字型、顏色和連結，從檔案載入文字和載入嵌入的影象，以及查詢指定的字元。RichTextBox 控制元件通常用於提供類似字處理程式（如 Microsoft Word）的文字操作和顯示功能。RichTextBox 控制元件可以顯示捲軸，這一點與 TextBox 控制元件相同；但是與 TextBox 控制元件不同的是，RichTextBox 控制元件的預設設定是水平和垂直捲軸均根據需要顯示，並且擁有更多的捲軸設定。

與 TextBox 控制元件一樣，顯示的文字由 Text 屬性設定。RichTextBox 控制元件有許多格式文字屬性。有關這些屬性的詳細資訊，請參見為 Windows 窗體 RichTextBox 控制元件設定字型屬性和在 Windows 窗體 RichTextBox 控制元件中設定縮排、懸掛縮排和帶專案符號的段落。為操作檔案，LoadFile 和 SaveFile 方法可以顯示和編寫包括純文字、Unicode 純文字和 RTF 格式在內的多種檔案格式。可能的檔案格式在 RichTextBoxStreamType 列舉中列出。可以使用 Find 方法查詢文字字串或特定字元。

也可以透過將 DetectUrls 屬性設定為 true 並編寫處理 LinkClicked 事件的程式碼，將 RichTextBox 控制元件用於 Web 樣式的連結。有關更多資訊，請參見使用 Windows 窗體 RichTextBox 控制元件顯示 Web 樣式的連結。將 SelectionProtected 屬性設定為 true 可以防止使用者操作控制元件中的部分或全部文字。

在 RichTextBox 控制元件中可以透過呼叫 Undo 和 Redo 方法撤消和重複大多數編輯操作。CanRedo 方法使您可以確定使用者撤消的上一操作是否可以重新應用於控制元件。

例:

Private Sub Command1_Click()

With RichTextBox1

.SelStart = 0

.SelLength = 3

.SelColor = vbRed

.SelBold = True

End With

End Sub

Private Sub Command2_Click()

With RichTextBox1

.SelStart = 3

.SelLength = 3

.SelFontSize = 12

.SelItalic = True

End With

End Sub

Private Sub Form_Load()

RichTextBox1.Text = "123456"

End Sub

================================================================

With RichTextBox1

.SelStart = 0

.SelLength = 3 ’長度為3

.SelColor = vbRed ’顏色

.SelBold = True ’粗為真

End With

With RichTextBox1

.SelStart = 3

.SelLength = 3 ’長度3

.SelFontSize = 12 ’字大小：12號

.SelItalic = True

End With

==============================================================

With RichTextBox1

.SelStart = 0 ’從第0個字元開始選擇(從0開始，然後1，2，……)

.SelLength = 3 ’一共選擇3個字元

.SelColor = vbRed ’將選擇了的字元的顏色設為紅色

.SelBold = True ’將選擇了的字元的粗體設為真

End With

==============================================================

Private Sub Form_Load()

RichTextBox1.Text = "華人" & vbCrLf & "網路公司"

RichTextBox1.Font = "宋體"

RichTextBox1.SelStart = 0

RichTextBox1.SelLength = 3

RichTextBox1.SelFontName = "宋體"

RichTextBox1.SelFontSize = 25

RichTextBox1.SelColor = vbBlue

RichTextBox1.SelStart = 5

RichTextBox1.SelLength = 4

RichTextBox1.SelFontName = "黑體"

RichTextBox1.SelFontSize = 18

RichTextBox1.SelColor = vbRed

RichTextBox1.SelLength = 0

End Sub