[VB 2005 Express] Sauvegarder une form en jpg ( qualité du jpeg )

Sauvegarder une form en jpg ( qualité du jpeg ) [VB 2005 Express] - VB/VBA/VBS - Programmation

Marsh Posté le 03-01-2006 à 11:09:31    

Bonjour et bonne année,
 
voici mon code,
 

Code :
  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  3.         Dim dlg As SaveFileDialog
  4.         dlg = New SaveFileDialog
  5.         'paramétrage de la boîte
  6.         dlg.Title = "Enregistrer le fichier"
  7.         dlg.DefaultExt = "jpg"
  8.         dlg.Filter = "Image Jpeg|*.jpg"
  10.         'affichage de la boite
  11.         dlg.ShowDialog()
  13.         'affichage des fichiers selectionnés
  14.         MsgBox("le fichier sera enregistré dans: " & dlg.FileName)
  16.         Dim bm As Bitmap = GetFormImage()
  17.         bm.Save(dlg.FileName, ImageFormat.Jpeg)
  18.     End Sub


 

Code :
  1. Private Function GetFormImage() As Bitmap
  2.         ' Get this form's Graphics object.
  3.         Dim me_gr As Graphics = Me.CreateGraphics
  5.         ' Make a Bitmap to hold the image.
  6.         Dim bm As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height, me_gr)
  7.         Dim bm_gr As Graphics = Graphics.FromImage(bm)
  8.         Dim bm_hdc As IntPtr = bm_gr.GetHdc
  10.         ' Get the form's hDC. We must do this after
  11.         ' creating the new Bitmap, which uses me_gr.
  12.         Dim me_hdc As IntPtr = me_gr.GetHdc
  14.         ' BitBlt the form's image onto the Bitmap.
  15.         BitBlt(bm_hdc, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height, _
  16.             me_hdc, 0, 0, SRCCOPY)
  17.         me_gr.ReleaseHdc(me_hdc)
  18.         bm_gr.ReleaseHdc(bm_hdc)
  20.         ' Return the result.
  21.         Return bm


 
 
lorsque que je sauvegarde mon fichier jpeg la qualité est pas terrible on dirait du jpeg à 50%
je n'arrive pas à utiliser encodparameters en faite  
 
merci d'avance


Message édité par sakuraba le 03-01-2006 à 12:21:22
Reply

Marsh Posté le 03-01-2006 à 11:09:31   

Reply

Marsh Posté le 12-01-2006 à 14:43:45    

:bounce:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed