CODE ASCII DES TOUCHES ALT PRINTSCREEN,....
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
-
18 avril 2002 à 11:46
Neo.balastik Messages postés 796 Date d'inscription jeudi 17 mai 2001 Statut Membre Dernière intervention 5 mai 2009 - 18 avril 2002 à 11:52
Neo.balastik Messages postés 796 Date d'inscription jeudi 17 mai 2001 Statut Membre Dernière intervention 5 mai 2009 - 18 avril 2002 à 11:52
1 réponse
Neo.balastik
Messages postés
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
7
18 avril 2002 à 11:52
18 avril 2002 à 11:52
Salut,
Une solution via l'API keybd_event:
Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Sub GetScreenShot(SetObj As Object)
On Error Resume Next
Dim CurrCBData As Variant, CurrCBText As String, CurrPict As String
keybd_event vbKeySnapshot, 1, 0, 0
SetObj.Picture = Clipboard.GetData(vbCFBitmap)
Clipboard.Clear
End Sub
Pour capturer l'écran:
GetScreenShot MyPicture
-> MyPicture est une PictureBox
Tchao
NéoB
Une solution via l'API keybd_event:
Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Sub GetScreenShot(SetObj As Object)
On Error Resume Next
Dim CurrCBData As Variant, CurrCBText As String, CurrPict As String
keybd_event vbKeySnapshot, 1, 0, 0
SetObj.Picture = Clipboard.GetData(vbCFBitmap)
Clipboard.Clear
End Sub
Pour capturer l'écran:
GetScreenShot MyPicture
-> MyPicture est une PictureBox
Tchao
NéoB
