SNAPSHOT
Utilisateur anonyme
-
16 févr. 2003 à 01:37
cs_trouduc Messages postés 56 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 28 septembre 2005 - 2 févr. 2006 à 04:00
cs_trouduc Messages postés 56 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 28 septembre 2005 - 2 févr. 2006 à 04:00
3 réponses
pi7438
Messages postés
94
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
16 avril 2004
16 févr. 2003 à 13:28
16 févr. 2003 à 13:28
il y a une touche sur ton clavier qui permet de te faire ca : elle met le contenu de l'ecran dans le presse papier.
cette touche s'appelle "Impr écran syst". elle se trouve generalement a coté de "f12"
@@@@@ CQFD = Ce Qu'il Fallait Démontrer @@@@@
allez a++ :)
cette touche s'appelle "Impr écran syst". elle se trouve generalement a coté de "f12"
@@@@@ CQFD = Ce Qu'il Fallait Démontrer @@@@@
allez a++ :)
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
3
16 févr. 2003 à 14:53
16 févr. 2003 à 14:53
cs_trouduc
Messages postés
56
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
28 septembre 2005
2 févr. 2006 à 04:00
2 févr. 2006 à 04:00
J'ai pas reussi a faire plus simple
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 'api
Private Sub Command1_click()
keybd_event vbKeySnapshot, 0, 0&, 0& 'simule l'appui de la touche "PrintScreen"
DoEvents 'attente que l'image soit finie de copiée
SavePicture Clipboard.GetData(2), "c:\image.bmp" 'enregistre l'image
End Sub
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 'api
Private Sub Command1_click()
keybd_event vbKeySnapshot, 0, 0&, 0& 'simule l'appui de la touche "PrintScreen"
DoEvents 'attente que l'image soit finie de copiée
SavePicture Clipboard.GetData(2), "c:\image.bmp" 'enregistre l'image
End Sub
