cs_niblon
Messages postés59Date d'inscriptionmardi 8 août 2006StatutMembreDernière intervention20 septembre 2011
-
4 sept. 2010 à 15:03
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 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 :)