ouvri une image avec cmd dialogRésolu

Question

Bonsoir 
d&#233;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&#233;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&#233;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

cs_Willi · Answer

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 ~~chemin = (App.Path & "\Photos" & Comdial.FileTitle) img = Comdial.FileTitle~~ Image1.Picture = LoadPicture(Comdial.Filename) 'ou img End Sub Bon courage

cs_abouzaid · Answer

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

Ouvri une image avec cmd dialog

2 réponses