用VB做打字测试软件源代码

发布网友发布时间：2022-05-10 01:56

共1个回答

热心网友时间：2023-10-18 07:48

'首先：工程-部件--micsoft RichTextBox control 6.0 选中确定，其次添加RichTextBox1到窗体。添加text到窗体，给text1上的文字我就不管了。然后用下面的代码，你可以想其他的判断方法，有比循环判断简单的，不过循环判断支持后退键。呵呵。当打对字就是蓝色的，不对就是红色的
Private Sub RichTextBox1_Change()
a = Len(RichTextBox1.Text)
For i = 1 To a
b = mid(RichTextBox1.Text, i,1)
c = mid(Text1.Text, i,1)
If b <> c Then
RichTextBox1.SelStart = i - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbRed '错误字颜色
RichTextBox1.SelStart = i
Else
RichTextBox1.SelStart = i - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbBlue '正确字颜色
RichTextBox1.SelStart = i
End If
Next i
End Sub