Emmanuele Sassi
24 lines
598 B
VB.net
24 lines
598 B
VB.net
Public Class ViewerOptimizerCommThread
|
|
|
|
' variabile che ferma il ciclo
|
|
Private Shared m_Stop As Boolean = False
|
|
|
|
Friend Shared Sub StopThread()
|
|
m_Stop = True
|
|
End Sub
|
|
|
|
Public Shared Sub ViewerOptimizerCommThreadFunction()
|
|
|
|
' creo classe di comunicazione
|
|
Dim m_ViewerOptimizerComm As ViewerOptimizerComm = New ViewerOptimizerComm()
|
|
|
|
While Not m_Stop
|
|
' eseguo ciclo principale che tiene vivo il thread
|
|
m_ViewerOptimizerComm.Timer_Tick()
|
|
Threading.Thread.Sleep(TimeSpan.FromMilliseconds(1000))
|
|
End While
|
|
|
|
End Sub
|
|
|
|
End Class
|