RichTextBox:富文本框
常用属性:
DetectUrls:指示当输入一个URL地址时,RichTextBox 是否自动设置为 URL 的链接
ScrollBars:显示的滚动条类型。以下设置:
Both 在需要时同时显示水平滚动条和垂直滚动条
ForcedBoth 始终同时显示水平滚动条和垂直滚动条
ForcedHorizontal 始终显示水平滚动条
ForcedVertical 始终显示垂直滚动条
Horizontal 仅在文本比控件的宽度长时显示水平滚动条
None 不显示滚动条
Vertical 仅在文本比控件的高度长时显示垂直滚动条
SelectionColor
SelectionFont
SelectionIndent:所选内容开始行的左边缩进距离(像素)
SelectionRightIndent:所选内容开始行的右边缩进距离(像素)
常用属性:
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():在光标位置粘贴剪贴板内容。
CanPaste():可以粘贴指定数据格式的剪贴板信息
Public Function CanPaste (clipFormat As DataFormats.Format) As Boolean
参数clipFormat 是DataFormats 类字段,包括Bitmap、Text、Text、WaveAudio等(请参见MSDN DataFormats 类)。
Paste():在光标位置粘贴剪贴板内容。
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
运行如下:
学习更多vb.net知识,请参看 vb.net 教程 目录