sakuraba | Bonjour et bonne année,
voici mon code,
Code :
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim dlg As SaveFileDialog
- dlg = New SaveFileDialog
- 'paramétrage de la boîte
- dlg.Title = "Enregistrer le fichier"
- dlg.DefaultExt = "jpg"
- dlg.Filter = "Image Jpeg|*.jpg"
- 'affichage de la boite
- dlg.ShowDialog()
- 'affichage des fichiers selectionnés
- MsgBox("le fichier sera enregistré dans: " & dlg.FileName)
- Dim bm As Bitmap = GetFormImage()
- bm.Save(dlg.FileName, ImageFormat.Jpeg)
- End Sub
|
Code :
- Private Function GetFormImage() As Bitmap
- ' Get this form's Graphics object.
- Dim me_gr As Graphics = Me.CreateGraphics
- ' Make a Bitmap to hold the image.
- Dim bm As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height, me_gr)
- Dim bm_gr As Graphics = Graphics.FromImage(bm)
- Dim bm_hdc As IntPtr = bm_gr.GetHdc
- ' Get the form's hDC. We must do this after
- ' creating the new Bitmap, which uses me_gr.
- Dim me_hdc As IntPtr = me_gr.GetHdc
- ' BitBlt the form's image onto the Bitmap.
- BitBlt(bm_hdc, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height, _
- me_hdc, 0, 0, SRCCOPY)
- me_gr.ReleaseHdc(me_hdc)
- bm_gr.ReleaseHdc(bm_hdc)
- ' Return the result.
- 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
|
FORUM HardWare.fr
