Discussion :

[luca9999]

Salut tout le monde
merci pour l'aide que vous m'apportez dans ce site merveilleur
bon mon nouveau problème se résume en ceci
je programme en vb6
j'ai une application qui contien 30 images (et non une pictureBOX) mais on va suposser que j'ai 10 images.
je génére le contenue de l'image par l'intermédiaire du "Ressource Editor"
avec la commande suivante

Code :

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

1
2
3
4
5
6
 
image1.picture=LoadResPicture("img1", 0)
image2.picture=LoadResPicture("img1", 0)
image3.picture=LoadResPicture("img1", 0)
...
image10.picture=LoadResPicture("img1", 0)

la, le code se répéte, donc on se dis pourquoi pas faire une boucle for.
mais ya pas moyen de changer le numero attribué dans la fin du nom de l'image , soi le image1, image2...
je me rappel en javascript que je nomé mes objets avec un variable tableau du genre image[0] , comme ca je pourai modifier a volonter comme ceci

Code :

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

1
2
3
4
 
for cnt=0 to 10
image[cnt]=loadrespicture("img1",0)
next cnt

le problème c qu'on peut pas nommer une image avec des parenteses (tableau), et j'ai essayé des combine du genre

Code :

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

1
2
3
4
 
image+cnt.picture...
ou
image & cnt.picture...

j'ai chercher vers le faite d'initialiser un variable en image du genre

Code :

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

1
2
 
pic as image

mais ca provoque érreur, je sais pas comment utiliser cette proprieté et je doute que ca va faire l'affaire.
pas moyen, il me reste seulement l'option de de faire le traitement 10 fois, mais ya pas que ça, pour chaque image il y'a des conditions donc c troooop
bouger les pro

[Delbeke]

Code :

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

1
2
3
4
5
6
 
image1.picture=LoadResPicture("img1", 0)
image2.picture=LoadResPicture("img1", 0)
image3.picture=LoadResPicture("img1", 0)
...
image10.picture=LoadResPicture("img1", 0)

la, le code se répéte, donc on se dis pourquoi pas faire une boucle for.
mais ya pas moyen de changer le numero attribué dans la fin du nom de l'image

Bon , un peu de baba sur les groupes de controle

1 ) Prends une nouvelle form
2) depose un composant Image dessus.
3) change son nom en "Image" (propriété Name du controle)
4) selectionne le
5) fait un Ctrl+C (copy)
6) fait un Ctrl+V (paste)
- Vb te previent qu'il existe déjà un composant portant ce nom et te demande de confirmer la création d'un groupe.
7) confirme la création du groupe
- Vb met dans la propriété Index du premier composant la valeur 0 et 1 pour le deuxième.
8) répéte l'opération 6 autant de fois que tu as besoin de composant image.

A partir de la tu peux charger le controle image individuellement en donnant l'index du composant visé

Code :

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

1
2
3
4
For iPnt=0 to Image.Count
 NumImage = iPnt + 1  'Calcul du numéro de la ressource dans le fichier ressource
 Set Image(iPnt).Picture = LoadResPicture(NumImage, 0)
Next

Pas besoin de tableau intermédiaire.