文字输入的实时对比

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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值