boutton parcourir pour ouvrir un image dans un objet imageRésolu

Question

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

BasicInstinct · Accepted Answer

salut, 

CommonDialog1.Filter = "*.*"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)

avec une gestion d'erreur a rajouter, si le fichier selectionn&#233; n'est pas une image.

 BasicInstinct

le_geronimo_cs · Answer

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

BasicInstinct · Answer

je pensais plutot &#224; 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

Boutton parcourir pour ouvrir un image dans un objet image

3 réponses

Discussions similaires