怎样用VB程序不断地监视系统时间
来源:百度知道 编辑:UC知道 时间:2024/05/13 16:17:48
想做个报时程序~我的想法是在程序运行时,如果到了正点就报时~但我不知道怎样做到不断地监视系统时间
哪用API呀,
直接用个timer控件加time 语句就搞定.
______
新建一个工程,在窗体上加一个标签和一个定时器
然后把下面的代码复制过去:
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim h, m, s
h = Hour(Time) '现在几点
m = Minute(Time)'现在几分
s = Second(Time)'现在是几秒
If m = 0 And s = 0 Then
MsgBox "现在时间:" & h, , "整点报时"
Beep '响一下
End If
Label1.Caption = Time
End Sub
VB.NET应该怎么写?
上面的代码在.NET不通过