執行個體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