For循环中嵌套时钟的问题
我在vb.net中需要在For循环中使用一个时钟,但是循环直接运行到最后时钟还没开始运行。
Dim a as String
Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click
For i As Integer = 0 To 5
a = i
TimRun.Interval = 1000
TimeRun.Enabled = True
Next
End Sub
Private Sub TimRun_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimRun.Tick
SerialPort1.Write(a)
End Sub
如何让循环到中的时钟运行完后再进行下一次循环