richtextbox的使用方法

1、richtextbox 的用法:With RichTextBoxI.SelStart = 0.SelLength = 3'長(zhǎng)度為 3.SelColor = vbRed '顏色.SelBold = True '粗為真End WithWith RichTextBox1.SelStart = 3.SelLength = 3'長(zhǎng)度 3.SelFontSize = 12 '字大?。?2 號(hào).SelItalic = TrueEnd WithWith RichTextBox1.SelStart = 0'從第0個(gè)字符開(kāi)始選擇（從0開(kāi)始、然后1, 2,）.SelL

2、ength = 3' 一共選擇3個(gè)字符.SelColor = vbRed '將選擇了的字符的顏色設(shè)為紅色.SelBold = True '將選擇了的字符的粗體設(shè)為真End WithPrivate Sub Form_Load()RichTextBox1.Text =" 中國(guó)人"& vbCrLf & "網(wǎng)絡(luò)公司"RichTextBox1.Font =" 宋體"RichTextBox1.SelStart = 0RichTextBox1.SelLength = 3RichTextBox1.SelFont

3、Name =" 宋體"RichTextBox1.SelFontSize = 25RichTextBox1.SelC010r = vbBlueRichTextBox1.SelStart = 5RichTextBox1.SelLength = 4RichTextBox1.SelFontName =" 黑體"RichTextBox1.SelFontSize = 18RichTextBox1.SelC010r = vbRedRichTextBox1.SelLength = 0End SubWindows窗體RichTextBox 控件介紹Windows窗體Ric

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

5、控件有許 多格式文本屬性。有關(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)的多種文件格式?？赡艿奈募袷皆?RichTextBoxStreamType 枚舉中列出?？梢允褂肍ind 方 法查找文本字符串或特定字符。也可以通過(guò)將DetectUrls 屬性設(shè)置為true 并編寫(xiě)處理LinkClicked 事件的 代碼，將RichTextBox控件用于We

6、b樣式的鏈接。有關(guān)更多信息，請(qǐng)參見(jiàn)使用 Windows窗體RichTextBox 控件顯示 Web樣式的鏈接。將 SelectionProtected屬性設(shè)置為true 可以防止用戶操作控件中的部分或全部文本。在RichTextBox控件中可以通過(guò)調(diào)用 Undo和Redo方法撤消和重復(fù)大多數(shù)編 輯操作。CanRedo方法使您可以確定用戶撤消的上一操作是否可以重新應(yīng)用于控 件。RichTextBox控件提供了一些屬性，通過(guò)這些屬性，可對(duì)該控件中任何部分的文 本使用不同的格式。用這些屬性，可以將文本變?yōu)榇煮w或斜體，改變文本的顏色，特性 以RTF格式或ASCII文本格式打開(kāi)或保存文件?？梢允褂迷摽丶?/p>

7、的方法 （LoadFile和SaveFile ）,直接讀寫(xiě)文件。也可以用該控件的屬性，比如SelRTF和TextRTF ,聯(lián)合Visual Basic的文件輸入輸出語(yǔ)句讀寫(xiě)文,將.rtf文件的內(nèi)容裝入RichTextBox控件，只需將該文件（比如從Windows 95 ”資源管理器”中）的內(nèi)容直接拖入該控件，或者將其它應(yīng) 用程序（比如Microsoft Word ）中使用文件的突出顯示部分直接拖入該 控件。 設(shè)置FileName屬性，將.rtf 或.txt文件的內(nèi)容裝入該控件。 用SelPrint方法打印RichTextBox控件中的全部或部分文本。 將RichTextBox 控件綁定到Dat

8、a控件，可以處理Microsoft Access數(shù)據(jù)庫(kù)的Memo字段，或者其它數(shù)據(jù)庫(kù)中大型的文本字段（比如 SQL服務(wù)器中的TEXT數(shù)據(jù)類型）在運(yùn)行時(shí)，用OLEObject集合的Add方法，將嵌入對(duì)象，比如位圖、圖 標(biāo)、應(yīng)用程序圖標(biāo)，加到該控件中。在設(shè)計(jì)時(shí)或運(yùn)行時(shí)，可以拖放任何嵌 入對(duì)象到控件中，包括文檔，比如 Microsoft Excel 的電子表格和 Microsoft Word 文檔等。按照缺省規(guī)定，RichTextBox沒(méi)有滾動(dòng)條。在運(yùn)行時(shí)，如果在該控件中裝入了較 大的文件，最終用戶就不能看到文件的全部?jī)?nèi)容了。 為使用戶能夠方便地進(jìn)行滾 動(dòng)，可將其ScrollBars 屬性設(shè)置為1

