Boucler sur des contrôles image

[Je débute]

Bonjour le forum


J'ai le code suivant qui ne fonctionne pas :

Private Sub jeux_Click()
Dim i As Integer
Dim img As Image
For Each img In UserForm1
img.Picture = LoadPicture('d:\\cartes\\1.jpg')
Next
End Sub

est-il possible d'utiliser une structure de ce type pour affecter une image à un ensemble de contrôles image.


Merci pour votre aide

 

[MichelXld]

bonjour

je ne suis pas sur d'avoir bien compris mais j'espere qu'un de ces 2 exemples pourra t'aider


Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.Image Then _
Ctrl.Picture = LoadPicture('C:\\monImage.jpg')
Next


Dim N As Byte
For N = 1 To 3
Me.Controls('Image' & N).Picture = LoadPicture('C:\\monImage.jpg')
Next N



bon apres midi
MichelXld

 

[Je débute et progresse grace à vous]

Bonjour Michel


Bravo


Les 2 structures fonctionnent exactement comme je le souhaitais.


Merci