Sauvegader des images dans mon programmeRésolu

Question

Salut à tous,

je suis en train réaliser un programme vb qui comporte un formulaire Employe. J'ai placé un bouton de command1 que j'ai renommé "Parcourir" et j'aimerais inserer et sauvegarger les photos des employés recupérés dans un dossier "photos employés" de mon disque dur. Comment le faire ?

cs_ITALIA · Accepted Answer

Utilises un Control Common Dialog...pour cela coches dans Projet....Composant...Microsoft Common Dialog Control 6.0

Places un composant sur ta feuille

Private Sub Command1_Click()

On Error GoTo Cancel

CommonDialog.FileName = ""
CommonDialog.Filter = "Fichier Images (*.bmp)|*.bmp;(*.jpg)|*.jpg" ' Pour Excel

CommonDialog.Flags = cdlOFNLongNames Or cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNPathMustExist ' Options de la Boîte de Dialogue
CommonDialog.ShowOpen
If CommonDialog.FileName <> "" Then Picture1.Picture= loadPicture(CommonDialog.FileName )

Exit Sub

Cancel:

End Sub

It@li@

econs · Answer

Utilise un controle CommonDialog

Dans Visual Basic, tu cliques sur :
Projets/Composants
Microsoft Common Dialog Control X.y

Tu auras alors un nouveau contrôle dans ta barre d'outils. Insères-en un sur ton formulaire.

Si ton bouton Parcourir s'appelle cmdParcourir, alors


Private Sub cmdParcourir_Click()
Dim repertoire_destination As String
Dim sFilename As String
Dim toto() As String
repertoire_destination = "C:\photos_employes"
CommonDialog1.ShowOpen
toto = Split(CommonDialog1.FileName, "", , vbTextCompare)
FileCopy CommonDialog1.FileName, repertoire_destination & toto(UBound(toto))
End Sub


Manu

cs_PhilippeE · Answer

Le fichier de ressource peut-être, mais je ne connais pas ses capacités de manipulation en exécution.
Sinon tu as l'utilisation d'un fichier externe (base MDB par exemple) pour le stockage de tes fichiers.

cs_ITALIA · Answer

Enleve le ' Pour Excel qui traine !!!!lol
It@li@