文字录入程序，请各位大侠不吝指教！

Question

如果采用richtextbox，可以实现文字颜色的控制，也可以达到你想要的效果。
with richtextbox
For i = 0 To Len(richtextbox.Text) - 1
    .SelStart = i
    .SelLength = 1
    If .SelText = Mid(Text1.Text, i + 1, 1) Then
        .SelColor = vbGreen
    Else
        .SelColor = vbRed
    End IfNext
End With

Answer 1

VB 中调用 Word 拼写检查   
　           
Function CheckSpell(IncorrectText as string) as string
Dim Word As Object, retText$
On Error Resume Next
' 建立对象并打开 WORD
Set Word = CreateObject("Word.Basic")' 把需要检查的 STRING 放到 WORD
Word.AppShow
Word.FileNew
Word.Insert IncorrectText' 运行 WORD 拼写检查
Word.ToolsSpelling
Word.EditSelectAll' 取返回值
retText = Word.Selection$()
CheckSpell = Left$(retText, Len(retText) - 1)'关闭文件并回到 VB 应用
Word.FileClose 2
ShowSet Word = Nothing
End Function

Answer 2

我前一段做一个测试打字速度的软件。也许我的办法很笨。我是用的控件数组，要打的文字用label控件，打的字用text控件，不过效果还是达到了。如果你需要，可以把代码发给你。

Answer 3

想这样的程序网上多的是，你可以下一个看一看
我原来用Qbasic作过一个打字测试程序,我想在vb中实现无外乎用数据库（原文）
＋textbox控件,让后座最简单的字符比较 ：）
若不对则设置textbox的forecolor为red,若不对则自己看着办!!!

Answer 4

请教泰山兄：如何实现只能比较
比如有一文本： ASDFGHJKK
我把它打成了： ASDGHJKKA
若按住个字符对照比较，我应该错了“GHJKKA”五个字符，可实际上我只错了两个－－漏打了一个"F"，多打了一个"A"
小弟在这里先谢过了！