enregistrer images dans dossierRésolu

Question

Bonjour &#224; tous
2 petites questions :
1)Comment faire en cliquant sur un bouton aller chercher des images sur mes DD pour les enregistrer dans un dossier "photos" qui se trouve dans mon programme
2)sur un USF j'ai une listbox avec des Noms et quand je click sur un Nom je voudrais lui associer l'image qui lui correspond qui se trouve dans le dossier "photo"
merci d'avance
@ plus
petchy

jpleroisse · Accepted Answer

Private Sub Command3_Click()
With CommonDialog1
    .DialogTitle = "Ajouter une image"
    .CancelError = True
    .Filter = "Tous les fichiers images(*.jpg)|*.jpg|(*.jpeg)|*.jpeg|(*.bmp)|*.bmp|(*.gif)|*.gif"
    .InitDir = App.Path & "\photos"
    .FileName = ""
    On Error GoTo Annuler
    .ShowOpen
    End With
Annuler: MsgBox "Vous n'avez s&#233;lectionn&#233; aucun fichier."
End Sub

jpleroisse

NHenry · Answer

Connais-tu savepicture(...) et loadpicture(...)?

(G me rapel plus si c nom de fichier ,image ou si c l'inverse)



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

jpleroisse · Answer

Voici un exemple.
Dabords tu sauvegardes tes images.

Private Sub Command1_Click()
SavePicture Image1, "C:	mp"
SavePicture Image2, "C:	mp1"
End Sub

Quand tu as sauvegarder, tu peux effacer Image2 (dans cet exemple), ensuite:
.

Private Sub Form_Load()
List1.AddItem "Jean"
List1.AddItem "Pierre"
List1.ListIndex = 0
Image1.Picture = LoadPicture()
End Sub

Private Sub List1_Click()
If List1.Text = "Jean" Then
Image1.Picture = LoadPicture("C:	mp")
ElseIf List1.Text = "Pierre" Then
Image1.Picture = ("C:	mp1")
End If
End Sub

jpleroisse

cs_petchy · Answer

Re
en fait je me suis mal exprim&#233;,
les photos sont d&#233;ja stock&#233; sur le disque dur.
Mais moi je voudrais aller chercher ses photos pour les stock&#233;
dans un dossier "photo".Se dossier se trouve dans mon dossier 
de mon programme.et ensuite aller les r&#233;cuper&#233; en clicquant dans la listbox pour l'afficher sur un contole "imag".
merci
petchy

cs_petchy · Answer

ReRe
j'ai un d&#233;but de code,mais les jaquettes ne vont pas dans le fichier
qui lui ait indiqu&#233;,il m'ouvre bien la fenetre pour aller chercher
les images.

Private Sub Command3_Click()
With cmd
    .DialogTitle = "Ajouter une image"
    .Filter = "Tous les fichiers images|*.jpg;*.jpeg;*.bmp;*.gif"
    .InitDir = App.Path & "\photos"
    .FileName = ""
    .ShowOpen
    End With


End Sub
petchy

cs_petchy · Answer

bonjour 
super 
merci
petchy

Enregistrer images dans dossier

6 réponses

Discussions similaires