RichTextBox 控件
来源:百度文库 编辑:神马文学网 时间:2024/09/29 05:34:10
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
与 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
RichTextBox 控件
RichTextBox
RichtextBox - VBGood论坛交流
Richer RichTextBox (Part 2) - The Code Projec...
将RichTextBox设置为自动换行
【C#控件】MenuStrip控件(菜单控件)
AnimationExtender控件
自定义控件
条形码控件
SplitContainer 控件
分页控件
Activex控件
如何在RichTextBox中实现Undo功能aaa
彻底解决RichTextBox中表格不能折行的问题
使用控件模板定制控件的观感
Excel中的窗体控件和ActiveX控件
设置画图控件背景图
Infragistics控件使用-UltraGrid
MediaPlayer控件属性描述
类、组件和控件
控件命名规则_HorseWhite
C# 树型控件
支持xml的控件
使用Winsock控件