Discussion :

[toniolol]

Bonjour,
je suis désolé de remonter ce post mais là je me noie...
J'ai lu ce tuto, j'ai essayé de l'appliquer en VB mais je sèche.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Private Delegate Sub TestIPDelegateHandler(ByVal strAdIP As String)
    Private TestIPDelegate As TestIPDelegateHandler
 
    'Thread principal
    Private Sub thTestIP()
        For Each dr As DataRow In Ds8.Tables(0).Rows
            Dim strIP As String = CType(dr.Item(1), String)
            Dim o As Object() = {strIP}
            Me.Invoke(Me.TestIPDelegate, o)
        Next
    End Sub
 
    'Affichage testIP
    Private Sub UpdateTestIp(ByVal strAdIP As String)
        MessageBox.Show(TestIp(strAdIP).ToString())
    End Sub
 
    'Cmd start
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t As Thread = New Thread(AddressOf thTestIP)
        t.Start()
    End Sub

Le souci est que la sub UpdateTestIp n'est jamais appelée.
Merci d'avance !

[toniolol]

Re Salut,
je viens de ré-éditer mon post et mon titre car ça ne correspondait plus à mes recherches...
En fait j'essaye de lancer une procédure gourmande (TestIp) à partir de chaque row d'une DataTable. Chaque test se solde par une modification d'un TreeView, d'une ProgressBar, d'un GroupBox...
Merci d'avance de me sortir de ce sac de noeuds...

[DrQ]

Si tu mets un breakpoint dans ton for each, il rentre bien dedans ?
Comme ça vu ton code, cela me parait juste.

[toniolol]

Il y rentre effectivement mais si je fais la manip en 'pas à pas' il se perd après la ligne Me.Invoke et si j'arrête l'appli il y a quelque chose qui tourne et qui empêche la fermeture.
Mais il ne passe jamais dans la sub UpdateTestIp.
D'ailleurs je ne comprends pas trop comment il devrait s'y rendre ? par rapport à la signature ? Parce que je dois avoir d'autres fonctions avec un string en argument.
Merci d'avance !

[DrQ]

Ah vi j'avais pas fait attention à ça !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Me.Invoke(New TestIPDelegateHandler(UpdateTestIp), o);

Par contre le code est peut être pas très juste j'ai traduit du C#.

[toniolol]

Nickel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Me.Invoke(New TestIPDelegateHandler(AddressOf UpdateTestIp), o)

Un grand merci, tu m'enlève une grosse épine du pied, ce n'est pas la seule mais bon...maintenant je vais pouvoir passer au BeginInvoke.
C'est pas encore gagné, me reste plus qu'a traduire le tout correctement en VB.
Merci encore