Imports System.IO.Path
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim sFilePath As String
Dim ext As String
Dim sfd As New SaveFileDialog
With sfd
.Title = "Enregistrer l'image"
.FileName = "Capture"
.Filter = "JPeg Files (*.jpg,*.jpeg)|*.jpg;*.jpeg|Bitmap Files (*.bmp)|*.bmp|Gif Files (*.gif)|*.gif|Tif Files (*.tif)|*.tif|Png Files (*.png)|*.png"
.FilterIndex = 1
If .ShowDialog() = Windows.Forms.DialogResult.OK Then
sFilePath = .FileName 'chemin de l'image enregistrée
ext = GetExtension(sFilePath) 'extension seule
ConvertForm_BMP(Me, sFilePath, ext) ' ConvertForm_BMP souligné en rouge
Else
MessageBox.Show("Opération annulée par l'utilisateur!", "Enregistrement image", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
.Dispose()
End With
End Sub
Exit Subdans votre code afin que le
.Dispose()puisse se faire si vous annulez l'opération .
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Dim sFilePath As String Dim ext As String Dim sfd As New SaveFileDialog With sfd .Title = "Enregistrer l'image" .FileName = "Capture" .Filter = "JPeg Files (*.jpg,*.jpeg)|*.jpg;*.jpeg|Bitmap Files (*.bmp)|*.bmp|Gif Files (*.gif)|*.gif|Tif Files (*.tif)|*.tif|Png Files (*.png)|*.png" .FilterIndex = 1 If .ShowDialog() = Windows.Forms.DialogResult.OK Then sFilePath = .FileName 'chemin de l'image enregistrée ext = GetExtension(sFilePath) 'extension seule ' ConvertForm_BMP(Me, sFilePath, ext) ConvertTabPage_BMP(TabPage1, sFilePath, ext) Else MessageBox.Show("Opération annulée par l'utilisateur!", "Enregistrement image", MessageBoxButtons.OK, MessageBoxIcon.Information) 'Exit Sub End If .Dispose() End With End Subla capture.
chemin = .FileName
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim dllg As New PrintPreviewDialog 'aperçu avant impression dllg.Document = PrintDocument1() dllg.ShowDialog() 'PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) _ Handles PrintDocument1.PrintPage Dim newImage As Image = Image.FromFile(chemin) e.Graphics.DrawImage(newImage, 0, 0) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionExit Sub. Vous l'avez mis en commentaire .
ConvertTabPage_BMP. Mettre comme commentaire
' conversion Form en fichier imageme semble plus judicieux .