Question

vb timer控件的基础问题,怎麼把时间显示在label1上??

我想在程式一开始就计时,时间显示在label1上,计时到三分钟后自动弹出msgbox "你好",请问怎麼做??请复制完整代码给我....我的timer是Timer1

Answer 1

呵呵，又是你的问题，我的代码已调试通过，请放心使用！

Dim n As Integer

Private Sub Form_Load()
n = 180 '设置倒计时3分钟
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(n \ 60, "00") & ":" & Format(n Mod 60, "00")
If n > 0 Then
n = n - 1
Else
Timer1.Enabled = False
MsgBox "你好！", vbInformation
End If
End Sub

Answer 2

Public a As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
a = 0
End Sub

Private Sub Timer1_Timer()
a = a + 1
If a Mod 180 = 0 Then MsgBox "你好"
Label1.Caption = a & "秒"
End Sub

Answer 3

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.Caption = Now
End Sub

Private Sub Timer1_Timer()
Static p As Integer
Label1.Caption = Now
p = p + 1
If p Mod 180 = 0 Then MsgBox "你好"
End Sub

Answer 4

'设置Time的间隔使用次数 为900 如果是1000(1秒)的话时间可能会和主机有偏差
Label1.Caption = Now
'Now就是显示当前主机上的年月日时分秒,如果是date的话就是日期，是month就是月，是time就是时间
'也就是说
Label1.Caption 可以= Now或 date或month或time