richtextbox的使用方法

1、richtextbox 的用法:With RichTextBoxI.SelStart = 0.SelLength = 3'长度为 3.SelColor = vbRed '颜色.SelBold = True '粗为真End WithWith RichTextBox1.SelStart = 3.SelLength = 3'长度 3.SelFontSize = 12 '字大小：12 号.SelItalic = TrueEnd WithWith RichTextBox1.SelStart = 0'从第0个字符开始选择（从0开始、然后1, 2,）.SelL

2、ength = 3' 一共选择3个字符.SelColor = vbRed '将选择了的字符的颜色设为红色.SelBold = True '将选择了的字符的粗体设为真End WithPrivate Sub Form_Load()RichTextBox1.Text =" 中国人"& vbCrLf & "网络公司"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控件可以显示滚动条,这一点与TextBox控件相同；但是与 TextBox控件不同的是，RichTextBox控件的默认设置是水平和垂直滚动条均根 据需要显示，并且拥有更多的滚动条设置。与TextBox控件一样，显示的文本由Text属性设置。RichTextBox

5、控件有许 多格式文本属性。有关这些属性的详细信息，请参见为Windows窗体RichTextBox控件设置字体属性和在 Windows窗体RichTextBox 控件中设置 缩进、悬挂缩进和带项目符号的段落。为操作文件，LoadFile和SaveFile方 法可以显示和编写包括纯文本、Unicode纯文本和RTF格式在内的多种文件格式。可能的文件格式在 RichTextBoxStreamType 枚举中列出。可以使用Find 方 法查找文本字符串或特定字符。也可以通过将DetectUrls 属性设置为true 并编写处理LinkClicked 事件的 代码，将RichTextBox控件用于We

6、b样式的链接。有关更多信息，请参见使用 Windows窗体RichTextBox 控件显示 Web样式的链接。将 SelectionProtected属性设置为true 可以防止用户操作控件中的部分或全部文本。在RichTextBox控件中可以通过调用 Undo和Redo方法撤消和重复大多数编 辑操作。CanRedo方法使您可以确定用户撤消的上一操作是否可以重新应用于控 件。RichTextBox控件提供了一些属性，通过这些属性，可对该控件中任何部分的文 本使用不同的格式。用这些属性，可以将文本变为粗体或斜体，改变文本的颜色，特性 以RTF格式或ASCII文本格式打开或保存文件。可以使用该控件

7、的方法 （LoadFile和SaveFile ）,直接读写文件。也可以用该控件的属性，比如SelRTF和TextRTF ,联合Visual Basic的文件输入输出语句读写文,将.rtf文件的内容装入RichTextBox控件，只需将该文件（比如从Windows 95 ”资源管理器”中）的内容直接拖入该控件，或者将其它应 用程序（比如Microsoft Word ）中使用文件的突出显示部分直接拖入该 控件。 设置FileName属性，将.rtf 或.txt文件的内容装入该控件。 用SelPrint方法打印RichTextBox控件中的全部或部分文本。 将RichTextBox 控件绑定到Dat

8、a控件，可以处理Microsoft Access数据库的Memo字段，或者其它数据库中大型的文本字段（比如 SQL服务器中的TEXT数据类型）在运行时，用OLEObject集合的Add方法，将嵌入对象，比如位图、图 标、应用程序图标，加到该控件中。在设计时或运行时，可以拖放任何嵌 入对象到控件中，包括文档，比如 Microsoft Excel 的电子表格和 Microsoft Word 文档等。按照缺省规定，RichTextBox没有滚动条。在运行时，如果在该控件中装入了较 大的文件，最终用户就不能看到文件的全部内容了。 为使用户能够方便地进行滚 动，可将其ScrollBars 属性设置为1

9、（水平的）、2 （竖直的）或3 （两个都 有）。这必须在设计时完成，因为 ScrollBars 属性在运行时是只读的。用LoadFile 和SaveFile 方法打开和保存文件 用LoadFile 和SaveFile 方法可以方便地为 RichTextBox 控件打开或保存RTF文件。要打开文件，可用 CommonDialog控件提供路径名，如下所示：Private Sub OpenFile()'RichTextBox 控件的名称是 “ rtfData ” 。'CommonDialog 名为 “dlgOpenFile ” 。为文件名声明String 变量。显示“打开文件”对话框

