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

Question

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

Answer 1

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

Answer 2

我给你写了一段，很简单的一段，只适合一个字一个字的输入，并且只可以在接尾输入，真正达到像打字的那样，还得靠你自己了：
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 IfEnd Sub