Code ne fonctionne pas ,sauvegarde image

Résolu
cs_niblon Messages postés 59 Date d'inscription mardi 8 août 2006 Statut Membre Dernière intervention 20 septembre 2011 - 4 sept. 2010 à 15:03
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 4 sept. 2010 à 15:41
Bonjour a tous ,

Je cherche a changer le nom du fichier et l'extension et le repertoire :
j'ai utiliser ce code ci dessous (code d'origine)
Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
        pic_PictureZoom.Image.Save("d:\MonImage.bmp")
    End Sub


ce code fonctionne mais je voudrais savoir comment faire trois choses :
1/ mettre au repertoire par defaut
2/ Mettre un nom de fichier (que l'utilisateur donne dans texboxNom)
et enfin choisir l'extension

J'ai essayer de faire mon code ci dessous
 Private Sub btn_Save2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save2.Click
        'recupere la valeur de l'horodate sans les / et : et sans l'espace pour le nom de l'image
        SaveFileDialog1.FileName = txt_horodate.Text.Replace("/", "").Replace(":", "").Replace(" ", "")
        'Filtre et donne l'etension .bmp a l'image
        SaveFileDialog1.Filter = "Fichiers .bmp|*.bmp"
        'Recuperation du repertoire local
        SaveFileDialog1.InitialDirectory = ""
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim sw As Image
            sw = pic_PictureZoom.Image
            ' pic_PictureZoom.Image.Save("d:\MonImage.bmp")
            MsgBox("aller voir votre repertoire par defaut  ")
        End If
    End Sub

il m'ouvre bien la fenetre , me donne bien le nom et l'extension ,mais quand je clique sur le bouton OK ,rien sur mon ddur aucne image sauvegarder :)

Quelqu'un pourrais me mettre sur la voie :)

Merci d'avance
@+Niblon

1 réponse

cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
4 sept. 2010 à 15:41
mais quand je clique sur le bouton OK ,rien sur mon ddur aucne image sauvegarder :)


Forcément, la ligne de code qui sauvegarde l'image est en commentaire

un petit sw.Save(SaveFileDialog1.FileName) ne devrait pas faire de mal pour enregistrer le fichier

[i][b]---- Sevyc64 (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i
3
Rejoignez-nous