标签:vb End Sub 打字 RichTextBox2 RichTextBox1 Text ByVal net
Public Class Form1
Dim t As Date
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inputdata As String
OpenFileDialog1.FileName = "*txt"
OpenFileDialog1.InitialDirectory = "C:/Documents and Settings/Administrator/桌面/指法练习/指法练习/bin/Debug"
OpenFileDialog1.Filter = "text files(*.txt)|*.txt|all iles(*.*)|*.*"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.ShowDialog()
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
RichTextBox1.Text = ""
Do While Not EOF(1)
inputdata = LineInput(1)
RichTextBox1.Text = RichTextBox1.Text + inputdata + vbCrLf
Loop
FileClose(1)
End Sub
Private Sub RichTextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox2.GotFocus
t = TimeOfDay
End Sub
Private Sub RichTextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox2.KeyDown
Dim l As Integer
l = RichTextBox2.TextLength
Dim t2, n, y, i As Integer
If e.KeyCode = Keys.Enter Then
t2 = DateDiff("s", t, TimeOfDay)
TextBox1.Text = t2 & "秒"
RichTextBox2.ReadOnly = True
y = 0 : n = 0
For i = 1 To l
If Mid(RichTextBox1.Text, i, 1) = Mid(RichTextBox2.Text, i, 1) Then
y = y + 1
Else
n = n + 1
End If
Next i
y = y / l * 100
TextBox2.Text = Format(y, "0.00") & "%"
End If
End Sub
Private Sub RichTextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox2.KeyPress
Dim t2, n, y, i As Integer
If RichTextBox2.TextLength + 1 = RichTextBox1.TextLength Then
t2 = DateDiff("s", t, TimeOfDay)
TextBox1.Text = t2 & "秒"
RichTextBox2.ReadOnly = True
y = 0 : n = 0
For i = 1 To 4
If Mid(RichTextBox1.Text, i, 1) = Mid(RichTextBox2.Text, i, 1) Then
y = y + 1
Else
n = n + 1
End If
Next i
y = y / 4 * 100
TextBox2.Text = Format(y, "0.00") & "%"
End If
End Sub
End Class
标签:vb,End,Sub,打字,RichTextBox2,RichTextBox1,Text,ByVal,net 来源: https://blog.51cto.com/u_11205641/2827797
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。