用VB做打字测试的 软件

来源：百度知道 编辑：UC知道 时间：2024/06/30 22:05:08
用VB做打字测试的软件，如何实现 输入正确字是灰色的，如果输入错误就是红色的字。模式就是上面一行是样文，下面的是输入的文字。和金山打字通模式一样。文字是英文字母就可以了。关键部分的代码发给我就可以了。也可以发给我的邮箱849033958@qq.com.cn
我用的是VB6.0 点运行后“未找到方法或数据成员” 就是文字变色那一段“SelColor”这个属性出错了。

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