1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Not PictureBox1.Image Is Nothing Then 'Vérifier si image existe dans Picturebox1
Dim savefiledialog1 As New SaveFileDialog
savefiledialog1.Title = "Image sauvegarder"
savefiledialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop 'afficher le répertoire du bureau
savefiledialog1.FileName = "photo.jpg" ' a vous de choisir un nom de l'image
savefiledialog1.Filter = "photo.Jpeg |*.jpg"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
TextBox1.Text = savefiledialog1.FileName 'afficher répertoire du chemin de sauvegarde depuis textbox1.text
PictureBox1.Image.Save(TextBox1.Text, System.Drawing.Imaging.ImageFormat.Jpeg) 'sauvegarder l'image depuis picturebox1
Else
MessageBox.Show("Veuillez séléctionner un repertoire pour sauvegarder l'image", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error) 'si vous annuler le répertoire de sauvegarder de l'image vous avez ce message erreur
End If
Else
MessageBox.Show("Veuillez ajouter un image dans Picturebox1", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error) 'si picturebox1 est vide vous avez ce message erreur
End If
End Sub |
Partager