Sélection d'images

Catégorie : Images

Publié par veriland le 12-Aug-2013 21:20

En Visual Basic comment faire une boucle pour éviter de taper ce qui suit ?

 

UserForm1.Image2.Visible = False 
UserForm1.Image3.Visible = False 
UserForm1.Image4.Visible = False 
UserForm1.Image5.Visible = False 
UserForm1.Image6.Visible = False 
UserForm1.Image7.Visible = False 
UserForm1.Image8.Visible = False

voici deux façons de faire. Selon les cas, on pourra préférer l'une ou l'autre. Dans le cas présent, la première ferait très bien l'affaire

'Ti 18/06/04
'
Private Sub Test1()
Dim Bcle%
    For Bcle = 1 To 4
        Controls("Image" & Bcle).Visible = False
    Next Bcle
End Sub

Private Sub Test2()
Dim Ctrl
    For Each Ctrl In Array(Image1, Image2, Image3, Image4)
        Ctrl.Visible = False
    Next Ctrl
End Sub