Comment initialiser un tableau dans une structure

Le principal problème est que vous ne faites pas appel initialiser la structure. Vous devriez changer votre boucle à quelque chose comme:

    Dim myvalues() As test1
ReDim myvalues(10)
For nI As Integer = myvalues.GetLowerBound(0) To myvalues.GetUpperBound(0)
With myvalues(nI)
.initialize()
For j As Integer = .Id.GetLowerBound(0) To .Id.GetUpperBound(0)
' Set the values in a case statement so that alterations to the size of the index won't break your code.
Select Case j
Case 0
.Id(j) = "A"
Case 1
.Id(j) = "B"
Case 2
.Id(j) = "C"
Case 3
.Id(j) = "D"
Case 4
.Id(j) = "E"
Case 5
.Id(j) = "F"
Case 6
.Id(j) = "G"
End Select
Next
End With
Next
For nI As Integer = myvalues.GetLowerBound(0) To myvalues.GetUpperBound(0)
With myvalues(nI)
Console.WriteLine(String.Format("{0}, {1}, {2}, {3}, {4}, {5}, {6}", .Id(0), .Id(1), .Id(2), .Id(3), .Id(4), .Id(5), .Id(6)))
End With
Next

Noter que les limites des structures de tableau sont utilisées pour contrôler la boucle dans le cas où les changements de taille. Cela signifie que vous n'aurez qu'à changer la taille du tableau en un seul endroit (la structure).

Noter également que les valeurs sont affectées dans une instruction case. Cela évite des erreurs d'exécution, si la matrice de dimensions changent. Tu risque d'avoir des erreurs de logique si vous n'avez pas réglé les valeurs de droite, mais ceux-ci peuvent être pris par un bon test de l'unité.

Des informations supplémentaires

Ma réponse initiale contenait une For Each déclaration que itéré myvalues. Apparemment, cependant, ce n'est pas une opération contre un réseau de structures: l'élément que vous obtenez dans les For Each variable n'est pas réellement mis à jour dans le tableau. Il semble être une référence différente.

Je n'ai jamais travaillé avec des structures en VB.Net à moins que je les utilise pour effectuer des appels externes Dll, donc ce comportement m'a surpris. Sauf si vous devez absolument utiliser une structure, je conseille vivement de changer la mise en œuvre d'un Class.

Ici est la mise en œuvre à l'aide d'une Classe:

Public Class test1
Public Id() As String
' Note that we can perform the initialization in the constructor instead of having to call a separate method
Public Sub New()
ReDim Id(6)
End Sub
End Class
Dim myvalues(10) As test1
For nI As Integer = myvalues.GetLowerBound(0) To myvalues.GetUpperBound(0)
' Create a new instance of the class and assign it to the array element
myvalues(nI) = New test1
With myvalues(nI)
For j As Integer = .Id.GetLowerBound(0) To .Id.GetUpperBound(0)
' Set the values in a case statement so that alterations to the size of the index won't break your code.
Select Case j
Case 0
.Id(j) = "A"
Case 1
.Id(j) = "B"
Case 2
.Id(j) = "C"
Case 3
.Id(j) = "D"
Case 4
.Id(j) = "E"
Case 5
.Id(j) = "F"
Case 6
.Id(j) = "G"
End Select
Next
End With
Next
' Now we can use a for each
For Each oTest As test1 In myvalues
With oTest
Console.WriteLine(String.Format("{0}, {1}, {2}, {3}, {4}, {5}, {6}", .Id(0), .Id(1), .Id(2), .Id(3), .Id(4), .Id(5), .Id(6)))
End With
Next

Je pense que c'est ce que vous voulez, même si elle n'est pas très clair dans le post:

Option Infer On
Module Module1
Structure test1
Implements ICloneable
Dim Id As String()
Public Sub New(ByVal list As String())
Id = New String(list.Length - 1) {}
For im As Integer = 0 To Id.Length - 1
Id(im) = list(im)
Next im
End Sub
Public Sub New(ByVal other As test1)
Me.New(other.Id)
End Sub
Public Function Clone() As Object Implements System.ICloneable.Clone
Return New test1(Me)
End Function
End Structure
Sub Main()
Dim i As Integer, N As Integer = 10
Dim myvalues = New test1(N) {}
Dim ids = New String() {"A", "B", "C", "D", "E", "F", "G"}
Dim prototype = New test1(ids)
For index As Integer = 0 To N
myvalues(index) = New test1(prototype)
Next
For i = 0 To N
Console.WriteLine(myvalues(i).Id(0), myvalues(i).Id(1), myvalues(i).Id(2), myvalues(i).Id(3), myvalues(i).Id(4), myvalues(i).Id(5), myvalues(i).Id(6))
Next i
End Sub
End Module