Boutton parcourir pour ouvrir un image dans un objet image

[Résolu]
Signaler
Messages postés
8
Date d'inscription
mardi 5 avril 2005
Statut
Membre
Dernière intervention
23 mars 2006
-
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
-
bonjour ,
voila j'ai un boutton parcourir
et je voudrais qu'une fois avoir selectionner mon image elle apparaisse dans mon objet IMAGE mais je ne connais pas le code^^

Private Sub Command1_Click()
CommonDialog1.Filter = "*.*"
CommonDialog1.ShowOpen
End Sub

Private Sub Image1_Click()
End Sub

3 réponses

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
salut,

CommonDialog1.Filter = "*.*"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)

avec une gestion d'erreur a rajouter, si le fichier selectionné n'est pas une image.

BasicInstinct
3
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
8
Date d'inscription
mardi 5 avril 2005
Statut
Membre
Dernière intervention
23 mars 2006

merci a toi mais quand tu parle d'une gestion d'erreur

faut faire un truc du genre avec les commandes if; else, end if
avec une msg box?

dsl j'ia installer visual studio aujourdui et lu plein de truc qui va avec mais je reste un rgos debutant
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
je pensais plutot à un truc dans le style :

CommonDialog1.Filter = "*.*"
CommonDialog1.ShowOpen
On Error Resume Next
Image1.Picture = LoadPicture(CommonDialog1.FileName)
if err.number<>0 then
msgbox err.number & " : " & err.description
err.clear 'vide l'erreur
end if
on Error Goto 0 ' arrete la gestion d'erreur

va faire un petit tour sur la msdn, ("on error") tu trouveras differentes facons de faire

BasicInstinct