实例080富文本框 中的上下标

    富文本框RichTextBox的属性 SelectionCharOffset，表示控件内的文本的显示格式，文本的显示格式包括正常格式、上标或下标等。SelectionCharOffset属性为整型变量，范围从-2000到2000，表不显示的文本与基准水平线的距离。如果该属性设置为0，则文字的水平位置为正常水平位置；如果该属性设置为正数，则文字显示的位置在正常位置以上；如果该属性设置为负数，则文字水平位置为正常水平位置以下。
    要显示上标或下标，可以利用Font类定义一种新的字体对象，设置该字体对象的字体大小比正常文字小，然后利用RichTextBox的SelectionCharOffset将其显示在正常文字以上（上标）或以下（下标）。
    Font是定义住System.Drawing名称空间中的一个类。它的构造函数被多次重载。其中的两个构造函数是：
    Public Sub New (FontFamily,  Single,  FontSyle)
    Public Sub New (String，Single,  FontStyle)
    第一个构造函数有三个参数，第一个参数FontFamily表示字体类别，如“隶书”等，FontFamily也是System.Drawing名称空间下定义的一个类；第二个参数为字体大小；第三个参数FontStyle是System.Drawing名称空间下定义的枚举类型，表示字体样式。
    第二个构造函数与第一个构造函数的区别在于，笫二个构造函数的第一个参数是字符串类型的，用于表示字体的名字。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, btnNormal.Click
        rtxtArea.ForeColor = Color.Black
        Dim ft As New Font("隶书", 18, FontStyle.Bold)
        rtxtArea.Font = ft
    End Sub

    Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
        rtxtArea.SelectionCharOffset = 10
        rtxtArea.SelectionColor = Color.Red
        rtxtArea.SelectionFont = New Font(rtxtArea.Font.FontFamily, 10, FontStyle.Italic)
    End Sub

    Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
        rtxtArea.SelectionCharOffset = -4
        rtxtArea.SelectionColor = Color.Blue
        rtxtArea.SelectionFont = New Font(rtxtArea.Font.FontFamily, 10, FontStyle.Italic)
    End Sub

  
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class