用vb6.0设计一个打字练习软件java教程

《用vb6.0设计一个打字练习软件java教程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、精选公文范文管理资料用VB6.0设计一个打字练习软件Java教程1）首先新建一EXE工程　　在工程菜单－部件菜单中选择MICROSOFTCOMMONDIALOGCONTROL6.0(SP3)和MICROSOFTWINDOWSCOMMONCONTROLS6.0(SP4)两项，在工程菜单－引用菜单中选择MICROSOFTSCRIPTINGRUNTIME项，然后保存工程，再在窗体中加入控件（部分），列表如下：菜单NAME:mnuPracticeCAPTION:Practice子菜单NAME:mnuSt

2、artCAPTION:StartPracticeNAME:mnuPauseCAPTION:PausePracticeNAME:mnuResumeCAPTION:ResumePracticeNAME:mnuCustomCAPTION:Custom[键入文字][键入文字][键入文字]精选公文范文管理资料PracticeNAME:mnuRestartCAPTION:RestartPracticeNAME:mnuExitCAPTION:Exit状态栏NAME:Stautsbar1文本框NAME:Text

3、1(0)INDEX:0TABSTOP:FALSEVISIBLE:FALSE标签NAME:Label1(0)INDEX:0VISIBLE:FALSEBACKSTYLE:0图片NAME:Picture1TABSTOP:FALSE时钟NAME:Timer1INTERVAL:1000ENABLED:FALSE对话框NAME:CommonDialog1工具栏NAME:Toolbar1(备注：文本框控件Text1(0)和Label1(0)放入Picture1控件中)　　2）加入如下代码：rowcount是练

4、习文本的行数，totalchar是练习文本的总字数Dimrowcount,totalcharAsIntegermode是当前练习状态：start为正在联系,pause中止练习，否则为等待状态filename为练习文本文件的文件名Dimmode,filenameAs[键入文字][键入文字][键入文字]精选公文范文管理资料Stringplaysec为当前练习所用的秒数DimplaysecAsLongPrivateSubForm_Load()　DimiAsInteger　调整Picture1控件的位置

5、　Picture1.Top=Toolbar1.Top+Toolbar1.Height+10　Picture1.Height=Picture2.TopPicture1.Top　显示当前练习状态　StatusBar1.Panels(1).Text=“Status:Waiting...”EndSubPrivateSubForm_Unload(CancelAsInteger)　如果练习文本行数大于0，则将动态生成的输入文本框和标签控件卸载　Ifrowcount>0Then　　DimiAsInteger　

6、　Fori=1Torowcount　　　Unload[键入文字][键入文字][键入文字]精选公文范文管理资料Label1(i)　　　UnloadText1(i)　　Next　EndIfEndSubPrivateSubmnuCustom_Click()自定义练习内容　OnErrorGoToError_Exit　弹出练习文本文件选择框　CommonDialog1.ShowOpen　如果选择的文件名为空，则退出　IfCommonDialog1.filename=““ThenExitSub　如果当前练习

7、状态不是等待状态，则停止当前练习　Timer1.Enabled=False　playsec=0　DimiAsInteger　Fori=1Torowcount　　UnloadLabel1(i)　　Unload[键入文字][键入文字][键入文字]精选公文范文管理资料Text1(i)　Next　filename=CommonDialog1.filename　开始新的练习，练习文本为用户选择的文本文件　CallmnuStart_Click　ExitSubError_Exit:　ExitSubEndSub

8、PrivateSubmnuExit_Click()退出程序　Timer1.Enabled=False　UnloadMeEndSubPrivateSubmnuPause_Click()中止练习　如果当前正在练习，　Ifmode=“start”Then　　Timer1.Enabled=False　　mode=“pause”　　Picture1.Enabled=False　　StatusBar1.Panels(1).Text=“Status:[键入文字][键入文字][键入文字]精选公文范文管理资料Pa