文字输入的实时对比

PrivateSubRichTextBox1_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

’第二版

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=1Tostr.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

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=1Tostr.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