Problème d'initialisation d'une instance

Version imprimable

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:

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

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

Code:

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

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

Code:

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

04/10/2018, 10h39
__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.
04/10/2018, 21h29
Delaney

En fait quand on écrit

Code:

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:

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.
05/10/2018, 14h38
__bv__

1 pièce(s) jointe(s)

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...

Salut,

il faut mettre

Code:

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:

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

05/10/2018, 23h25
__bv__

Merci Elthorn,
Ça n'était pas très intuitif je dois dire surtout que VS n'est pas avare en suggestions et là rien !
J'avance, à tatons, mais j'avance :-)