vb.net 教程 3-4 窗体编程公共控件8 RichTextBox- VB

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
RichTextBox:富文本框
常用属性：
DetectUrls：指示当输入一个URL地址时，RichTextBox 是否自动设置为 URL 的链接
ScrollBars：显示的滚动条类型。以下设置：
Both 在需要时同时显示水平滚动条和垂直滚动条
ForcedBoth 始终同时显示水平滚动条和垂直滚动条
ForcedHorizontal 始终显示水平滚动条
ForcedVertical 始终显示垂直滚动条
Horizontal 仅在文本比控件的宽度长时显示水平滚动条
None 不显示滚动条
Vertical 仅在文本比控件的高度长时显示垂直滚动条
SelectionColor
SelectionFont
SelectionIndent：所选内容开始行的左边缩进距离（像素）
SelectionRightIndent：所选内容开始行的右边缩进距离（像素）

常用方法：
CanPaste()：可以粘贴指定数据格式的剪贴板信息
Public Function CanPaste (clipFormat As DataFormats.Format) As Boolean
参数clipFormat 是DataFormats 类字段，包括Bitmap、Text、Text、WaveAudio等(请参见MSDN DataFormats 类)。
Paste()：在光标位置粘贴剪贴板内容。

SaveFile()：将RichTextBox的内容保存到文件

LoadFile()：载入文件

事件：

LinkClicked：单击了富文本框。

一个简单的例子：

Public Class Form2
Dim fontsize As Integer
Dim fontname As String

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
fontsize = 10
fontname = "宋体"
End Sub

'设置字体为宋体
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
fontname = "宋体"
RichTextBox1.SelectionFont = New Font(fontname, fontsize)
End Sub
'设置字体为楷体
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
fontname = "楷体"
RichTextBox1.SelectionFont = New Font(fontname, fontsize)
End Sub

'设置文字颜色为红色
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
RichTextBox1.SelectionColor = Color.Red
End Sub
'设置文字颜色为蓝色
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
RichTextBox1.SelectionColor = Color.Blue
End Sub

'设置文字段落左缩进为10
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
RichTextBox1.SelectionIndent = 10
End Sub
'设置文字段落左缩进为20
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
RichTextBox1.SelectionIndent = 20
End Sub

'设置文字段落右缩进为10
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
RichTextBox1.SelectionRightIndent = 10
End Sub
'设置文字段落右缩进为20
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
RichTextBox1.SelectionRightIndent = 20
End Sub

'设置文字大小为10磅
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
fontsize = 10
RichTextBox1.SelectionFont = New Font(fontname, fontsize)
End Sub
'设置文字大小为20磅
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
fontsize = 12
RichTextBox1.SelectionFont = New Font(fontname, fontsize)
End Sub

'插入一张图片
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim bmp As Bitmap
bmp = Bitmap.FromFile("d:\15af.jpg")
'将图片设置到剪贴板
Clipboard.SetDataObject(bmp)
'设置格式
Dim MyFormat As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)
'检查是否可以粘贴指定的格式
If RichTextBox1.CanPaste(MyFormat) Then
'Paste重载的一个版本，在光标位置粘贴指定格式的剪贴板内容
RichTextBox1.Paste(MyFormat)
End If

End Sub

'当富文本框内的超链接被点击
Private Sub RichTextBox1_LinkClicked(sender As Object, e As LinkClickedEventArgs) Handles RichTextBox1.LinkClicked
Process.Start(e.LinkText)
End Sub
End Class
运行如下：