dim i as integer = 1 Do until i = 5 Me.Panel1.Controls("Label" & i.ToString).visible = true Me.Panel1.Controls("Label" & i.ToString).text = "Affiche " & i loop
For Each c As Control In Me.Panel1.Controls c.Text = "Affiche " & c.Name.Substring(5) c.Visible = True Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionQuelle version de VB quee vous utiliser????
i=1 Do until i = 5 Label(i).visable = true Label(i).text = "Affiche " & i i=i+1 loop