我知道我很烦,可还是那个游戏
我想有一个倒计时器显示在界面上[此贴子已经被作者于2006-10-14 14:29:37编辑过]
[此贴子已经被作者于2006-10-14 14:29:37编辑过]
2006-10-13 22:31
2006-10-13 23:01
Option Explicit
Private Sub Command1_Click()
Timer1.Tag = 60
Label1.Caption = "00:" & Timer1.Tag
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Timer1.Tag = Timer1.Tag - 1
Label1.Caption = "00:" & Timer1.Tag
If (Timer1.Tag <= 0) Then
Timer1.Enabled = False
End If
End Sub
2006-10-14 09:23
2006-10-14 11:52
2006-10-14 12:07
WqKjazBH.rar