Ce code permets d'effectuer en quelques lignes de code des print screen de la fenetre active ou de l'ecran entier en simulant l'activation des touches du clavier.
Le resultat est affiché dans deux PictureBox.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 ' POUR LA FENETRE ACTIVE SendKeys.SendWait("{PRTSC}") Dim window As Bitmap window = CType(Clipboard.GetDataObject().GetData("Bitmap"), Bitmap) PictureBox1.Image = window ' ICI POUR LE SCREEN ENTIER SendKeys.SendWait("+{PRTSC}") Dim screen As Bitmap screen = CType(Clipboard.GetDataObject().GetData("Bitmap"), Bitmap) PictureBox2.Image = screen
Partager