Bonjour,

J'ai une fenêtre qui contient un certain nombre de label. Mais ce nombre change en fonction de certaines données. Je ne sais donc pas combien je dois créer de label. J'aimerai que les labels se positionnent l'un après l'autre.
Pour cela je fais :
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
 
Dim TAB(1000) As Label
Dim i As Integer = 0
For Each entry In ev.Entries
 EntType = entry.EntryType.ToString
 If EntType = "Error" Then
  TAB(i) = New Label
  TAB(i).Width = 433
  TAB(i).Height = 32
  If i = 0 Then
   TAB(i).Margin = New Thickness(189.5, 67.374, 9.5, 12)
  Else
   TAB(i).Margin = New Thickness(189.5, TAB(i - 1).Margin.Top + 32, 9.5,12)
  End If
  Me.LayoutRoot.Children.Add(TAB(i))
  i += 1
 End If
Next
tab étant un tableau de Label.
Cela ne fonctionne pas, je ne comprends pas pourquoi.