Ajouter des Photos dans une zone image en VB6

Résolu
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   -  
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

5 réponses

mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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
astuces72 Messages postés 7769 Date d'inscription   Statut Membre Dernière intervention   1 641
 
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
0
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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
0
astuces72 Messages postés 7769 Date d'inscription   Statut Membre Dernière intervention   1 641
 
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.

;-)
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 760
 
Bonjour,

Essayez comme ceci :

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


0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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
0