Hola amantes del ensamblador!
En esta ocasión os traigo un método sencillo para poder iniciar una función en un nuevo hilo (thread). Abrir un nuevo hilo para procesar funciones o subrutinas pesadas o lentas nos puede servir para seguir interactuando con la interfaz de usuario sin que esta quede bloqueada a la espera de que la función se procese por completo.
Cómo la subrutina MiNuevoHilo() va a estar modificando un control que se está ejecutando en un hilo distinto, deberemos poner la propiedad CheckForIllegalCrossThreadCalls a False en el evento Load del formulario, si no nos dará errores a la hora de ejecutar el programa.
En el evento Click del control Button1 declararemos Hilo como un nuevo thread de la subrutina MiNuevoHilo() y lo inicializaremos.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Imports System.Threading Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Control.CheckForIllegalCrossThreadCalls = False End Sub Private Sub MiNuevoHilo() For i As Integer = 0 To 999999999 Label2.Text = i i = i + 1 Next MsgBox("Finalizado!") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Hilo As New Thread(AddressOf MiNuevoHilo) Hilo.Start() End Sub End Class |

Si te ha gustado este pequeño tutorial no olvides puntuarlo y compartirlo en tus redes sociales. Gracias por visitar mi blog y nos vemos en el próximo tutorial!.