Ajouter des Photos dans une zone image en VB6

Résolu/Fermé
Signaler
Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
-
Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
-
Salut tout le monde

Je tente d'ajouter les photos sur la feuille de saisie des données des employés
sans résultat.

j'ai utiliser :

la composante CommonDialog, que j'ai nommé Com1

un boutton command ( que j'ai nommé cmdAjout )

une zone Image ( que j'ai nommé Imag1 )



Ma première tentative était comme suit


sub Private cmdAjout_Click ()
imag1.Picture= loadPicture ("C:\Documents and Settings\User\Bureau\Dossier Photos\Farid.pjg")


end sub


avec cette procédure je ne n'ai pas la possibilité de choisir entre les photos


Ma Deuxième tentative, selon laquelle l'option de choisir la photo à ajouter est possible,
est comme suit


sub Private cmdAjout_Click ()

Com1.ShowOpen

imag1.Picture= loadPicture ("C:\Documents and Settings\User\Bureau\Dossier Photos\Filename")


end sub



mais cette methode ne marche pas, car l'application ne reconnait pas le chemin

Je vous prie de m'indique mon erreur et de me la corriger


Merci d'avance

5 réponses

Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
1
Re Salut,

A l'aide de votre proposition, ma tentative a réussi,
mais avec

Com1.ShowOpen
imag1.Picture= loadPicture (Com1.FileName )


Avec toutes mes reconnaissances
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
6749
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
1 décembre 2021
1 632
slt

y'a des année que j'ai pas fais de Vb6 :)
tu compile ton exe ou tu le lance directement de vb ?
le soucis peut venir de là, essaye en le compilant et de lancer l'exe.

Signature
Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
1
Merci pour votre attention

C'est vrai, je ne suis qu'un débutant en vb6.

avant de compiler mon application, je la lance directement pour pouvoir la testetr
seulement les tests effectué s'avérait négative
Messages postés
6749
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
1 décembre 2021
1 632
c'est pour ça que je te disais d'essayer une fois compilé.
Ton commentaire ne me dit pas si c'est après la compilation que ça ne fonctionne pas.

;-)
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 666
Bonjour,

Essayez comme ceci :

Com1.ShowOpen
imag1.Picture= loadPicture ("C:\Documents and Settings\User\Bureau\Dossier Photos\" & Com1.FileName )


Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
1
Merci pour tout le monde pour son attention

Grâce à la proposition de pijaku, en l'essayant , j'ai pu trouver la solution

image1.Picture=LoadPicture ( com1.FileName )


Toute mes reconnaissances

Le souci maintenant est comment enregistrer ce Chemin dans ma table d'Access,
sachant que le stockage des photos en access est déconseillé, voire difficile