[VB6] Comment donner un chemin à une image ??

**Lucas42** · 27/04/2006, 18h39

Bonsoir , j'aimerai beaucoup pouvoir , lorsque je clique sur une image , afficher le contenu d'un repertoire specifique , j'ai eu beau chercher dans les F.A.Q.S mais en vain ..........

merci d'avance
amicalement lucas

**jmfmarques** · 27/04/2006, 18h42

Les images étant chargées par VB différemment que par leur chemin, tu n'as qu'un recours :
mettre dans le tag de l'image le chemin du répertoire concerné, puis utiliser la lecture de ce tag pour connaitre le dit répertoire !

Je ne crois pas qu'existe une meilleure solution ....

**Catbull** · 27/04/2006, 18h43

L'image est placé sur quel composant? Quel est le lien entre cet image et le répertoire à ouvrir?

**Lucas42** · 27/04/2006, 18h47

l'image est mis sur Image , je pe le mettre sur Picture box aussi !!
le chemnin du repertoire et par exemple d:\donnée\vidéo

**Lucas42** · 27/04/2006, 18h48

ben en fait l'image represente un disque dur , donc j'aimerai que lorsque je double click sur l'image , le repertoire "d:\donnée:\vidéo" s'ouvre

**jmfmarques** · 27/04/2006, 18h50

tu mets "d:\donnée\vidéo" dans la propriété tag de ton image
et du donnes la valeur de ce que tu lis dans ce tag à InitDir de ton commondialog !
voilà tout !

**Catbull** · 27/04/2006, 18h50

Dans ce cas il faut utiliser l'évènement Click de ta PictureBox. Pour accéder au répertoire, tu peux utiliser l'objet CommonDialog. Un petit F1 te donnera des détails sur l'utilisation du CommonDialog.

**Lucas42** · 27/04/2006, 18h56

CommonDialog , INCONNU au bataillon lorsque je double clique sur l'image .............

**jmfmarques** · 27/04/2006, 19h02

Bonne soirée à ta copine et à toi, mais voilà le message que tu trouveras demain :

Si tu utilises une pictureBox (dans le cas d'une image c'est sans intérêt), je te conseille la plus grande prudence, si tu as l'intention de faire évoluer ton application (insertion, par exemple, d'images dans l'image à un point précis de ladite image).
Si tu n'écartes pas l'intention d'une telle évolution, il te faut d'ores et déjà éviter d'utiliser les clicks, double-clicks... qui pourront s'avérer utiles, plus tard, à d'autres fins !
Je choisirais à ta place, dès maintenant, d'utiliser les événements MouseDown ou MouseUp, associés au bouton droit de la souris (valeur 2), ou à la molette centrale (valeur 4).
Celà t'évitera de construire une usine à gaz plus tard !

**Lucas42** · 28/04/2006, 08h37

ok , mais disons , que jaiemerai ouvrir le repertoire d:\donnée\lucas en cliquant sur un boutton , comment dois je mi prendre ??

**jmfmarques** · 28/04/2006, 08h45

en insérant un commondialog (projet ===>composants) dans ton projet et inspires-toi de ceci :

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  CommonDialog1.InitDir = le_chemin_complet_de_ton_repertoire 
   CommonDialog1.ShowOpen
   msgbox CommonDialog1.filename
End Sub

par exemple !

**Lucas42** · 28/04/2006, 08h52

Comment on fait pour ajouter un CommonDialog , parcque lorsque je le lance l'appli , ca

Variable non definie

et

CommonDialog1

est surligné

**jmfmarques** · 28/04/2006, 08h57

Commondialog est un composant !
Il faut l'inclure dans ton projet :
1) tu cliques sur l'onglet projet
2) tu cliques sur composants ===>une fençetre s'ouvre
3) ty y cherche Microsoft Common Dialog (que tu coches)
4) tu valides ===>>il apparait avec tes autres composants
5) tu l'insères dans ton projet (comme tu insérerais n'importe quel contrôle

CITOU !

**Lucas42** · 28/04/2006, 08h59

ok merci , et dis moi , yaurai pas une page , ou est repertorié tous les composant de vb ??? parcke j'aurai pu chercher un moment ........

**jmfmarques** · 28/04/2006, 09h02

Dans les composants rajoutables, tu n'as pas que des composants de VB !
Tu peux "jouir" de tous un tas d'autres composants présents sur ta machine !
ouvres donc (comme ci-dessus) "parcourir !
Alors, une table ! Non ...

**Lucas42** · 28/04/2006, 09h02

En effet , ya le CommonDialog ca va bcp mieux ^^ , mais en fait , je pense que je vais utiliser , une ListView , car j'aimerai voir le contenu du repertoire ...

**jmfmarques** · 28/04/2006, 09h03

Ben !
Le commandDialog t'affiche ce contenu !
Qu'est ce que tu racontes là !
revois le petit bout de code que j'ai mis plus haut !

**Lucas42** · 28/04/2006, 09h11

et bien , j'ai mis ca

Code :

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

1
2
3
4
5
6
 
Private Sub Command1_Click()
  CommonDialog1.InitDir = "c:\compaq"
   CommonDialog1.ShowOpen
   msgbox CommonDialog1.filename
End Sub

et qd je clique sur le boutton , ca ouvre une msgbox , et ya rien d'ecrit , juste un boutton OK

**jmfmarques** · 28/04/2006, 09h12

Maintenant :
Si tu TIENS à avoir une liste "toujours affichée"
une simple listbox et
utilisation de DIR (la fonction) - voir aide en ligne et exemple avec une boucle..
Ajout (boucle) par additem dans ta listbox... et voilà tout !