Capture de tout l'écran et sauvegarde en JPEG sous VB.NETRésolu

Question

Bonjour &#224; tous,

Si quelqu'un peut m'aider en VB.NET, je m'explique :

- Je souhaiterais capturer tout l'&#233;cran et sauvegarder cette capture en JPEG. Ayant regard&#233; si un sujet correspondait &#224; ma requ&#234;te, je n'ai trouv&#233; que des propositions en VB6 avec la m&#233;thode :



Call keybd_event(vbKeySnapshot, 1, 0, 0)


SavePicture(Clipboard.GetData(vbCFBitmap), "c:\screen.bmp")

Et SavePicture n'existe plus en VB.NET :

Pouvez-vous m'aider par un exemple dans le cas ou vous auriez une solution, je d&#233;bute ! Merci.

Angel 59 (Misery01)http://maprog.ifrance.com/

addamsmercredi · Accepted Answer

Avec la version 2005, on peut faire comme ceci : 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


     'appuie sur la touche Imp&#233;cr
     System.Windows.Forms.SendKeys.Send("+{PRTSC}")


     'active un timer le temps que la capture se fasse
     Timer1.Interval = 100
     Timer1.Enabled = True

End Sub



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
      Timer1.Enabled = False

      'sauvegarde de la capture d'&#233;cran
      Clipboard.GetImage.Save("c:\screen.jpg")

End Sub


mais je ne sais pas si &#231;a fonctionne avec les pr&#233;c&#233;dentes versions.

cs_Willi · Answer

Addamsmercredi, ta m&#233;thode est bonne avec 2003....
Avec 2005 il y a d'autres moyens plus &#233;l&#233;gants.

Angel 59 si tu es sous 2003 tu peux utiliser la m&#233;thodes de Addamsmercredi.

Si tu utilises 2005 je te propose une autre m&#233;thode plus jolie 

8<---------------------------------------------------------------------
Dim bounds 
As
 Rectangle = Screen.PrimaryScreen.Bounds   'rectangle contenant l'espace de travail de l'&#233;cran

Dim bmp 
As
 
New
 Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)   'nouveau bitmap au dimansion de l'&#233;cran

Dim g 
As
 Graphics = Graphics.FromImage(bmp)
'M&#233;thode pour copier l'&#233;cran....
g.CopyFromScreen(bounds.Left, bounds.Top, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)

'Puis sauvegarde dans un jpg
bmp.Save(
"c:\imprim_ecran.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
--------------------------------------------------------------------->8

cs_Angel 59 · Answer

Je suis en version 2003, c'est dommage car ton code &#233;tait clair et concis ! j'ai essay&#233; de chercher des infos sur "Clipboard.GetImage" en remplacement de cette proc&#233;dure pour la version 2003, mais il n'y en a pas apparemment. Etrange !


Angel 59 (Misery01)http://maprog.ifrance.com/

cs_Angel 59 · Answer

D&#233;sol&#233; Wili, mais la m&#233;thode d'Addamsmercredi &#233;tait pour la Version 2005, et moi il me faudrait avoir en Version 2003. Pour r&#233;sumer :

- "SavePicture" n'existe plus en VB.NET 
- "Clipboard.GetImage" n'existe pas dans la version 2003 

C'est un peu embettant, les diff&#233;rences entre les versions....

Que faire, snif !

Angel 59 (Misery01)http://maprog.ifrance.com/

addamsmercredi · Answer

Avec la version 2003, &#224; la place de GetImage().Save, il faut passer par une variable Bitmap comme ceci : 

Dim image As Bitmap
image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
image.Save("c:\screen.jpg")

cs_Willi · Answer

Angel 59 sa m&#233;thode c'est de la bidouille, le code simule l'appuie su la touche Imp Ecran....mais fonctionne sous 2003.
Sous 2005 ma m&#233;thode est plus propre.... !!!

Sinon il existe des apis http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=309&lngWId=10
Tu auras juste &#224; enregistrer ton picturebox de cette maniere
PictureBox1.Image.Save("c:	onfichier.jpg"
, System.Drawing.Imaging.ImageFormat.Jpeg)

cs_Angel 59 · Answer

L&#224; franchement, je te dis bravo et un grand merci Addamsmercredi. Je l'ai un peu adapt&#233; &#224; ce que je voulais faire et c'est g&#233;nial, cela marche &#224; la perfection !

Et merci &#224; toi wili... bien entendu.

Je suis heureux de voir que certains r&#233;solvent des probl&#232;mes comme &#231;a.

Amiti&#233;.


Angel 59 (Misery01)http://maprog.ifrance.com/

Capture de tout l'écran et sauvegarde en JPEG sous VB.NET

7 réponses

Discussions similaires