9、（水平的）、2 （豎直的）或3 （兩個(gè)都 有）。這必須在設(shè)計(jì)時(shí)完成，因?yàn)?ScrollBars 屬性在運(yùn)行時(shí)是只讀的。用LoadFile 和SaveFile 方法打開(kāi)和保存文件 用LoadFile 和SaveFile 方法可以方便地為 RichTextBox 控件打開(kāi)或保存RTF文件。要打開(kāi)文件，可用 CommonDialog控件提供路徑名，如下所示：Private Sub OpenFile()'RichTextBox 控件的名稱是 “ rtfData ” 。'CommonDialog 名為 “dlgOpenFile ” 。為文件名聲明String 變量。顯示“打開(kāi)文件”對(duì)話框

10、，并將變量設(shè)置 為文件名。Dim strOpen As StringdlgOpenFile.ShowOpenstrOpen = dlgOpenFile.FileName ' 用 LoadFile 方法打開(kāi)該文件。rtfData.LoadFile strOpenEnd Sub用SaveFile方法，保存文件也同樣簡(jiǎn)便:Private Sub SaveFile() Dim strNewFile As String dlgOpenFile.ShowSave strNewFile = dlgOpenFile.FileName rtfData.SaveFile strNewFileEnd Sub

11、注意如果文件中包含了該控件不能支持的RTF編碼，僅相關(guān)的文本在RichTextBox控件中將不會(huì)出現(xiàn)。用 SelFontName、SelFontSize 和 SelFontColor 設(shè)置字體屬性要改變RichTextBox控件中的字體特性，可以使用SelFontName、SelFontSize 和 SelFontColor 屬性。通常使用ComboBox控件顯示這些屬性的選項(xiàng)。隨后可用 ComboBox控件的Click事件改變屬性。下面的代碼首先在Form對(duì)象的Load事件中，充填名為“cmbFonts”的ComboBox控件。然后用Click 事件改變RichTextBox 控件的 Sel

12、FontName 屬性。Private Sub Form_Load() Dim i As Integer With cmbFonts For i = 0 to Screen.Fonts.Count - 1 .AddItem Screen.Fonts(i).Text End With End SubPrivate Sub cmbFonts_Click() rtfData.SelFontName = cmbFonts.Text End Sub重點(diǎn) 這些屬性只影響選中的文本，或者，如果沒(méi)有選中文本，則影響當(dāng)前光標(biāo) 位置之后鍵入的文本。格式化段落的縮進(jìn)、懸掛式縮進(jìn)和項(xiàng)目符號(hào)RichTextBox控件的

13、另一個(gè)特性是它可以創(chuàng)建有縮進(jìn)、懸掛式縮進(jìn)和項(xiàng)目符號(hào)的 段落。這三種樣式顯示如下：縮進(jìn)和帶項(xiàng)目符號(hào)的縮進(jìn)（rtf_3ind.bmp）要使用SelFontName、SelFontSize 和SelFontColor 屬性，最終用戶必須選中 一個(gè)或多個(gè)段落。在這里，假設(shè)用戶只選中了第二段，創(chuàng)建縮進(jìn)和懸掛式縮進(jìn)的 代碼如下所示： 假設(shè)該控件白名稱是“ rtfData rtfData.SelIndent = .5rtfdata.SelHangingIndent = 1.5請(qǐng)注意用于設(shè)置 SelIndent、SelHangingIndent、BulletIndent 和其它屬性的 值，要依賴于 RichT

