modifier plusieurs images en vb

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:

---

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:

---

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:

---

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:

---

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

Salut
Sur un Form, 1 File1.visible = false, 1 HScroll1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Option Explicit Dim LesPicture() As Picture '<---------- le tableau de picture ****** Dim NomPicture() As String Dim msg$ Private Sub Form_Load() Dim T As Integer, NbrPict As Integer   File1.Pattern = "*.bmp;*.jpg;*.gif" File1.Path = "C:\Dossier pour images divers\MePhotos" NbrPict = File1.ListCount ReDim LesPicture(NbrPict - 1) ReDim NomPicture(NbrPict - 1) For T = 0 To NbrPict - 1 NomPicture(T) = File1.List(T) Set LesPicture(T) = LoadPicture(File1.Path & "\" & NomPicture(T)) Next T HScroll1.Max = NbrPict - 1   HScroll1_Change End Sub Private Sub HScroll1_Change() Set Me.Picture = LesPicture(HScroll1.Value) msg$ = " " & CInt(ScaleX(LesPicture(HScroll1.Value).Width, vbHimetric, vbPixels)) _ & "x" & CInt(ScaleY(LesPicture(HScroll1.Value).Height, vbHimetric, vbPixels)) Me.Caption = NomPicture(HScroll1.Value) & msg$ End Sub Private Sub HScroll1_Scroll() HScroll1_Change End Sub

---

donc, pour ton prog, je pense que

Code:

---

1 2 3 4

Dim ImageS(10) As Picture For cnt = 0 To 10 Set ImageS(cnt) = LoadResPicture("img1", 0) Next cnt

---

devrait fonctionné

Bon merci a vous et merci ProgElecT pour votre code ca ma reglé des choses mais ca reste encore problématique
pour la declaration du variable tableau en type image ca marche

Code:

---

1 2 3 4 5 6

Dim img(9) As Image Private Sub Form_Load() img(0).Picture = LoadResPicture("img1", 0) ... End Sub

---

et quen j'attribue le "." apres le variable tableau, il me sort les paramétres de l'image soi ".picture" se qui veux dire qu'il la reconné comme étant une image se qui est bien,mais ca provoque une érreur "object variable or with bloc not set"
ce qui est un peut normal parsqu'il ne sais pas a quel image il as a faire.
peut étre foudrai ajouter un truc du genre

Code:

---

1 2 3 4 5 6 7

Private Sub Form_Load() img(0)="Image1" img(1)="image2" ... img(0).Picture = LoadResPicture("img1", 0) End Sub

---

et c'est la méme érreur.
j'ai fait un Dim img(9) as Picture
mais quand j'attribut un paramétre il est pas reconnue "Handle-Heigth-hPal.."
danc c'est pas un objet image.
j'ai essayé des combines a l'aveuglette du genre

Code:

---

1 2 3 4

img("Image1").Picture = LoadResPicture("img1", 0) ---- set img(0).Picture = LoadResPicture("img1", 0)

---

que dal, des fois "type miss match" comme érreur
tout en sachon que y a pas d'érreur dans les noms d'images ou une autre érreur de genre assez claire si vous voyez se que je veux dire.
mais il ya une lueurs d'éspoire quand le tableau est considéré comme image, ca reste comment attribuer des noms d'images a ce tableau
mciii a vous tous pour votre attention, si vous avez d'autre solutions, je vous en prie j'en ai besoin
*je me suis contenté de faire un block de (4 ligne * 15 )*2 fois =120ligne qui peut étre rétrecis intéligement. :oops:

La bonne syntaxe est,à mon avis

Code:

---

set img(0).Picture = LoadResPicture("img1", 0)

---

Le remplissage avec set est obligatoire.
Moi je prefere

Code:

---

Dim ImageS(10) As Picture

---

non pas

Code:

---

Dim img(9) As Image

---

Le type Picture (en fait designe la class StdPicture Membre de stdole) s'avere moins gourmand en memoire, permet de recuperer plus rapidement l'image pour un autre contrôle, de plus, sa methode .Render donne la possibilité de faire du Streching (zoom, deformation), de recuperer les dimensions de l'image qu'il contient.
Mais a chacun de voire ce qui est le mieux adapté pour son programme.;)

Salut
bon désolé mais ca peut pas fonctioner, il semble que vous igniorer un truc, le faite de correspondre les images sois image1-image2-image3 ... image10 avec le tableau du type image ou picture
si je lui fait

Code:

---

1 2	set img(0).Picture = LoadResPicture("img1", 0)

---

il lui faut un moyen pour savoir que img(0) pointe vers le controle l'image/pictureBox image1
c'est se que j'arrive pas a le faire
je fait

Code:

---

1 2 3

img(0)="Image1" set img(0).Picture = LoadResPicture("img1", 0)

---

Vous pouvez éssayer aussi ca donnera pas. il faut une relation entre les controles images et le variable tableau typé image

Ben alors, fais un groupe d'objets image (Tous les controles image portent le même Name et la propriété Index varie pour chaque composant)

