用VB6.0设计一个打字练习软件

　　记得以前在学校里刚接触电脑时，首先掌握的是学会打字，那时的操作系统都是DOS的，界面比较单调，现在进入WINXP时代，所以打字软件也要跟潮流了！所以我用VB6.0写了一个打字小软件，主要步骤如下，供各位VB fans参考：

　　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
'------------------------------------------
Private Sub mnuPause_Click() '中止练习
　'如果当前正在练习，
　If mode = "start" Then
　　Timer1.Enabled = False
　　mode = "pause"
　　'Picture1.Enabled = False
　　StatusBar1.Panels(1).Text = "Status : Pausing..."
　End If
End Sub
'---------------------------------------------
Private Sub mnuRestart_Click() '重新练习
　'如果没有开始练习，则退出；否则先卸载动态生成的控件数组，
　'然后再开始练习
　If mode = "" Then Exit Sub
　　Dim i As Integer
　　mode = ""
　　For i = 1 To rowcount
　　　Unload Label1(i)
　　　Unload Text1(i)
　　Next
　Call mnuStart_Click
End Sub
'---------------------------------------------
Private Sub mnuResume_Click() '继续练习
　'如果练习为中止状态，则继续练习
　If mode = "pause" Then
　　Timer1.Enabled = True
　　mode = "start"
　　'Picture1.Enabled = True
　　StatusBar1.Panels(1).Text = "Status : Starting..."
　End If
End Sub
'---------------------------------------------
Private Sub mnuStart_Click()
　'如果当前正在练习，则退出此过程
　If mode <> "" Then Exit Sub
　'申明一个文本流和一个文件系统对象
　Dim t As TextStream
　Dim i As Integer
　Dim b As FileSystemObject
　'创建一个文件系统对象
　Set b = New FileSystemObject
　Dim temp As String
　'如果当前没有练习文本文件，则采用默认的文本文件进行练习
　If filename = "" Then filename = App.Path "\article\a.txt"
　'读一个文本文件
　Set t = b.OpenTextFile(filename, ForReading, False)
　i = 0: totalchar = 0

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有