10、，并将变量设置 为文件名。Dim strOpen As StringdlgOpenFile.ShowOpenstrOpen = dlgOpenFile.FileName ' 用 LoadFile 方法打开该文件。rtfData.LoadFile strOpenEnd Sub用SaveFile方法，保存文件也同样简便:Private Sub SaveFile() Dim strNewFile As String dlgOpenFile.ShowSave strNewFile = dlgOpenFile.FileName rtfData.SaveFile strNewFileEnd Sub

11、注意如果文件中包含了该控件不能支持的RTF编码，仅相关的文本在RichTextBox控件中将不会出现。用 SelFontName、SelFontSize 和 SelFontColor 设置字体属性要改变RichTextBox控件中的字体特性，可以使用SelFontName、SelFontSize 和 SelFontColor 属性。通常使用ComboBox控件显示这些属性的选项。随后可用 ComboBox控件的Click事件改变属性。下面的代码首先在Form对象的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重点 这些属性只影响选中的文本，或者，如果没有选中文本，则影响当前光标 位置之后键入的文本。格式化段落的缩进、悬挂式缩进和项目符号RichTextBox控件的

13、另一个特性是它可以创建有缩进、悬挂式缩进和项目符号的 段落。这三种样式显示如下：缩进和带项目符号的缩进（rtf_3ind.bmp）要使用SelFontName、SelFontSize 和SelFontColor 属性，最终用户必须选中 一个或多个段落。在这里，假设用户只选中了第二段，创建缩进和悬挂式缩进的 代码如下所示： 假设该控件白名称是“ rtfData rtfData.SelIndent = .5rtfdata.SelHangingIndent = 1.5请注意用于设置 SelIndent、SelHangingIndent、BulletIndent 和其它属性的 值，要依赖于 RichT

14、extBox 控件的容器的ScaleMode属性。例如，如果 RichTextBox控件的容器是 Form 对象，则将该 Form 对象的ScaleMode属性 由7 （厘米）改为1 （维）时，SelIndent属性必须同时由0.5 （厘米）改为283 （堤）。这是因为一厘米=567维。同时还要注意段落的SelBullet属性必须设置为True ,才能将该段设置为有项目符号的样式。用SelChange事件通知属性的变化要通告用户选中的任何文本的当前属性，可以使用 SelChange事件。每当插入 点改变，或者选中内容被改变时，均会产生该事件。下面的示例用 Toolbar控 件通告用户SelBo

15、ld属性的变化。Private Sub rtfData_SelChange()'重新设置Toolbar 的Button 对象的'Value 属性。该Toolbar 控件的名称是'“tlbRTF'SelBold 返回0、-1或Null 。如果它为Null '则将其Mi xedState 属性设 置为True oSelect Case rtfData.SelBoldCase 0 '不是粗体。tlbRTF.Buttons("bold").Value = tbrUnpressedCase -1 '粗体。tlbRTF.Butto

16、ns("bold").Value = tbrPressedCase Else '混合状态。tlbRTF.Buttons("bold").Mi xedState = TrueEnd Select End Sub用SelPrint方法打印RichTextBox 的内容要打印RichTextBox控件，可以使用SelPrint 方法。该方法需要一个参数， 即用来打印RichTextBox控件内容的Printer 对象的hDC属性。如果用户选 中了某些文本，则只打印选中的文本。如果没有选中任何文本，则打印该控件的 所有内容。下面的代码，在用户单击 Com

17、mandButton控件后，用CommonDialog控件显示 “打印机”对话框。Flags属性禁用了页码，并使用户能够在该对话框中选择多种选项：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详细信息有关使用CommonDialog控件的详细说明，请参阅Visual Basic程 序员指南中的“使用 CommonDialog控件”。在控件中显示嵌入对象在运行时，最终用户可拖动任何嵌入对象，并放入 RichTextBox控件。在控件 中可以嵌入两种对象：以图标形式显示的对象，和以数据形式显示的对象。下图 显示了具有嵌入文件对象的 RichTextBox ,作为第一种类型的示例。单击后，嵌入的对象就会象预料的那样，即启动与该文件相关联的应用程序。当控件中的数据以RTF文件形式保存时（用SaveFile方法），嵌入对象中的信 息也将被保存。然而，如果最终用户在该控件中嵌入位图，则将显示该位图，而不是它的图标， 如下所示：单击该位图将启动Paint应用程序，使最终用户能够编辑该位图。用OLEObjects集合的Add方法添加嵌入对象用OLEObject集合的Add方法可将嵌入对象以编程方式加入该控件，如下所 示：Private Sub cmdAddObject_Click（）'将蝴蝶位图添加到该控件中。RichTextBox1.OLEObjects.Add，一”bfly.bmp"