bm.Save(file_name & "bmp", System.Drawing.Imaging.ImageFormat.Bmp)
file_name & "bmp"(manquerait un . que ça ne m'étonnerais pas)
Private Sub BtnSauvClient_Click(sender As Object, e As EventArgs) Handles BtnSauvClient.Click 'sauvegarder un artisan Dim sauve As New SaveFileDialog sauve.Filter = "Texte|*.artisan" If sauve.ShowDialog = 1 Then 'utilisateur a t'il choisi un chemin TBoxChemArti.Text = sauve.FileName ' sauvegarde du flux des textbox dans fichier Dim StrWrite As New System.IO.StreamWriter(TBoxChemArti.Text) StrWrite.WriteLine(TexBox1Vous.Text) StrWrite.WriteLine(TexBox2Vous.Text) StrWrite.WriteLine(TexBox3Vous.Text) StrWrite.WriteLine(TexBox4Vous.Text) StrWrite.WriteLine(TexBox5Vous.Text) StrWrite.WriteLine(TexBox6Vous.Text) StrWrite.WriteLine(TexBox7Vous.Text) StrWrite.WriteLine(TexBox8Vous.Text) StrWrite.WriteLine(TexBox9Vous.Text) StrWrite.WriteLine(TexBox10Vous.Text) StrWrite.WriteLine(TexBox11Vous.Text) 'Fermeture du flux StrWrite.Close() End If ' sauve logo dans chemin appli ' Inscrire le nom du dossier de l'image Dim file_name As String = Application.ExecutablePath file_name = file_name.Substring(0, file_name.LastIndexOf("\bin")) & "\LogoSociete." ' Recevoir l'image Dim bm As Bitmap = PicBoxLogo.Image ' Sauvez l'image en bitmap. bm.Save(file_name & "bmp", System.Drawing.Imaging.ImageFormat.Bmp) End Sub
Le code plante en fait (je viens de tester) si je clique sur le bouton "annuler" lors de l'enregistrement avec la boite "SaveFileDialog".
Qu'est-ce qu'un point d'arrêt?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question