VB2010(16)_简易的TextEdit

Public Class TextEditor

    '状态栏属性
    Public Property StatusText() As String
        Get
            Return sslStatus.Text
        End Get
        Set(ByVal value As String)
            sslStatus.Text = value
        End Set
    End Property
    '文本框的文本属性
    Public Property EditText() As String
        Get
            Return txtEdit.Text
        End Get
        Set(ByVal value As String)
            txtEdit.Text = value
        End Set
    End Property
    '清除文本框内容
    Public Sub ClearEditBox()
        EditText = String.Empty
        txtEdit.ForeColor = Color.Black
        StatusText = "text box clear"
    End Sub

    Private Sub txtEdit_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtEdit.TextChanged
        StatusText = "Ready"
    End Sub

    Private Sub tbrClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbrClear.Click
        ClearEditBox()
    End Sub
    Private Sub RedText()
        txtEdit.ForeColor = Color.Red
        StatusText = "The text is red"
    End Sub
    Private Sub BlueText()
        txtEdit.ForeColor = Color.Blue
        StatusText = "The text is Blue"
    End Sub
    Public Sub UpperCaseText()
        EditText = EditText.ToUpper
        StatusText = "The text is all UpperCase"
    End Sub
    Public Sub LowerCaseText()
        EditText = EditText.ToLower
        StatusText = "The text is all LowerCase"
    End Sub
    Public Sub ShowAboutBox()
        Using objAbout As New About
            objAbout.ShowDialog(Me)
        End Using
    End Sub
    Private Sub tbrRed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbrRed.Click
        RedText()
    End Sub

    Private Sub tbrBlue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbrBlue.Click
        BlueText()
    End Sub

    Private Sub tbrUpperCase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbrUpperCase.Click
        UpperCaseText()
    End Sub

    Private Sub tbrLowerCase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbrLowerCase.Click
        LowerCaseText()
    End Sub

    Private Sub tbrHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbrHelp.Click
        ShowAboutBox()
    End Sub
End Class