14、extBox 控件的容器的ScaleMode屬性。例如，如果 RichTextBox控件的容器是 Form 對(duì)象，則將該 Form 對(duì)象的ScaleMode屬性 由7 （厘米）改為1 （維）時(shí)，SelIndent屬性必須同時(shí)由0.5 （厘米）改為283 （堤）。這是因?yàn)橐焕迕?567維。同時(shí)還要注意段落的SelBullet屬性必須設(shè)置為T(mén)rue ,才能將該段設(shè)置為有項(xiàng)目符號(hào)的樣式。用SelChange事件通知屬性的變化要通告用戶選中的任何文本的當(dāng)前屬性，可以使用 SelChange事件。每當(dāng)插入 點(diǎn)改變，或者選中內(nèi)容被改變時(shí)，均會(huì)產(chǎn)生該事件。下面的示例用 Toolbar控 件通告用戶SelBo

15、ld屬性的變化。Private Sub rtfData_SelChange()'重新設(shè)置Toolbar 的Button 對(duì)象的'Value 屬性。該Toolbar 控件的名稱是'“tlbRTF'SelBold 返回0、-1或Null 。如果它為Null '則將其Mi xedState 屬性設(shè) 置為T(mén)rue oSelect Case rtfData.SelBoldCase 0 '不是粗體。tlbRTF.Buttons("bold").Value = tbrUnpressedCase -1 '粗體。tlbRTF.Butto

16、ns("bold").Value = tbrPressedCase Else '混合狀態(tài)。tlbRTF.Buttons("bold").Mi xedState = TrueEnd Select End Sub用SelPrint方法打印RichTextBox 的內(nèi)容要打印RichTextBox控件，可以使用SelPrint 方法。該方法需要一個(gè)參數(shù)， 即用來(lái)打印RichTextBox控件內(nèi)容的Printer 對(duì)象的hDC屬性。如果用戶選 中了某些文本，則只打印選中的文本。如果沒(méi)有選中任何文本，則打印該控件的 所有內(nèi)容。下面的代碼，在用戶單擊 Com

17、mandButton控件后，用CommonDialog控件顯示 “打印機(jī)”對(duì)話框。Flags屬性禁用了頁(yè)碼，并使用戶能夠在該對(duì)話框中選擇多種選項(xiàng)：Private Sub cmdPrint_Click() 'CommonDialog 控件的名稱是 “ dlgPrint ”。 dlgPrint.Flags = cdlPDReturnDC + cdlPDNoPageNumsIf rtfData.SelLength = 0 ThendlgPrint.Flags = dlgPrint.Flags + cdlPDAllPages ElseDlgPrint.Flags = dlgPrint.Flag

18、s + cdlPDSelection End IfdlgPrint.ShowPrinter rtfData.SelPrint dlgPrint.hDC End Sub詳細(xì)信息有關(guān)使用CommonDialog控件的詳細(xì)說(shuō)明，請(qǐng)參閱Visual Basic程 序員指南中的“使用 CommonDialog控件”。在控件中顯示嵌入對(duì)象在運(yùn)行時(shí)，最終用戶可拖動(dòng)任何嵌入對(duì)象，并放入 RichTextBox控件。在控件 中可以嵌入兩種對(duì)象：以圖標(biāo)形式顯示的對(duì)象，和以數(shù)據(jù)形式顯示的對(duì)象。下圖 顯示了具有嵌入文件對(duì)象的 RichTextBox ,作為第一種類型的示例。單擊后，嵌入的對(duì)象就會(huì)象預(yù)料的那樣，即啟動(dòng)與該文件相關(guān)聯(lián)的應(yīng)用程序。當(dāng)控件中的數(shù)據(jù)以RTF文件形式保存時(shí)（用SaveFile方法），嵌入對(duì)象中的信 息也將被保存。然而，如果最終用戶在該控件中嵌入位圖，則將顯示該位圖，而不是它的圖標(biāo)， 如下所示：?jiǎn)螕粼撐粓D將啟動(dòng)Paint應(yīng)用程序，使最終用戶能夠編輯該位圖。用OLEObjects集合的Add方法添加嵌入對(duì)象用OLEObject集合的Add方法可將嵌入對(duì)象以編程方式加入該控件，如下所 示：Private Sub cmdAddObject_Click（）'將蝴蝶位圖添加到該控件中。RichTextBox1.OLEObjects.Add，一”bfly.bmp"