想实现 打字练习的效果 请出个主意

Question

我要做一个打字练习的功能，就是在一个编辑框里，先一行隔一行的显示正确的文字内容
然后用户可以在每行之间的空白行中对照上一行输入他打字的内容 
请问怎样实现 效果比较好又不是很麻烦 有人做过吗

Answer 1

这是我帮myclasstime (星竹) 修改时写的（其时我只帮他改了一下，主要还是他写的）,不过这个用的是两个RichTextBox控件,没实一行隔一行；
Private Sub RichTextBox2_Change()
    Dim save As Integer, com As Integer, m As Integer
    Static i As Integer
    Dim a As String, b As String
    i = i + 1
    save = Len(RichTextBox2.Text)
    If save > i Then
        m = i - 1
    Else
        m = RichTextBox2.SelStart
    End If
        For j = m To save
            RichTextBox2.SelStart = j
            k = j + 1
            RichTextBox2.SelLength = 1
            If Mid(RichTextBox2.Text, k, 1) = Mid(RichTextBox1.Text, k, 1) Then
                RichTextBox2.SelColor = RGB(0, 0, 255)
            Else
                RichTextBox2.SelColor = RGB(255, 0, 0)
            End If
        Next
    i = save
    RichTextBox2.SelStart = i
End Sub

Answer 2

If save > i Then
改成
 If save >= i Then

Answer 3

要想一行隔一行的效果，我建议去找一下第三方控件控件。
可以将TEXT内容赋给一个字符串数组，每一行赋一次,然后进行第偶数个字符串与前面一个第奇数个字符串比较.比较的算就同上面一样了。

Answer 4

utada776 (招娣) 这位仁兄,我做的也是打字练习的程序,五笔中打字根的模块你做了吗?
这个模块我不会做了?你能帮帮忙吗?

Answer 5

偶上学的时候写过个键盘练习程序；可以找找给你做个参考。[email protected]

Answer 6

cobrastudio(老汉我) 这位仁兄，你的键盘练习程序,能不能发给我，参考一下
 
 [email protected]

Answer 7

cobrastudio(老汉我) 这位仁兄,谢谢你发的键盘程序!
但我好像用不上,我的程序是五笔的字根练习.