Bjr , j'ai essayé avec un delegate afin de pouvoir rafraichier/ajouter des composant dans un datagrid depuis un thread, mais sans résultat, qqun saurait il m'expliquer comment faire ?

Voici la form1 ou est déclaré, utilisé le datagrid et lancé le thread.
Et voici la classe que j'instancie pour le thread

Dim myThreadObj As New ThreadCalculs(var2, var1)
        _threadCalculs1 = New Threading.Thread(AddressOf myThreadObj.ThrFunc)
        _threadCalculs1.Start()

Et voici la classe que j'instancie pour le thread

Imports System.Threading

Public Class ThreadCalculs
    Dim *********** As ArrayList
    Dim *********** As ArrayList

    Public Sub New(ByVal _GroupsList As Object, ByVal _TSResult As Object)
        *************************
    End Sub

    'Fonction utilisée dans le Thread
    Public Sub ThrFunc()
        Try
            ***************
                        C'est ici que je voudrais mettre à jour le datagrid

                            Form1.DataGridView1.Rows.Add(TSQuery.RemoveRDPTCP(TSResult_Users))

                        C'est ici que je voudrais mettre à jour le datagrid

            ***************
        Catch ex As Exception
        End Try
    End Sub

End Class

Merci d'avance pour votre aide

Bonjour,

Utilises la méthode Invoke de ton controle, cela te permettra de lancer une sub/function dans le thread principal sans générer l'exception de tentative de modif par un autre thread.

Merci de ta réponse, mais on m'a déjà repondu cela mais je ne sais comment faire ? as tu un exemple ou peux tu me montrer dans le code ci dessus.

 

Merci d'avance 

Passioné d'informatique et Etudiant en Informatique et réseaux ==> Animateurs Patro

Bonjour,

Il faut que tu créé une sub/function qui modifiera ton controle.
Ensuite, tu créé un Delegate à l'image de la méthode que tu as crée
Puis Quand tu veux procéder au rafraichissement, tu utilises le Invoke (New MonDelegate( adressOf MaMethod,new object(){Paramètres})

Je l'utilise de la facon suivante et aucune information ne s'affiche dans le datagrid, alors que sans le thread cela fonctionne (mais freeze le programme lors de trop longue attente)

    Private Delegate Sub chg_datagrid_del(ByVal my_object As Object)
    Private Sub chg_datagrid(ByVal _mon_object As Object)
        Form1.DataGridView1.Rows.Add(_mon_object)
        Form1.DataGridView1.Refresh()
    End Sub

et je l'appelle comme ceci dans mon thread

     Dim del As chg_datagrid_del
     del = New chg_datagrid_del(AddressOf Me.chg_datagrid)
     del.Invoke(mon_object)

Merci d'avance si tu vois ce qui ne va pas.
Si d'autre personne on un exemple concret/complet et qui fonctionne, cela m'aiderait fortement, ou une documentation.
Cordialement

Salut,

Pour faire plus simple, et si c'est suffisant, tu peux utiliser un BackgroundWorker (se trouve dans System.ComponentModel)

   Private WithEvents Worker As New System.ComponentModel.BackgroundWorker
    Private Sub LancerCalcul(ByVal InputDatas As String)
        ' Lancer un calcul dans un thread séparé
        Worker.WorkerReportsProgress = True
        Worker.RunWorkerAsync(InputDatas)
    End Sub
 
    Private Sub Worker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Worker.DoWork
        ' Cette procédure s'éxécute dans le thread séparé
        ' Faire le calcul/les attentes qui prend du temps ici
        Dim ProgressDatas As String = "machin"
        Worker.ReportProgress(0, ProgressDatas )
        ' Encore des calculs/attentes
        Dim ResultDatas As String = "truc"
        e.Result = ResultDatas
    End Sub

    Private Sub Worker_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles Worker.ProgressChanged
        ' Cette procédure s'éxécute dans le thread principal
        ' Tu peux y mettre le DataGrid à jour...
        Console.WriteLine(e.UserState)
    End Sub

    Private Sub Worker_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles Worker.RunWorkerCompleted
        ' Cette procédure s'éxécute dans le thread principal
        Console.WriteLine("Terminé: " & e.Result)
    End Sub

Bonjour,

Ton code est erroné :

     Dim del As chg_datagrid_del
     del = New chg_datagrid_del(AddressOf Me.chg_datagrid)
     del.Invoke(mon_object)
devient :
     Dim del As chg_datagrid_del
     del = New chg_datagrid_del(AddressOf Me.chg_datagrid)
     Me.chg_datagrid.Invoke(del,new object(){mon_object})