defilement entre les images par une boucle forRésolu

Question

Bonsoir
bon j'ai un problème a résoudre un jeux d'image mais je vai simplifier le problème a se qu'il soi a titre d'éxemple et apres je l'adapterai a mon app.
j'ai 10 image de type image et non pictureBox dans une form


image1 image2 image3 ... image10


je génére leurs contenues grace a Ressource Editor comme
image1.picture=LoadResPicture("img1",0)
image2.picture=LoadResPicture("img1",0)
image3.picture=LoadResPicture("img1",0)
...
image10.picture=LoadResPicture("img1",0)
se qui parait lourde si j'utilise 30 image (c le cas lol)
donc foudrai un moyen pour que j'accéde a chaque image grace a un index ou tableau indéxé qio pointe vers chaque image du genre avoir a la fin
for cnt=1 to 10
img(cnt).picture=LoadResPicture("img1",0)
next cnt
impossible de nommer les image avec un nom de tableau "()"
j'ai crée un
Dim img(9) as Image

sub Form1_Load()
img(0)="image1"
img(1)="image2"
...
img(9)="image10"
for cnt=1 to 10
img(cnt).picture=LoadResPicture("img1",0)
next cnt
End sub
mais ca provoque érreur
foudra faire le lien entre le variable tableau typé image et les nom des images pour y acceder a leur propriété par un index.
SOS ca galére chez moi

the_morpher · Accepted Answer

Salut
bon se que je disais c'est just a quoi peut recembler, je savais que ca marche pas
mais bon j'ai finis par la trouvé mciii
----------
Dim img(2) As Image

Private Sub Form_Load()
Set img(0) = Image1.Item(0)
Set img(1) = Image2.Item(1)
...
Set img(9) = Image9.Item(9)

For cnt = 0 To 2
img(cnt).Picture = LoadResPicture(cnt + 1 & "-img", 0)
Next
End sub
--------
cooooooool j'ai de tas de ligne a supprimer mnt
merci a vous

Kristof_Koder · Answer

Regarde du coté des groupe de contrôles. Le Forum regorge d'exemple et de question (avec réponse) sur le sujet

Kevin.Ory · Answer

Salut,

Dim img(9) as Image
img(0)="image1"
img(1)="image2"
...
img(9)="image10"

Tu vois pas l'erreur? Tu ne peux pas mettre "image1" dans un type Image (c'est une String), tu dois l'écrire sans les "" pour faire référence à ton control Image

Defilement entre les images par une boucle for

3 réponses

Votre réponse

Discussions similaires