VB.NET le Multithreading plus simple avec le composant BackgroundWorker

[getule]

Le composant BackgroundWorker du framework .net permet d’utiliser un "multithreading" facilement. source http://forum.diafdz.com/yaf_postsm24...et.aspx#post24
prenons un exemple utile.
durant le temps de la connexion à la base de donnée d'un LoginForm, celle ci parait bloquée (Freeze de l'interface utilisateur).
au lieu d'utiliser un multithreading, voyons cela avec le BackgroundWorker.
Nous allons utiliser une ProgressBar pour faire patienter l'utilisateur durant la connexion à la base.


[CODE=vb]

Public username, password, tt As String ' Déclarons username et pasword et une valeur tt comme des string
Public c As Boolean 'déclarons c comme booléen

Private Sub LoginForm2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ProgressBar1.Visible = False 'mettons la progressbar en mode invisible au chargement de la loginform


'évènement du bouton Ok
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Me.ProgressBar1.Visible = True 'mettons la progressbar visible
username = Me.UsernameTextBox.Text
password = PasswordTextBox.Text

Me.BackgroundWorker1.RunWorkerAsync() 'lançons le composant BackgroundWorker en mode asynchrone

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub


'c'est ici dans la procédure de l'évènement DoWork qu'on va se connecter à la base
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)


Dim Ds = New MonDataSet 'création de l'objet dataset
Dim BS = New BindingSource 'création d'un BindingSource

Dim maTA = New MonDataSetTableAdapters.MatableTableAdapter 'Création d'un table adapter
maTA.FillByUsernameAndMp(Ds.Matable, username, password) ' Appel de ma requête FillByUsernameAndMp créée auparavant.
BS.DataSource = Ds.Matable 'liaison de mon bindingsource

If BS.Current Is Nothing Then 'Si mon binding source ne contient aucune valeur malgrés le lancement de la requête filtrée (username et mot de passe),
e.Cancel = True 'on arrête le travail du Backgroundwork
tt = "ERREUR D'IDENTIFICATION"
c = False 'on affecte la valeur "false" à c qu'on récupérera ultérieurement

Exit Sub
Else
'sinon, on affecte la valeur "true"à c qu'on récupérera ultérieurement
c = True
BackgroundWorker1.Dispose() 'on termine le travail du backgroundWorker
End If

End Sub
' lançons la progressbar en mode asynchrone
Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
Me.ProgressBar1.Value = e.ProgressPercentage

End Sub
' procédure de l'évènement RunWorkerCompleted ( quand le travail est treminé)
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted

If c = False Then 'c est la travaille avec la baleur c booléen, ici on n est pas connecté
Me.Label1.Text = tt
Me.ProgressBar1.Visible = False
Exit Sub
Else

Form1.Show() 'on est connecté on passe à l'autre form
Me.Close()
End If

[/CODE]

[alirobben]

Merci pour le code bien commenté