1） 首先新建一EXE工程
在工程菜单－部件菜单中选择MICROSOFT COMMON DIALOG CONTROL 6.0(SP3)和MICROSOFT WINDOWS COMMON CONTROLS 6.0(SP4)两项，在工程菜单－引用菜单中选择MICROSOFT SCRIPTING RUNTIME项，然后保存工程，再在窗体中加入控件（部分），列表如下：
| 菜单 | NAME:mnuPractice | CAPTION:Practice | | 子菜单 | NAME:mnuStart | CAPTION:Start Practice | | | NAME:mnuPause | CAPTION:Pause Practice | | | NAME:mnuResume | CAPTION:Resume Practice | | | NAME:mnuCustom | CAPTION:Custom Practice | | | NAME:mnuRestart | CAPTION:Restart Practice | | | NAME:mnuExit | CAPTION:Exit | | 状态栏 | NAME:Stautsbar1 | | | 文本框 | NAME:Text1(0) | INDEX:0TABSTOP:FALSEVISIBLE:FALSE | | 标签 | NAME:Label1(0) | INDEX:0VISIBLE:FALSEBACKSTYLE:0 | | 图片 | NAME:Picture1 | TABSTOP:FALSE | | 时钟 | NAME:Timer1 | INTERVAL:1000 ENABLED:FALSE | | 对话框 | NAME:CommonDialog1 | | | 工具栏 | NAME:Toolbar1 | |
(备注：文本框控件Text1(0)和Label1(0)放入Picture1控件中) 2） 加入如下代码：
rowcount是练习文本的行数，totalchar是练习文本的总字数
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
--------------------------------
〖责任编辑： 〗  告诉好友  |
|
|
发表评论