System.Windows.Controls 命名空間
項目->部件->Microsoft Rich TextBox control
VB的RichTextBox支持超過(guò)64K的文本。你可以將MaxLength設為0,這樣文本的大小僅與內存多少有關(guān)。
Windows 窗體 RichTextBox 控件用于顯示、輸入和操作格式文本。RichTextBox 控件除了做 TextBox 控件所做的每件事外,還可以顯示字體、顏色和鏈接,從文件加載文本和加載嵌入的圖像,以及查找指定的字符。RichTextBox 控件通常用于提供類(lèi)似字處理程序(如 Microsoft Word)的文本操作和顯示功能。RichTextBox 控件可以顯示滾動(dòng)條,這一點(diǎn)與 TextBox 控件相同;但是與 TextBox 控件不同的是,RichTextBox 控件的默認設置是水平和垂直滾動(dòng)條均根據需要顯示,并且擁有更多的滾動(dòng)條設置。
與 TextBox 控件一樣,顯示的文本由 Text 屬性設置。RichTextBox 控件有許多格式文本屬性。有關(guān)這些屬性的詳細信息,請參見(jiàn)為 Windows 窗體 RichTextBox 控件設置字體屬性和在 Windows 窗體 RichTextBox 控件中設置縮進(jìn)、懸掛縮進(jìn)和帶項目符號的段落。為操作文件,LoadFile 和 SaveFile 方法可以顯示和編寫(xiě)包括純文本、Unicode 純文本和 RTF 格式在內的多種文件格式??赡艿奈募袷皆?/span> RichTextBoxStreamType 枚舉中列出??梢允褂?/span> Find 方法查找文本字符串或特定字符。
也可以通過(guò)將 DetectUrls 屬性設置為 true 并編寫(xiě)處理 LinkClicked 事件的代碼,將 RichTextBox 控件用于 Web 樣式的鏈接。有關(guān)更多信息,請參見(jiàn)使用 Windows 窗體 RichTextBox 控件顯示 Web 樣式的鏈接。將 SelectionProtected 屬性設置為 true 可以防止用戶(hù)操作控件中的部分或全部文本。
在 RichTextBox 控件中可以通過(guò)調用 Undo 和 Redo 方法撤消和重復大多數編輯操作。CanRedo 方法使您可以確定用戶(hù)撤消的上一操作是否可以重新應用于控件。
例:
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 =
.SelColor = vbRed ’顏色
.SelBold = True ’粗為真
End With
With RichTextBox1
.SelStart = 3
.SelLength =
.SelFontSize =
.SelItalic = True
End With
==============================================================
With RichTextBox1
.SelStart =
.SelLength =
.SelColor = vbRed ’將選擇了的字符的顏色設為紅色
.SelBold = True ’將選擇了的字符的粗體設為真
End With
==============================================================
Private Sub Form_Load()
RichTextBox1.Text = "中國人" & 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
聯(lián)系客服