VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
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
运行如下：
 
 
 
 
 
学习更多vb.net知识，请参看 vb.net 教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/uruseibest/article/details/72229017

相关教程