USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic.Net    (Miscelâneas)

Título da Dica:  Threading no VB.NET
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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página