[VB]Remplir automatiquement des controles

**Ooly2001** · 18/01/2006, 19h46

Bonjour à tous,
J'explique mon problème

Sur ma form j'ai 6 pictureBox qui se nomment de picture1 à picture6 et d'autre part j'ai 6 photos qui se nomment de Photo1.jpg à Photo6.jpg

J'aimerai savoir comment faire pour qu' à l'intérieur d'une boucle les picturebox se remplissent de manière automatique avec la photo qui correspondent

Ca pourrait faire comme ca sauf que bien sur ca ne marche pas sinon ca serait trop facile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i=1 to 6
 
maform.Picture & i = LoadPicture("lien\photo" & i & ".jpg")
 
Next i

J'espere avoir été clair dans ma question ....

**ThierryAIM** · 18/01/2006, 19h54

VB6 ou VBA

:

Si c'est pour VB6 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 6
    Me.Controls("Picture " & i).Picture = LoadPicture("lien\photo" & i & ".jpg") 
Next

Mais tu peux utiliser un groupe de controle avec un index

Si c'est pour du VBA, il doit y avoir l'équivalent de mon code (Pas de groupe de controles en VBA)

**jmfmarques** · 18/01/2006, 19h59

ton i est ici un entier.

Si tu veux que cela marche bien, je te conseille de créer un groupe de 6 "pictures" indexées de 0 à 5 et de les invoquer par leur indes Picture(index)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i=0 to 5
 
maform.Picture(i + 1) = LoadPicture("lien\photo" & str(i +1)  & ".jpg") 
 
Next i

Maintenant, si tu veux éviter les i + 1, redistribue tes indes de 1 à 6 et :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i=1 to 6
 
maform.Picture(i) = LoadPicture("lien\photo" & str(i)  & ".jpg") 
 
Next i

**ThierryAIM** · 18/01/2006, 20h05

Envoyé par jmfmarques

Si tu veux que cela marche bien, je te conseille de créer un groupe de 6 "pictures" indexées de 0 à 5 et de les invoquer par leur indes Picture(index)

Oui, si c'est du VB6, mais pas en VBA, d'ou ma question (cf mon post au-dessus)

**jmfmarques** · 18/01/2006, 20h07

Nosz réponses se sont "croisées" : la tienne est partie alors que je rédigeais la mienne...
Je l'ai donc envoyée sans savoir que tu avais déjà répondu !

Je m'efface donc...