Code:

---

1 2 3 4

For iPnt=0 to 29 NomImage = "img" & Cstr(iPnt + 1) Set Image1(iPnt).Picture = LoadResPicture(NomImage, 0) Next

---

Sois inventif que diable et arréte de dire qu' on est ignorant, même si c'est très vrai, c'est désagréable à entendre.

Bon
J'ai fait un fichier resources avec 2 images, Id = 101 et 102
Sur un Form, 2 PictureBoxs (Picture1 et Picture2) et 2 composants Images indexées (MeImage(0) et MeImage(1)).
Et ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Option Explicit Dim ImageS(1) As StdPicture Dim T As Integer Dim Id As Integer Private Sub Form_Load() 'Index pour le fichier .RES = 101 à 102 'FaconPrem 'FaconDeuz FaconTroi End Sub Public Sub FaconPrem() 'pour mettre les resources dans un tableau d'images type StdPicture For T = 0 To 1 Id = 101 + T Set ImageS(T) = LoadResPicture(Id, 0) Next T 'et afficher dans les PictureBoxs, pour verifier Picture1.Picture = ImageS(0) Picture2.Picture = ImageS(1) End Sub Public Sub FaconDeuz() 'directement du .res dans un PictureBoxs Picture2.Picture = LoadResPicture(101, 0) End Sub Public Sub FaconTroi() 'pour mettre les resources dans des contrôles images indexées For T = 0 To 1 Id = 101 + T MeImage(T).Picture = LoadResPicture(Id, 0) Next T End Sub

---

Mettre en commentaire, a tour de rôle les 3 procedures, faire un run projet pour ces 3 procedures.
Chez moi cela fonctionne sans probléme.
motif de l'edit
Salut Delbecke, le temps de verifier en faisant un projet, je n'avais pas vue ton dernier post.

Bon je disais pas que VOUS ETES IGNIORONS
en dison "vous igniorez" c'est pas une insulte, on es tous ici pour apprendre nul n'est parfaits
mais dans tes postes Delbeke tu ne fait pas le rapport entre le variable tableau et les noms des images, se que j'essai de te mentrer.
en tout cas désolé pour le mot.
j'ai essayé encore ta nouvelle syntaxe mais rien malgré que "NomImage" doi pointer vers le nom de controle image/pictureBox et nom l'image ressource mais j'ai modifier ca aussi y a pas moyen de se defiler entre les image grace a un index pour utiliser leur proprièté mais c'est déja bien jusq'ici
------
pour ProgElecT
on peut pas initialier l'attribut LoadResPicture sans le paramétre ".picture"
et se qu'on éssai de résoudre c'est d'eviter de taper le code qui doit recembler a ca

Code:

---

1 2 3 4

Picture1.Picture = ImageS(0) Picture2.Picture = ImageS(1) ...

---

plusieur fois.
si vous pouvez essayer de le faire sur vos VB avec 3 image et si ca donne faite moi signe de vie. merci pour tout et dsl ;)

Si tu as lut mon message 8 et que ton message 9 tient compte de ce message, je laisse tombé.

oui ProgElecT il tien compte lol merci comme méme :king:

Citation:

---

Envoyé par luca9999, 1° message

pourquoi pas faire une boucle for

---

La der des ders :?

Sur un Form, 2 CommandButtons (Command1 et Command2), 2 contrôles Images (Image1 et Image2)
Un fichier ressource avec 2 images, ID = "IMAG1" et "IMAG2"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Option Explicit   Private Sub Form_Load() FaconDirect End Sub Public Sub FaconDirect() 'directement du .res dans un controle image Dim IdString As String IdString = "IMAG1" Image2.Picture = LoadResPicture(IdString, 0) End Sub Private Sub Command1_Click() AuChoix "Image1", "IMAG2" End Sub Private Sub Command2_Click() Dim T As Integer For T = 1 To 2 AuChoix "Image" & CStr(T), "IMAG" & CStr(T) Next T End Sub Public Sub AuChoix(NomDuControle As String, IdResource As String) 'pour mettre la resource dans le controle que l'on veut Dim Mecontrol As Control For Each Mecontrol In Controls If Mecontrol.Name = NomDuControle Then Mecontrol.Picture = LoadResPicture(IdResource, 0) Exit For End If Next End Sub

---

Bien que les contrôles images ne soient pas indexés, grace à la boucle For Each Mecontrol In Controls de la procedure AuChoix(NomDuControle As String, IdResource As String), il devient possible d'utiliser un For ..... Next ;)

MAIS, un tableau de contrôles Images indexés serait plus propre et plus rapide.

Ai-je bien compris ton probléme? 8O , y ai-je repondu? 8O
A+

bon boici le code pérmétant de defiler entre les images en les indéxent

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim img(9) 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 9 img(cnt).Picture = LoadResPicture(cnt & "-img", 0) Next End sub --------

---

merci a vous tous

Citation:

---

Envoyé par luca9999

Code:

---

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:

---

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.