📄 form1.frm
字号:
BackStyle = 0 'Transparent
Caption = "http://www.aying7.com"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 9060
MouseIcon = "Form1.frx":32ED4A
MousePointer = 99 'Custom
TabIndex = 108
Top = 6630
Width = 1890
End
Begin VB.Label Label444
BackStyle = 0 'Transparent
Height = 330
Left = 8520
TabIndex = 107
Top = 180
Width = 1350
End
Begin VB.Label Label50
Caption = "只取练习框的第一个字符"
Height = 495
Left = 4710
TabIndex = 106
Top = 11430
Width = 1245
End
Begin VB.Label Label49
Caption = "要练习的字符"
Height = 255
Left = 6420
TabIndex = 105
Top = 11610
Width = 1215
End
Begin VB.Label Label46
Caption = "大写检测框"
Height = 225
Left = 3180
TabIndex = 104
Top = 11550
Width = 975
End
Begin VB.Label Label31
Caption = "读入文章框"
Height = 375
Left = 1740
TabIndex = 103
Top = 11580
Width = 1245
End
Begin VB.Label Label30
Caption = "练习框"
Height = 255
Left = 300
TabIndex = 102
Top = 11580
Width = 1185
End
Begin VB.Label Label38
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "0 %"
BeginProperty Font
Name = "Lucida Sans"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 10080
TabIndex = 100
Top = 2430
Width = 330
End
Begin VB.Label Label40
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "0:00:00"
BeginProperty Font
Name = "Lucida Sans"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1590
TabIndex = 99
Top = 2430
Width = 795
End
Begin VB.Label Label45
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "0 WPM"
BeginProperty Font
Name = "Lucida Sans"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 4020
TabIndex = 98
Top = 2430
Width = 660
End
Begin VB.Label Label1
BackColor = &H0080FF80&
Height = 315
Left = 4710
TabIndex = 97
Top = 11040
Width = 675
End
Begin VB.Image Image9
Height = 135
Left = 6210
Picture = "Form1.frx":32EE9C
Top = 2460
Width = 2220
End
Begin VB.Label Label39
BackColor = &H00FFFFFF&
Caption = "0%"
Height = 225
Left = 6900
TabIndex = 96
Top = 2160
Visible = 0 'False
Width = 855
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "y"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 6510
TabIndex = 66
Top = 10980
Width = 225
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "Label6"
Height = 180
Left = 7020
TabIndex = 65
Top = 7530
Width = 540
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Label5"
Height = 180
Left = 7020
TabIndex = 64
Top = 7260
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "abcdeikeekdijgheitkdiek"
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Left = 750
TabIndex = 4
Top = 870
Width = 6555
End
Begin VB.Label Label26
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "a"
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 525
Left = 900
TabIndex = 3
Top = 1500
Visible = 0 'False
Width = 285
End
Begin VB.Label Label25
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 525
Left = 750
TabIndex = 5
Top = 1500
Width = 285
End
Begin VB.Label Label8
Alignment = 2 'Center
BackColor = &H0080C0FF&
BackStyle = 0 'Transparent
Caption = "Label8"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 930
TabIndex = 2
Top = 270
Width = 5595
End
Begin VB.Label Label24
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "-"
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 525
Left = 750
TabIndex = 6
Top = 1200
Width = 285
End
Begin VB.Image Image8
Height = 135
Left = 6210
Picture = "Form1.frx":32FE7A
Top = 2460
Width = 2220
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'这是我刚学VB时做的一段程序，代码乱七八糟，有些地方我也看不太明白，哈哈，初学者就是这样。
'我现在的网站是 http://www.aying7.com 这个网站现在还有一些VB源码提供。
Option Explicit
'读N行
Dim vData As String
Dim rows As Long
Private Const EM_GETLINE = &HC4
Private Const EM_LINELENGTH = &HC1
Private Const EM_LINEINDEX = &HBB
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
'读N行
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
Dim STRtisi As String
Dim Jiantisi As Integer
Dim antisi As Integer
Private Sub A_Click(Index As Integer)
Text1.SetFocus
End Sub
Private Sub Command4_Click()
Form2.Show 1
End Sub
Private Sub Form_Click()
Text1.SetFocus
End Sub
Private Sub Form_Load()
Label5.Caption = App.Path + "\type.wav"
Label6.Caption = App.Path + "\error.wav"
Label17.Caption = "2" '1文件夹
Label18.Caption = "0" '00文件名
dr '读入文本到text2
tttt '读入新的一行
Label26.Top = Label25.Top
Label26.Left = Label24.Left
End Sub
Private Sub Image4_Click()
Text1.SetFocus
End Sub
Private Sub Label27_Click()
Form2.Show 1
End Sub
Private Sub Label4_Click()
Call ShellExecute(Me.hwnd, "open", "http://www.aying7.com", "", "", SW_SHOW)
End Sub
Private Sub Label444_Click()
Form2.Show 1
End Sub
Private Sub Text1_Change()
Label1.Caption = Left(Text1.Text, 1)
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Timer4.Enabled = True
On Error Resume Next
Dim antisi As String '按下那个键
antisi = KeyCode
If Jiantisi = antisi Then '打对了键位，但还不肯定是否打对，如A，a是同一keycode
Picture5.Cls
Picture5.PaintPicture Picture3.Picture, A(antisi).Left, A(antisi).Top, A(antisi).Width, A(antisi).Height, _
A(antisi).Left, A(antisi).Top, A(antisi).Width, A(antisi).Height, vbSrcCopy
'按下画图--打对时
Else '否则就是打错了。
Picture5.Cls
Picture5.PaintPicture Picture2.Picture, A(Jiantisi).Left, A(Jiantisi).Top, A(Jiantisi).Width, A(Jiantisi).Height, _
A(Jiantisi).Left, A(Jiantisi).Top, A(Jiantisi).Width, A(Jiantisi).Height, vbSrcCopy '要打字符的正确提示
Picture5.PaintPicture Picture4.Picture, A(antisi).Left, A(antisi).Top, A(antisi).Width, A(antisi).Height, _
A(antisi).Left, A(antisi).Top, A(antisi).Width, A(antisi).Height, vbSrcCopy '打错按下提示
If KeyCode = 13 Then '回车
Picture5.PaintPicture Picture4.Picture, A(888).Left, A(888).Top, A(888).Width, A(888).Height, _
A(888).Left, A(888).Top, A(888).Width, A(888).Height, vbSrcCopy '打错按下提示,这是附加的提示
Picture5.PaintPicture Picture4.Picture, A(889).Left, A(889).Top, A(889).Width, A(889).Height, _
A(889).Left, A(889).Top, A(889).Width, A(889).Height, vbSrcCopy '打错按下提示,这是附加的提示
End If
End If '打对了
Text1.SelStart = 0 '
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 19 Then
Timer4.Enabled = False
Exit Sub
End If
Label26.Caption = ""
If KeyCode = 20 Then
capyn '大写键检测
Exit Sub
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -