Discussion :

[__bv__]

Bonjour,

Question de débutant: qu'ai je oublié ci-dessous afin d'initialiser ma "array" de NewStruct ?
Je pensais que Redim en VB était plus qu'une simple déclaration et initialisait aussi l'objet.
Merci d'avance.

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
 
Public Class Form1
    Public Class Newstruct
        Private elt1 As String
        Private elt2 As Integer
        Public Property pElt1()
            Get
                Return elt1
            End Get
            Set(value)
                elt1 = value
            End Set
        End Property
        Public Property pElt2()
            Get
                Return elt2
            End Get
            Set(value)
                elt2 = value
            End Set
        End Property
    End Class
    Public Arr() As Newstruct
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.Items.Clear()
        ReDim Arr(15)
        For i = 0 To 14
            Arr(i).pElt1 = 'CStr(i + 1)
            Arr(i).pElt2 = 2 * i
            ListBox1.Items.Add(Arr(i).pElt1)
            ListBox1.Items.Add(Arr(i).pElt2)
        Next
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Arr = Nothing
        Close()
    End Sub
End Class

[Delaney]

Bon déjà, y'a l'apostrophe de trop :

Code :

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

 Arr(i).pElt1 = 'CStr(i + 1)

il faut que tu passes par un objet intermédiaire que tu vas stocker dans ton tableau

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
ReDim Arr(15)
 
        Dim Struct = New Newstruct
        For i = 0 To 14
            Struct.pElt1 = "essais" & CStr(i + 1)
            Struct.pElt2 = 2 * i
            Arr(i) = Struct
            ListBox1.Items.Add(Arr(i).pElt1)
            ListBox1.Items.Add(Arr(i).pElt2)
        Next

[__bv__]

Merci Elthorn !
Ça doit alors être un constructor manquant ? Peut-être faudrait il que j'en crée un ? En tout cas ça marche en effet avec le copy constructor.
Il faut quand même instancier l'objet intermédiaire.

[Delaney]

En fait quand on écrit

Code :

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

Public Arr() As Newstruct

on crée un conteneur d'objet mais pas les objets qu'il contient
il faut donc a un moment ou un autre créer les objets pour les placer dans le conteneur, d'où le

Code :

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

Dim Struct = New Newstruct

Je pense que c'est pour cela que pour la création de tableau on ne met pas le terme New.
En fait cela agit un peu comme une collection, un list of. En tout cas c'est comme cela que je le comprends.

[__bv__]

Merci Elthorn. Il y a encore quelque chose qui m'échappe.
Je ne comprends pas pourquoi je n'arrive pas à récupérer correctement les éléments individuels de la matrice d'objets.
Sans doute encore une bêtise de ma part...

[Delaney]

Salut,

il faut mettre

Code :

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

Dim ns As New Newstruct

dans la boucle (et non avant) pour recréer un nouvel élément à chaque fois sinon il stocke le même élément dans une nouvelle case du tableau et fait évoluer le contenu de l'élément à chaque boucle.

Code :

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

1
2
3
4
5
6
7
8
For i = 0 To UBound(Arr) - 1
            Dim ns As New Newstruct
            ns.pElt1 = CStr(i + 1)
            ns.pElt2 = 2 * i
            Arr(i) = ns
            'ListBox1.Items.Add(Arr(i).pElt1)
            ListBox1.Items.Add(Arr(i).pElt2)
Next

C'est une erreur de ma part lorsque je t'ai donné le code, j'aurai du y penser. Désolé pour l'erreur