使用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對話框中要提的是：在form_load中app.title表示你的應用程序的名字；app.major、minor、revision是關於應用程序的版本信息；lblDescription.Caption用於對本程序的一些說明描述之類的話；lblDisclaimer.Caption用於版權信息或警告等。
好了，至此我們已完成了一個簡單的VB程序的編寫，希望你能設計出更好的鬧鐘程序來！
以上在windows98,中文VB5.0企業版中通過。->
