麻烦哪位高手忙我改下vb的程序,让它能运行,谢谢!

来源:百度知道 编辑:UC知道 时间:2024/09/22 14:55:39
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

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

Private Sub Command3_Click()
Label2.Caption = Format(mi, "00")
Label4.Caption = Format(se, "00")
Label6.Caption = Format(mse, "00")
Timer1.Enabled = False
mi = 0: se = 0: mse = 0
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Timer1_Timer()
mse = mse + 1
Label6.Caption = Format(mse, "00")
If mse >= 99 Then
mse = 0
Label6.Caption = Format(mse, "00")
se = se + 1
Label4.Caption = Format(se, "00")
If se >= 99 Then
se = 0
Label4.Caption = Format(se, "00")
mi = mi + 1
Label2.Caption = Format(mi, "00")

稍微改动一下就行

Dim mse As Integer, se As Integer, mi As Integer
Private Sub Command1_Click()
Timer1.Interval = 10
Command1.Enabled = False
Command2.Enabled = True
Timer1.Enabled = True
End Sub

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

Private Sub Command3_Click()
Label2.Caption = Format(mi, "00")
Label4.Caption = Format(se, "00")
Label6.Caption = Format(mse, "00")
Timer1.Enabled = False
mi = 0: se = 0: mse = 0
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Timer1_Timer()
mse = mse + 1
Label6.Caption = Format(mse, "00")
If mse >= 99 Then
mse = 0
Label6.Caption = Format(mse, "00")
se = se + 1
Label4.Caption = Format(se, "00")