Ouvri une image avec cmd dialog

[Résolu]
Signaler
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
-
Messages postés
6
Date d'inscription
jeudi 17 mars 2005
Statut
Membre
Dernière intervention
1 mai 2006
-
Bonsoir
débutant VB6
avec un bouton parcourir
je n'arrive pas a trouver l'erreur pour ouvrir une photo dans une Image1 ou PctureBox1
erreur = object required
voici mon Code
Private Sub cmdParcourir_Click()
Dim chemin, img As StringComdial.InitDir App.Path & "\Photos" 'si nécessaire Comdial.InitDir "c:\???????"

Comdial.Filter = "Fichier Jpg(*.jpg)|*.jpg|Fichier Gif(*.gif)|*.gif"
Comdial.FilterIndex = 1


Comdial.DialogTitle = vbLf & "Seul les formats (,jpg,gif) sont acceptées " & Time
Comdial.ShowOpen
Comdial.CancelError = True 'permet d'annuler

chemin = (App.Path & "\Photos" & Comdial.FileTitle)

img = Comdial.FileTitle
Image1.Picture = chemin 'ou img
End Sub

Merci

2 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Bonsoir,

Private Sub cmdParcourir_Click()
Dim chemin, img As StringComdial.InitDir App.Path & "\Photos" 'si nécessaire Comdial.InitDir "c:\???????"

Comdial.Filter = "Fichier Jpg(*.jpg)|*.jpg|Fichier Gif(*.gif)|*.gif"
Comdial.FilterIndex = 1


Comdial.DialogTitle = vbLf & "Seul les formats (,jpg,gif) sont acceptées " & Time
Comdial.ShowOpen
Comdial.CancelError = True 'permet d'annuler

<STRIKE>chemin = (App.Path & "\Photos" & Comdial.FileTitle)

img = Comdial.FileTitle
</STRIKE>Image1.Picture = LoadPicture(Comdial.Filename) 'ou img
End Sub

Bon courage
1
Merci

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

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
6
Date d'inscription
jeudi 17 mars 2005
Statut
Membre
Dernière intervention
1 mai 2006

je pense plutot que tu doit nommer le control commondialog correctement comme il est sur le code verifies l'ortographe comdial bonne chance