System.Windows.Controls 命名空間

項(xiàng)目->部件->Microsoft Rich TextBox control

VB的RichTextBox支持超過(guò)64K的文本。你可以將MaxLength設(shè)為0，這樣文本的大小僅與內(nèi)存多少有關(guān)。

Windows 窗體 RichTextBox 控件用于顯示、輸入和操作格式文本。RichTextBox 控件除了做 TextBox 控件所做的每件事外，還可以顯示字體、顏色和鏈接，從文件加載文本和加載嵌入的圖像，以及查找指定的字符。RichTextBox 控件通常用于提供類(lèi)似字處理程序（如 Microsoft Word）的文本操作和顯示功能。RichTextBox 控件可以顯示滾動(dòng)條，這一點(diǎn)與 TextBox 控件相同；但是與 TextBox 控件不同的是，RichTextBox 控件的默認(rèn)設(shè)置是水平和垂直滾動(dòng)條均根據(jù)需要顯示，并且擁有更多的滾動(dòng)條設(shè)置。

與 TextBox 控件一樣，顯示的文本由 Text 屬性設(shè)置。RichTextBox 控件有許多格式文本屬性。有關(guān)這些屬性的詳細(xì)信息，請(qǐng)參見(jiàn)為 Windows 窗體 RichTextBox 控件設(shè)置字體屬性和在 Windows 窗體 RichTextBox 控件中設(shè)置縮進(jìn)、懸掛縮進(jìn)和帶項(xiàng)目符號(hào)的段落。為操作文件，LoadFile 和 SaveFile 方法可以顯示和編寫(xiě)包括純文本、Unicode 純文本和 RTF 格式在內(nèi)的多種文件格式?？赡艿奈募袷皆?/span> RichTextBoxStreamType 枚舉中列出?？梢允褂?/span> Find 方法查找文本字符串或特定字符。

也可以通過(guò)將 DetectUrls 屬性設(shè)置為 true 并編寫(xiě)處理 LinkClicked 事件的代碼，將 RichTextBox 控件用于 Web 樣式的鏈接。有關(guān)更多信息，請(qǐng)參見(jiàn)使用 Windows 窗體 RichTextBox 控件顯示 Web 樣式的鏈接。將 SelectionProtected 屬性設(shè)置為 true 可以防止用戶(hù)操作控件中的部分或全部文本。

在 RichTextBox 控件中可以通過(guò)調(diào)用 Undo 和 Redo 方法撤消和重復(fù)大多數(shù)編輯操作。CanRedo 方法使您可以確定用戶(hù)撤消的上一操作是否可以重新應(yīng)用于控件。

例:

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 ’長(zhǎng)度為3

.SelColor = vbRed ’顏色

.SelBold = True ’粗為真

End With

With RichTextBox1

.SelStart = 3

.SelLength = 3 ’長(zhǎng)度3

.SelFontSize = 12 ’字大?。?/span>12號(hào)

.SelItalic = True

End With

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

With RichTextBox1

.SelStart = 0 ’從第0個(gè)字符開(kāi)始選擇(從0開(kāi)始，然后1，2，……)

.SelLength = 3 ’一共選擇3個(gè)字符

.SelColor = vbRed ’將選擇了的字符的顏色設(shè)為紅色

.SelBold = True ’將選擇了的字符的粗體設(shè)為真

End With

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

Private Sub Form_Load()

RichTextBox1.Text = "中國(guó)人" & vbCrLf & "網(wǎng)絡(luò)公司"

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