IMPRIM ECRAN -> FICHIER BMP
Lordvb
Messages postés
57
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
3 décembre 2004
-
7 juin 2003 à 15:00
cs_azerty25 Messages postés 1114 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 6 mai 2007 - 6 mai 2004 à 21:27
cs_azerty25 Messages postés 1114 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 6 mai 2007 - 6 mai 2004 à 21:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7325-imprim-ecran-gt-fichier-bmp
https://codes-sources.commentcamarche.net/source/7325-imprim-ecran-gt-fichier-bmp
6 mai 2004 à 21:27
Je te joint un exemple simple que j'utilise, tiré de all api et modifé ensuite.
Private Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4
Private Const PM_REMOVE = &H1
Private Const WM_HOTKEY = &H312
Private bCancel As Boolean
Private Type Msg
hwnd As Long
Message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private Sub Form_Load()
RegisterHotKey(Me.hwnd, &HBFFF&, MOD_CONTROL, vbKeyN) 'touche a enregistrer, tu met vbkey(ce que tu veux) et la place de MOD_CONTROL, soit MOD_ALT ou MOD_SHIFT , met tu peux laisser tel quel, le couple de touche serait alors control+N
Show
ProcessMessages
End Sub
Private Sub Form_Unload(Cancel As Integer)
bCancel = True
'unregister hotkey
Call UnregisterHotKey(Me.hwnd, &HBFFF&)
End
End Sub
Private Sub ProcessMessages()
Dim Message As Msg
'loop until bCancel is set to True
Do While Not bCancel
'wait for a message
WaitMessage
'check if it's a HOTKEY-message
If PeekMessage(Message, Me.hwnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
'code que tu veux faire lors de l'appui des touches raccourcis
End If
End If
'let the operating system process other events
DoEvents
Loop
End Sub
6 mai 2004 à 21:19
J'ai laissé un message sur la source de zappy pour voir s'il peut ou non modifier cette "option"
Ceci dit, je réitère ma demande de commentaires à Renfield... lorsqu'il repassera par ici...
6 mai 2004 à 21:16
6 mai 2004 à 21:10
Par contre pour les menu, j'ai jamais fait attention, c'est bizzare :(
6 mai 2004 à 21:06
http://www.vbfrance.com/code.aspx?ID=4251
6 mai 2004 à 21:05
C'est justement celle que j'étais en train de tester quand ton message est arrivé.
Mais d'après ce que j'ai constaté, il n'est pas possible de copier un menu déroulé... Ce qui était possible avec la source de Renfield...
Ceci dit, il me reste à étudier le code pour tenter de comprendre le fonctionnement de ces API...
Merci pour la réponse
6 mai 2004 à 20:55
Mais regarde sur le site, il y a déja une source qui le fait, j'ai déja vu, il utilise un détecteur de handle sous la souris si ma mémoire est bonne, cad quand tu met le curseur sous une fenetre, il la cadre toute seul, il fonctionne aussi avec des textbox etc etc qui on aussi des handle, met il passe par le clipboard pour coller l'image.
6 mai 2004 à 18:38
Je suis occupé à revoir le code de ma source citée ci-dessus et je voulais recomparer avec le tien.
Mais avec l'interception des touches, j'ai encore du mal...
Pourrais-tu commenter ton code afin de me permettre de comprendre le fonctionnement de celui-ci ?
De plus, sauf erreur de ma part, il me semble qu'il n'est (actuellement) pas possible de copier une fenêtre active qui n'occuperait pas l'entièreté de l'écran (style une boîte de dialogue avec les touches ALT+PRINTSCREEN).
D'avance merci.
7 déc. 2003 à 10:52
C'est tout simplement ce qu'il me fallai lol
Mici bocou Billou, toujours des bonnes idées !!! ;)
Alors ton projet de konkette de Micro$oft avance lol ?
26 août 2003 à 10:46
23 août 2003 à 10:01
22 août 2003 à 11:32
moi c'est l'inverse, je cherche à bloquer la touche imprim'écran, est ce que l'un de vous sait comment faire et peut m'aider ?
merci d'avance!
8 juin 2003 à 12:23
Sinon, très bien ;-)
8 juin 2003 à 10:47
mon appli est moins aboutie, je te l'accorde, et j'en suis pleinement conscient, mais ca ne passe aucunement par le presse papiers......
8 juin 2003 à 10:41
Si le titre parle de la barre des tâches, c'est tout simplement parce que l'application est prévue pour se mettre dans la barre des tâches et, surtout, se lancer à chaque démarrage du PC.
L'option "Imprimer" me paraissait importante pour en cas de message d'alerte inhabituel dans l'une ou l'autre application, cela me permet de faire imédiatement une copie d'écran de ce message pour en garder une trace en cas de besoin ultérieur (appel à un dépanneur par exemple).
8 juin 2003 à 10:18
l'avantage de ma technique, a mon avis, c'est l'interception de la touche Imprim Ecran...
ce qui fait que ni le presse papier, ni les habitudes de fonctionnement ne sont modifiés.
encore merci pour l'info
8 juin 2003 à 09:42
8 juin 2003 à 09:41
Ma source est encore loin d'être parfaite, mais tu pourrais peut-être t'en servir pour atteindre tes objectifs. Si tel était le cas, fais-moi signe que je vois les améliorations que tu y auras apportées.
7 juin 2003 à 15:00