线程计时器启动后,循环几次后就不再进行循环了,为什么?
我在某过程中启动了线程计时器:
Pirvate Sub Button1_Click()Handles Button1.Click
Dim RunTTS As New Timer(New TimerCallback(AddressOf StartTTS), Nothing, TimeSpan.FromSeconds(5), TimeSpan.FromSeconds(10))
End Sub
Private Sub StartTTS()
Msgbox "hello"
End Sub
当弹出4、5次Hello后,就不再进行循环了,而每次测试弹出的次数不同,也许是3次,也许是6次,不知道为什么会出现这种情况。 多线程 计时器 定时器 线程定时器 线程计时器
[解决办法]
Dim RunTTS As New Timer(New TimerCallback(AddressOf StartTTS), Nothing, TimeSpan.FromSeconds(5), TimeSpan.FromSeconds(10))
你设置10秒后就过期了,可不是到10秒了就不循环了咋地
[解决办法]
不要在工作线程直接访问界面。
Private Sub StartTTS()
If (InvokeRequired)
Me.Invoke(AddressOf(StartTTS))
Else
Msgbox "hello"
End If
End Sub