如何打字程序一样，在文本框中输入字，对是一种颜色，错是另一种颜色!

[loverain520]

本人正在编写一个程序，不知这一种方法如何写啊!
“如何打字程序一样，在文本框中输入字，对是一种颜色，错是另一种颜色!”
请高手指点。

[pcwak]

请看RichTextBox的用法

[Gutta]

思路可以这样：
首先建立一份参照的字符串，譬如：
I am a boy.
然后在RichTextbox中输入的时候，就开始逐个进行判断，如果出错，则改变颜色
利用SelStart和SelLength还有SelColor函数。

具体用法查MSDN和网上的资料文章。

[lyj0558]

我给你写了一段，很简单的一段，只适合一个字一个字的输入，并且只可以在接尾输入，真正达到像打字的那样，还得靠你自己了：
Private Sub RichTextBox1_Change()
If Right(RichTextBox1.Text, 1) = "对" Then
RichTextBox1.SelStart = Len(RichTextBox1.Text) - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbGreen
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelLength = 0
ElseIf Right(RichTextBox1.Text, 1) = "错" Then
RichTextBox1.SelStart = Len(RichTextBox1.Text) - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbRed
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelLength = 0
Else
RichTextBox1.SelStart = Len(RichTextBox1.Text) - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbBlack
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelLength = 0
End If

End Sub