2010-07-21 3 views
2
Dim count As Integer 
For count = 1 To 10 Step 1 
    Dim But+count As New Button 
    myButton+count.Width = 100*count 
    myButton+count.Height = 20*count 
    myButton+count.Top = 50 *count 
    myButton+count.Left = 50*count 
    Me.Controls.Add(myButton+count) 
Next 

Dim But+count As New Button => Comment faire fonctionnerComment créer var avec boucle (ex: Dim a1, a2, a3 avec boucle)

Répondre

2
Dim buttons(9) As Button 
For count As Integer = 0 To 9 
     Dim button As New Button 
     button.Width = 100*count 
     button.Height = 20*count 
     button.Top = 50 *count 
     button.Left = 50*count 
     Me.Controls.Add(button) 
     buttons(count) = button 
Next 
4

Souhaitez-vous faire un tableau et l'instanciation de l'objet à la « vec » positionner chaque itération de la boucle. Ce ne serait pas a1, a2, a3, ...; mais ce serait un [1], un [2], un [3], ....

+0

Merci, je vais le faire – Snoob