Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork For Each files In My.Computer.FileSystem.GetFiles(mediafold) AjouteItem(files) Next End Sub Private Delegate Sub AjouteItemDelegate(ByVal valeur As String) Private Sub AjouteItem(ByVal valeur As String) If Me.InvokeRequired Then 'Si l'appel est fait par un autre thread 'On appel la même fonction par un Delegate Me.Invoke(New AjouteItemDelegate(AddressOf AjouteItem), New Object() {valeur}) Else 'On ajoute l'item (Ici on peut interagir avec les éléments de la form) Me.ListBox1.Items.Add(valeur) End If End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
il ralenti mon PC et bouffe ma rame a fondA toi de parfaire le code en libérant les ressources utilisées, de gérer correctement les erreurs prévisibles par des conditions (if,select case...) et les autres par des blocs Try/Catch. Ce n'est qu'un code exemple non optimisé
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.