Dim m As Integer, s As Integer, ms As Integer, flag As Boolean Private Sub Command1_Click() If flag = False Then Timer1.Interval = 10 flag = True Else Timer1.Interval = 0 flag = False End If End Sub Private Sub Command2_Click() flag = False Timer1.Interval = 0 m = 0 s = 0 ms = 0 Label1.Caption = "00:00:00" End Sub Private Sub Timer1_Timer() ms = ms + 1 If ms = 100 Then s = s + 1 ms = 0 End If If s = 60 Then m = m + 1 s = 0 End If Label1.Caption = Format(m, "00:") & Format(s, "00:") & Format(ms, "00") End Sub
利用VB制作一个秒表
最新推荐文章于 2022-05-30 20:38:10 发布