Discussion :

[SpaceFrog]

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 ?

[bidou]

ça m'a bien occupé ton petit problème mais allons y :
Dans un module (.bas)

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

dans ta feuille

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 voila

[SpaceFrog]

Et si l'appli plante avant la femeture de la fenêtre ?

[bidou]

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)

[SpaceFrog]

Juste pour remercier bidou mieux vaut tard que jamais !

[Ingham]

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 ?

[bidou]

Forcer la feuille à rester active. Si tu veux savoir comment, fait une recherche sur le forum, le sujet a déjà été traité.