计时器 wxh zt

wxhwhmanshan

Dim i As Integer


                  Private Sub Command1_Click()
                  Command2.Enabled = True
                  Label4.Caption = ""
                  For i = 0 To 2
                  Option1(i).Enabled = False
                  Next i
                  Command1.Enabled = False
                  Timer1.Enabled = True
                  End Sub

                  Private Sub Command2_Click()
                  Command2.Enabled = False
                  Timer1.Enabled = False
                  Command1.Enabled = True
                  End Sub

                  Private Sub Form_Load()
                  Option1(0).Value = True
                  Label6 = "1"
                  Label7 = "00"
                  End Sub

                  Private Sub Option1_Click(Index As Integer)
                  Select Case Index
                  Case 0
                  Case 1
                  Label6 = "5"
                  Label7 = "00"
                  Case 2
                  Label6 = "10"
                  Label7 = "00"
                  End Select
                  End Sub

                  Private Sub Timer1_Timer()
                  If (Label7 = "00" Or Val(Label7) = 0) Then
                  Label7 = "59"
                  Label6 = Str(Val(Label6) - 1)
                  Else
                  Label7 = Str(Val(Label7) - 1)
                  End If
                  If (Val(Label6) = 0 And Val(Label7) = "0") Then
                  Label4.Caption = "时间到！"
                  Timer1.Enabled = False
                  For i = 0 To 2
                  Option1(i).Enabled = True
                  Next i
                  Command1.Enabled = True
                  End If

                  End Sub [em3]

Temppktemp

大侠：
　　这是个计时器吧！是不是要设定一下Timer.interval的值呀，不设定没有效果！小弟试了试，不过第二次点Command1时，怎么有负数呀？大侠，推出升级版吧！

茹枫

是不是时钟阿？我玩vb的时候也做过。
挺容易，效果又好。