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 !