Discussion :

[ShadowTzu]

Bonjour,
J'ai un problème de thread qui après son execution les variables qu'il a modifié reviennent à leur valeur d'origine!

mon code de test

dans un module:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Imports System.Threading
Module Test
    Private Structure mytab
        Public filename As String
        Public width As Integer
        Public height As Integer
        Public bmp As Bitmap
        Public Sub load()
            bmp = New Bitmap(filename)
            width = bmp.Width
            height = bmp.Height
            filename = "pouet a pouet"
            MsgBox("dans le thread: H:" & height & ", W:" & width & ", File:" & filename)
        End Sub
    End Structure
 
    Public Structure Prout
        Private tab() As mytab
        Private Inc As Integer
 
        Public Sub Add(ByVal filename As String)
            If tab Is Nothing Then
                ReDim tab(0)
            Else
                ReDim Preserve tab(Inc)
            End If
            tab(Inc).filename = filename
            Dim mythread As Thread = New Thread(AddressOf tab(Inc).load)
            mythread.Start()
            Do While mythread.ThreadState <> ThreadState.Stopped
            Loop
            MsgBox("Hors du thread: H:" & tab(Inc).height & " W:" & tab(Inc).width & " File:" & tab(Inc).filename)
            Inc += 1
        End Sub
 
    End Structure
 
    Public Pouet As Prout
End Module

dans le formulaire:

Code :

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

1
2
3
4
5
6
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Pouet.Add("E:\ressources\back.jpg")
    End Sub
End Class

Les 2 msgbox affiches des données differente

[Mose]

Normal, c'est une structure.
C'est un ValueType.
Donc son passage en paramètre est par recopie, et pas par référence.

La structure que tu utilise dans ton thread est une copie de celle que tu as créé en dehors
Utilise une classe.

[ShadowTzu]

malheureusement je veux garder mes données dans une structure.

[Mose]

C'est malheureux effectivement.
Je ne peux pas t'aider, je ne parle pas VB. En C# il y a un moyen de forcer le passage par référence. C'est pas très conseillé, mais c'est possible, avec le mot clef 'ref'.

[StormimOn]

En VB.Net, pour forcer le passage par référence, il faut utiliser le mot clé ByRef

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Class RefExample
    Shared Sub Method(ByRef i As Integer)
        i = 44
    End Sub
 
    Shared Sub Main()
        Dim val As Integer = 0
        ' ici val vaut 0
        Method(val)
        ' ici val vaut 44 (il vaudrait 0 sans le passage par référence)
    End Sub
End Class

[ShadowTzu]

on ne peut pas utiliser d'argument dans un thread, le byref ne sert donc ici a rien.