Imprim ecran -> fichier bmp

Soyez le premier à donner votre avis sur cette source.

Vue 4 211 fois - Téléchargée 474 fois

Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

Ah oui, c'est normal, il faut utiliser le hook des touches pour ça !
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
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
1
En fait, si tu déroules un menu d'une application et qu'ensuite tu cliques sur l'application de capture afin de promener ta souris, le menu se referme aussitôt...

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...
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

Mon code prend bien en compte les menus, je me disai bien que c'était strange ... Il les prend car la capture est faite depuis une zone rectangulaire délimitée par raport à l'écran, et comme le menu est dans la fenetre , il le prend ... Je crois que je me suis aidé du code cité plus haut pour faire le mien, si tu veux, je peux poser mon code si l'autre ne te convient pas pour t'inspirer
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

Je venai justement pour te passer l'adresse lol
Par contre pour les menu, j'ai jamais fait attention, c'est bizzare :(
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
1
Pour info, la source dont tu parles est "MAGIQUE CAPTURE (CAPTURE D'ÉCRAN ET DE SOUS FENÊTRES)" de zappy.

http://www.vbfrance.com/code.aspx?ID=4251
Afficher les 19 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.