[VB.NET 1.1] [Thread] Méthode invoke

Version imprimable

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:

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 !

15/02/2006, 08h15
toniolol

Re: [VB.NET 1.1] [Thread] Méthode invoke

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...
15/02/2006, 08h32
DrQ

Si tu mets un breakpoint dans ton for each, il rentre bien dedans ?
Comme ça vu ton code, cela me parait juste.
15/02/2006, 08h58
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 !
15/02/2006, 13h13
DrQ
Ah vi :) j'avais pas fait attention à ça !
Code:

1 2 Me.Invoke(New TestIPDelegateHandler(UpdateTestIp), o);
Par contre le code est peut être pas très juste j'ai traduit du C#.
15/02/2006, 16h04
toniolol
Nickel :!:
Code:

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 :!: