在工程菜单-部件菜单中选择MICROSOFT COMMON DIALOG CONTROL 6.0(SP3)和MICROSOFT WINDOWS COMMON CONTROLS 6.0(SP4)两项,在工程菜单-引用菜单中选择MICROSOFT SCRIPTING RUNTIME项,然后保存工程,再在窗体中加入控件(部分),列表如下:
菜单NAME:mnuPracticeCAPTION:Practice子菜单NAME:mnuStartCAPTION:Start Practice NAME:mnuPauseCAPTION:Pause Practice NAME:mnuResumeCAPTION:Resume Practice NAME:mnuCustomCAPTION:Custom Practice NAME:mnuRestartCAPTION:Restart Practice NAME:mnuExitCAPTION:Exit状态栏NAME:Stautsbar1 文本框NAME:Text1(0)INDEX:0TABSTOP:FALSEVISIBLE:FALSE标签 NAME:Label1(0) INDEX:0VISIBLE:FALSEBACKSTYLE:0图片NAME:Picture1TABSTOP:FALSE时钟NAME:Timer1INTERVAL:1000 ENABLED:FALSE对话框NAME:CommonDialog1 工具栏NAME:Toolbar1 (备注:文本框控件Text1(0)和Label1(0)放入Picture1控件中)
2) 加入如下代码:
Dim rowcount, totalchar As Integer
mode是当前练习状态:start为正在联系,pause中止练习,否则为等待状态
filename为练习文本文件的文件名
Dim mode, filename As String
playsec为当前练习所用的秒数
Dim playsec As Long
------------------------------------------
Private Sub Form_Load()
Dim i As Integer
调整Picture1控件的位置
Picture1.Top = Toolbar1.Top + Toolbar1.Height + 10
Picture1.Height = Picture2.Top - Picture1.Top
显示当前练习状态
StatusBar1.Panels(1).Text = "Status : Waiting..."
End Sub
------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
如果练习文本行数大于0,则将动态生成的输入文本框和标签控件卸载
If rowcount > 0 Then
Dim i As Integer
For i = 1 To rowcount
Unload Label1(i)
Unload Text1(i)
Next
End If
End Sub
---------------------------------------------------------
Private Sub mnuCustom_Click() 自定义练习内容
On Error GoTo Error_Exit
弹出练习文本文件选择框
CommonDialog1.ShowOpen
如果选择的文件名为空,则退出
If CommonDialog1.filename = "" Then Exit Sub
如果当前练习状态不是等待状态,则停止当前练习
Timer1.Enabled = False
playsec = 0
Dim i As Integer
For i = 1 To rowcount
Unload Label1(i)
Unload Text1(i)
Next
filename = CommonDialog1.filename
开始新的练习,练习文本为用户选择的文本文件
Call mnuStart_Click
Exit Sub
Error_Exit:
Exit Sub
End Sub
------------------------------------------
Private Sub mnuExit_Click() 退出程序
Timer1.Enabled = False
Unload Me
End Sub
--------------------------------