Je voudrais empecher une impression écran dans mon appli VB
Peut on le faire sur le keypress
Que est le code de la touche impr écran ?
Je voudrais empecher une impression écran dans mon appli VB
Peut on le faire sur le keypress
Que est le code de la touche impr écran ?
ça m'a bien occupé ton petit problème mais allons y :
Dans un module (.bas)
dans ta feuille
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Public Const WH_KEYBOARD = 2 Public hHook As Long Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If nCode >= 0 Then If wParam = 44 Then Clipboard.Clear KeyboardProc = 1 End If End If KeyboardProc = CallNextHookEx(hHook, nCode, wParam, lParam) End Function
et voila
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub Form_Load() hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, 0&, App.ThreadID) End Sub Private Sub Form_Unload(Cancel As Integer) Call UnhookWindowsHookEx(hHook) End Sub
Et si l'appli plante avant la femeture de la fenêtre ?
si ton appli plante tu la relance. Car l'api que je t'ai donnée ne sera plus sollicitée dès lors que l'appli sera plantée (du moins j'espère)
Juste pour remercier bidou mieux vaut tard que jamais !
Le probleme c'est que ca marche pas si la feuille est pas active ... c'est donc facile de pouvoir prendre un screenshot de la feuille quand meme ... une solution ?
Forcer la feuille à rester active. Si tu veux savoir comment, fait une recherche sur le forum, le sujet a déjà été traité.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager