pb avec common dialog control en visual basic

Question

slt je debute en prog et je voudrai qvoir quelque renseignement,
pourriez vous svp m'expliquer comment realiser une sauvegarde d'un fichier image ac ce controle en visual basic ou me donner des liens qui demontre cette commande
merci a tous

MadM@tt · Answer

Tu ajoute un controle CommonDialog sur ta feuille et appelle le CD (c'est juste pour l'exemple)
ensuite dans par exemple si tu a un bouton :

Private Sub Bouton_Click()
Dim NomFichier as string
' Affiche la boite de dialogue pour sauvegarder
CD.ShowSave
' Maintenant l'utilisateur a fait son choix, on va récupérer
' le dossier qu'il a choisi et le nom de fichier :
NomFichier = CD.FileName
' Si il n'y a rien dedans c'est que l'utilisateur a annulé
If NomFichier = "" then Exit Sub
' Maintenant on va enregistrer ton image
' Je suppose qu'elle se trouve dans la picturebox Picture1
SavePicture Picture1.Picture, NomFichier

' Et voilà normalement ça marche


Bien sur tu peux ajouter plein d'options sur ta boite de dialogue, comme modifier le titre de la fenetre etc..

Si tu veux savoir comment faire demande le

@ +
MadMatt

peute51 · Answer

salut MadMatt
d'abord merci mais j'aurai qq petite question a te poser!
mon image est une image en .WMF(peut importe je pense) mais elle n'est pas dans un picture box. il faut que je la sauvegarde pour apres la lancer dans un pictureBox et aussi que je mette le nom du fichier de l'image dans un fichier texte predefini
 :)

MadM@tt · Answer

Alors attend j'ai pas trop compris, ton image que tu veux sauvegarder, ou est elle ?
dans un fichier, une picturebox ou une variable ?

Ensuite pour la mettre dans ton picturebox utilise :
Picture1.Picture = LoadPicture(NomFichier)

@ +
MadMatt

peute51 · Answer

mon image est dans le dossier avec le frm et vbp. je dois l'ouvrir mettre dans un picture box et surtout mettre le nom du fichier dans un fichier texte.
merci a+
 :)

MadM@tt · Answer

Je t'ai envoyé un message pour y répondre mais autant rendre la réponse publique si quelqu'un d'autre cherche la réponse plus tard :

Pour charger une image dans un picturebox utilise :
Set Picture1.Picture = LoadPicture("EXEMPLE.BMP")

Pour mettre le nom du fichier dans un fichier texte utilise :
' Nom du fichier image
dim NomFichier as string
open "Test.txt" for output as #1
print #1,NomFichier
close #1

@ +
MadMatt

Pb avec common dialog control en visual basic

5 réponses

Discussions similaires