首先在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对话框中要提的是：在form_load中app.title表示你的应用程序的名字；app.major、minor、revision是关于应用程序的版本信息；lblDescription.Caption用于对本程序的一些说明描述之类的话；lblDisclaimer.Caption用于版权信息或警告等。
好了，至此我们已完成了一个简单的VB程序的编写，希望你能设计出更好的闹钟程序来！
以上在windows98,中文VB5.0企业版中通过。->
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
