Private Sub Run_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Run_btn.Click
Thread_Main = New Thread(AddressOf Templ_chark)
Thread_Main.Start()
Loop_Mark = True
End Sub
Public Sub Templ_chark()
While Loop_Mark = True
Me.Invoke(New Thread_New(AddressOf Main_loop))
End While
End Sub
Public Sub Main_loop()
Modbus_Comunication(DataGridView1(3, 0).Value.ToString)
End Sub
Private Sub Stop_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stop_btn.Click Loop_Mark = False
Thread_Main.Abort()
End Sub
Modbus_Comunication为一个通讯函数,耗时较长。
Thread_Main = New Thread(AddressOf Templ_chark)
Thread_Main.Start()
Loop_Mark = True
End Sub
Public Sub Templ_chark()
While Loop_Mark = True
Me.Invoke(New Thread_New(AddressOf Main_loop))
End While
End Sub
Public Sub Main_loop()
Modbus_Comunication(DataGridView1(3, 0).Value.ToString)
End Sub
Private Sub Stop_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stop_btn.Click Loop_Mark = False
Thread_Main.Abort()
End Sub
Modbus_Comunication为一个通讯函数,耗时较长。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货