YaugSoft

 
Imports System.Threading
 
Public Class FormMain
 
    Private monThread As Thread
 
    Private Sub ButtonDémarrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDémarrer.Click
 
        monThread = New Thread(AddressOf démarrage)
        monThread.Start()
 
        MessageBox.Show(Me, "Thread démarré", "Threading", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
    End Sub
 
    Private Sub démarrage()
 
        For index As Integer = 0 To 100000
 
            MAJLabel(index)
            Thread.Sleep(0)
 
        Next
 
    End Sub
 
    Private Delegate Sub MAJLabelDelegate(ByVal index As Integer)
 
    Private Sub MAJLabel(ByVal index As Integer)
 
        If LabelValeur.InvokeRequired Then
 
            LabelValeur.Invoke(New MAJLabelDelegate(AddressOf MAJLabel), index)
            Return
 
        End If
 
        LabelValeur.Text = index.ToString()
 
    End Sub
 
    Private Sub ButtonArrêter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonArrêter.Click
 
        monThread.Abort()
 
    End Sub
 
End Class