1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
|
Private Sub Image_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Image.Click
' enregistre la feuille sous forme de fichier image .jpg
Imprimer.Visible = False
Image.Visible = False
Quitter.Visible = False
Avant.Visible = False
Arriere.Visible = False
Using p As New ClassImpression()
Try
p.SetDocument(Me)
PictureBox.Image = buffer ' ici que picturebox contient le résultat
' boite de sauvegarde du fichier
With SaveFileDialog
.Title = "Enregistrer sous" 'Titre de la barre de titre
.InitialDirectory = BddPath 'répertoire de départ
.Filter = "Fichiers jpg|*.jpg" ' on travaille uniquement sur les .jpg
.ValidateNames = True 'n'accepte que les noms valides (win 32)
.AddExtension = True 'ajoute une extension au nom s'il n'y en a pas
.CreatePrompt = True ' Message de confirmation si création d'un nouveau fichier
.OverwritePrompt = True 'Message si le fichier existe déjà : évite l'effacement d'anciennes données
If .ShowDialog = DialogResult.OK Then 'L'utilisateur a bien cliqué sur ok
PictureBox.Image.Save(.FileName)
End If
End With
Catch ex As Exception
If langue = "en" Then
messageaff = "Image .jpg Error"
infoaff = "Error"
Else
messageaff = "Erreur fichier image .jpg"
infoaff = "Erreur"
End If
MessageBox.Show(messageaff, infoaff, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Using
If flagnavigate = True Then
Afficheboutons()
End If
Imprimer.Visible = True
Image.Visible = True
Quitter.Visible = True
End Sub |
Partager