Postada em 9/10/2003 por ~Ð@®£@Ñ Finalmemente o Visual Basic sente o gostinho do "free threading". Este exemplo mostra como usar threads e determinar prioridades para cada thread em execução:
Option Strict Off Imports System Imports Microsoft.VisualBasic Imports System.Threading
Class MyThread Shared Sub main() Try 'Declare a Thread and Assign it to a Methord Hi Dim t As New thread(AddressOf hi) 'Declare Another Thread and assign it to Bye Dim b As New thread(AddressOf bye)
'Set the priority level for each thread t.Priority = ThreadPriority.Normal b.Priority = ThreadPriority.Lowest
'Start the thread execution t.start() b.start() Catch e As exception msgbox(e.tostring) End Try End Sub
Shared Sub hi() 'Infinite Loop CTRL + C to Exit Do While True console.writeline("hi") Loop End Sub
Shared Sub bye() 'Infinite Loop CTRL + C to Exit Do While True console.writeline("bye") Loop End Sub End Class
