文字输入的实时对比

Private SubRichTextBox1_TextChanged() SubRichTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRichTextBox1.TextChanged

DimiAsInteger=RichTextBox1.SelectionStart
DimtagetstringAsString=intext.Text
DimstrAsString=RichTextBox1.Text
DimtoalAsInteger

str=RichTextBox1.Text
RichTextBox1.SelectionStart=0
RichTextBox1.SelectionLength=str.Length
RichTextBox1.SelectionColor=Color.Black
Fortoal=1Tostr.Length
IfMid(str,toal,1)<>Mid(tagetstring,toal,1)Then
RichTextBox1.SelectionStart=toal-1
RichTextBox1.SelectionLength=1
RichTextBox1.SelectionColor=Color.Red
EndIf
Next
RichTextBox1.SelectionStart=i
RichTextBox1.SelectionLength=0
EndSub

’第二版

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

PublicClassForm1
DimstrbuffAsString = ""
DimrtbselstartAsInteger
DimrtbsellenAsInteger

PrivateSubRichTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRichTextBox1.TextChanged
DimtagetstringAsString = intext.Text
DimstrAsString = RichTextBox1.Text

DimstrsubAsInteger = str.Length - strbuff.Length

rtbsellen = RichTextBox1.SelectionLength
rtbselstart = RichTextBox1.SelectionStart

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

DimiAsInteger = 0
Fori = 1 Tostr.Length
IfMid(str,i, 1 ) <> Mid(tagetstring,i, 1 )Then
RichTextBox1.SelectionStart = i - 1
RichTextBox1.SelectionLength = 1
RichTextBox1.SelectionColor = Color.Red
EndIf
Next

RichTextBox1.SelectionStart = rtbselstart
RichTextBox1.SelectionLength = rtbsellen

strbuff = RichTextBox1.Text
EndSub

EndClass