UC知道用vb编一个定点报时软件
来源：百度知道 编辑：UC知道 时间：2024/05/23 14:48:38
可以显示时间,整点报时,设定时间报时.向vb高手请教,急.
在窗体上放一个label控件和一个timer控件
Private Sub Form_Load()
Label1.Caption = Time
Label1.Font.Size = 22
Label1.Width = 2100
Label1.Height = 500
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim Tt As String
Label1.Caption = Format(Time, "hh:mm:ss")
If Right(Label1.Caption, 5) = "00:00" Then
Beep
Beep
Beep
Beep
End If
End Sub