用VB60设计一个打字练习软件Java教程.docVIP

用VB6.0设计一个打字练习软件Java教程 1） 首先新建一EXE工程 　　在工程菜单－部件菜单中选择MICROSOFT COMMON DIALOG CONTROL 6.0(SP3)和MICROSOFT WINDOWS COMMON CONTROLS 6.0(SP4)两项，在工程菜单－引用菜单中选择MICROSOFT SCRIPTING RUNTIME项，然后保存工程，再在窗体中加入控件（部分），列表如下： 菜单NAME:mnuPracticeCAPTION:Practice子菜单NAME:mnuStartCAPTION:Start PracticeNAME:mnuPauseCAPTION:Pause PracticeNAME:mnuResumeCAPTION:Resume PracticeNAME:mnuCustomCAPTION:Custom PracticeNAME:mnuRestartCAPTION:Restart PracticeNAME: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） 加入如下代码： 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