文字输入的实时对比

 

Private   Sub RichTextBox1_TextChanged() Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

        Dim i As Integer = RichTextBox1.SelectionStart
        Dim tagetstring As String = intext.Text
        Dim str As String = RichTextBox1.Text
        Dim toal As Integer

        str = RichTextBox1.Text
        RichTextBox1.SelectionStart = 0
        RichTextBox1.SelectionLength = str.Length
        RichTextBox1.SelectionColor = Color.Black
        For toal = 1 To str.Length
            If Mid(str, toal, 1) <> Mid(tagetstring, toal, 1) Then
                RichTextBox1.SelectionStart = toal - 1
                RichTextBox1.SelectionLength = 1
                RichTextBox1.SelectionColor = Color.Red
            End If
        Next
        RichTextBox1.SelectionStart = i
        RichTextBox1.SelectionLength = 0
    End Sub

 

’第二版 

        Dim  tagetstring  As   String   =  intext.Text
         Dim   str   As   String   =  RichTextBox1.Text

         Dim  strsub  As   Integer   =   str .Length  -  strbuff.Length

        rtbsellen  =  RichTextBox1.SelectionLength
        rtbselstart  =  RichTextBox1.SelectionStart

        RichTextBox1.SelectionStart  =   0
        RichTextBox1.SelectionLength  =   str .Length
        RichTextBox1.SelectionColor  =  Color.Black

         Dim  i  As   Integer   =   0
         For  i  =   1   To   str .Length
             If   Mid ( str , i,  1 )  <>   Mid (tagetstring, i,  1 )  Then
                RichTextBox1.SelectionStart  =  i  -   1
                RichTextBox1.SelectionLength  =   1
                RichTextBox1.SelectionColor  =  Color.Red
             End   If
         Next

        RichTextBox1.SelectionStart  =  rtbselstart
        RichTextBox1.SelectionLength  =  rtbsellen

        strbuff  =  RichTextBox1.Text

 

Public Class Form1
    Dim strbuff As String  =   ""
    Dim rtbselstart As Integer
    Dim rtbsellen As Integer

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim tagetstring As String  =  intext.Text
        Dim str As String  =  RichTextBox1.Text

        Dim strsub As Integer  =  str.Length  -  strbuff.Length

        rtbsellen  =  RichTextBox1.SelectionLength
        rtbselstart  =  RichTextBox1.SelectionStart

        RichTextBox1.SelectionStart  =   0
        RichTextBox1.SelectionLength  =  str.Length
        RichTextBox1.SelectionColor  =  Color.Black

        Dim i As Integer  =   0
        For i  =   1  To str.Length
            If Mid(str, i,  1 )  <>  Mid(tagetstring, i,  1 ) Then
                RichTextBox1.SelectionStart  =  i  -   1
                RichTextBox1.SelectionLength  =   1
                RichTextBox1.SelectionColor  =  Color.Red
            End If
        Next

        RichTextBox1.SelectionStart  =  rtbselstart
        RichTextBox1.SelectionLength  =  rtbsellen

        strbuff  =  RichTextBox1.Text
    End Sub

End Class