用VB设计一个定时闹钟程序.docVIP

使用win98的人一定知道其中有一个“计划任务的应用程序,它能够到指定时间便开始工作。不要认为它很神秘,其实用VB来设计这样一个程序是非常容易的事,以下是一个简单的VB闹钟程序,可供各位使用VB的朋友参考,如有何不适之处,请多指点!　　首先在form1上建立三个命令按钮,分别为command1 打开预启动的文件 ;command2 设定时间的按钮 ;第三个command3 即可启动 按钮可有可无;一个label1用来显示你预打开的文件名的路径；一个lbltime用来显示现在的时间；还有一个commondialog,它在工程菜单的部件中，你可把它加到工具箱中再开始使用;关于对话框你不必自己建，只要从应用程序向导中添加即可;一个timer,它的interval 500。　　其次在form1的属性中设置为:startupposition 2－centerscreen和maxbutton false;label1的属性中设置为：alignment 2－center。　　外观大致是如图所示：　　下面我们开始编程：　　OptionExplicit　　DimAlarmTime　　申明变量　　－－－－－－－－－　　PrivateSubCommand1_Click Calldialog　　调用dialog子程序　　EndSub　　－－－－－－－－　　PrivateSubCommand2_Click AlarmTime InputBox “请输入你想设定的时间,例如 19:12:00 ,“小闹钟 　　IfAlarmTime “ThenExitSub　　IfNotIsDate AlarmTime Then　　MsgBox“你所输入的不是时间格式,请重试!,,“Wrong　　Else　　AlarmTime CDate AlarmTime 　　EndIf　　判断输入的是否可转换成time格式　　isdate函数是判断输入的是否可转换成date格式　　EndSub　　－－－－－－－－－－－－－－　　PrivateSubCommand3_Click Calldeng　　调用deng子程序　　EndSub　　－－－－－－－－－－－－－－－　　PrivateSubForm_Click frmAbout.Show　　显示关于对话框　　EndSub　　－－－－－－－－－－－－－　　PrivateSubForm_Load Command3.Enabled 0　　AlarmTime “　　初始化时command3为不可用的　　EndSub　　－－－－－－－－－－－－－－－　　PrivateSubForm_Resize IfWindowState 1Then　　mintime　　else　　caption “小闹钟　　EndIf　　如果窗口被最小化,则调用mintime程序　　EndSub　　－－－－－－－－－－－－－－－　　PrivateSubmintime Caption Format Time,“longTime 　　使用长时间格式来显示时间　　EndSub　　－－－－－－－－－－－－－－－　　PrivateSubTimer1_Timer IflblTime.Caption CStr Time Then　　lblTime.Caption Time　　EndIf　　显示时间每秒钟的变化　　IfTime AlarmTimeThen　　Calldeng　　EndIf　　判断如果现在的时间超过了设定的时间,则调用deng子程序　　IfWindowState 1Then　　IfMinute CDate Caption Minute Time Then　　mintime　　EndIf　　EndIf　　最小化时显示时间每分钟的变化　　EndSub　　－－－－－－－－－－－－－　　Subdialog CommonDialog1.Flags cdlCFBoth　　CommonDialog1.ShowOpen　　Label1.Caption CommonDialog1.filename　　IfLabel1 “Then　　Command3.Enabled －1　　Else　　ExitSub　　EndIf　　把打开的文件名给于label1　　如果label1不为空时,则command3即可用　　EndSub　　－－－－－－－－－－－－－－　　Subdeng Dimss　　ss Shell Label1.Caption,1 　　End　　启动指定的文件,并且结束小闹钟程序　　EndSub　　最后在about对话框中要提的是