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