1,453
社区成员




Option Explicit
Dim mlOutData$
Private Sub Command1_Click()
'开始
mlOutData = 0
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
'停止
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer1.Interval = 1000
Timer2.Interval = 5
End Sub
Private Sub Timer1_Timer()
Debug.Print Timer(), mlOutData
End Sub
Private Sub Timer2_Timer()
mlOutData = mlOutData + 1
End Sub