是鬧鐘。
創建壹個新項目,表單名稱為AlarmForm。
放置壹個名為Timer1的計時器。放置壹個名為lblTime的標簽。
代碼如下:
選項顯式
昏暗的報警時間
Const conMinimized = 1
私有子窗體_Click()
AlarmTime = InputBox("輸入啟動鬧鐘的時間"," VB鬧鐘",鬧鐘時間)。
如果AlarmTime = " "則退出Sub
如果不是IsDate(報警時間),則
MsgBox "您輸入的時間無效。"
從InputBox返回的字符串“Else”構成有效時間,
AlarmTime = CDate(AlarmTime)'將其作為日期/時間值存儲在報警時間中。
如果…就會結束
末端接頭
私有子窗體_Load()
AlarmTime = " "
末端接頭
私有子窗體_Resize()
If WindowState = conMinimized Then '如果窗體最小化,則在標題處顯示時間。
SetCaptionTime
其他
Caption = "鬧鐘"
如果…就會結束
末端接頭
私有Sub SetCaptionTime()
Caption = format (time,“中等時間”)'以中等時間格式顯示時間。
末端接頭
私有子定時器1_Timer()
靜態警報聽起來像整數
如果lblTime。標題& lt& gtCStr(時間)
當前秒數與顯示的秒數不同。
如果時間& gt=報警時間和非報警時間
嗶嗶聲
MsgBox“鬧鐘開始於”&;時間
AlarmSounded = True
ElseIf Time & lt那就報警吧
AlarmSounded = False
如果…就會結束
如果WindowState = conMinimized,則
如果最小化,表單標題需要每分鐘更新壹次。
if Minute(CDate(Caption))& lt;& gt分鐘(時間),然後設置標題時間
其他
否則,標簽的標題每秒更新壹次。
lblTime。標題=時間
如果…就會結束
如果…就會結束
末端接頭