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為一個通訊函式，耗時較長。
uj5u.com熱心網友回復：
.net應該有除錯模式吧 你逐回圈看看轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/112427.html
標籤：VB基礎類