desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar

[Rodrigo]

bom dia
alguém pode me ajudar
uso o access 2007
gostaria de desativar teclas "printScreen" ao abrir o formulário e ativar ao fechar

[Avelino Sampaio]

Rodrigo

veja este meus dois artigo se ajuda:

http://www.usandoaccess.com.br/dicas/como-interceptar-teclas-e-combinacoes-de-teclas.asp

e

http://www.usandoaccess.com.br/dicas/ativar-desativar-teclas-access.asp

Aguardamos

[Rodrigo]

neste exemplo:
http://www.usandoaccess.com.br/dicas/at ... access.asp

eu consigo ativar e desativar as teclas do exemplo, no entanto, não consigo adaptar para desabilitar a tecla printScreen

[Avelino Sampaio]

Rodrigo,

utilize a seguinte API:

Código: Selecionar todos

Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long

E no evento "Ao abrir" do formulário, coloque:

Código:

Private Sub Form_Open(Cancel As Integer)
Call RegisterHotKey(Me.hwnd, 0&, 0&, vbKeySnapshot)
End Sub

Aguardamos

[Rodrigo]

não funcionou, API e módulo é a mesma coisa?
criei um módulo:
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
coloquei no evento ao abrir:
Call RegisterHotKey(Me.hwnd, 0&, 0&, vbKeySnapshot)

[Avelino Sampaio]

Rodrigo

aqui está funcionando direitinho ( Windows 7/64bits + Access 2016/32bits ).

Acrescente o PtrSafe na API e realize novo teste.

Código: Selecionar todos

Public Declare PtrSafe Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long

Nota: Atente para o que já existia anteriormente gravado na memoria, quando testou o PrintScreen. Para limpar a área de transferência do Windows, veja neste artigo:

http://www.techtudo.com.br/dicas-e-tutoriais/noticia/2010/12/como-limpar-area-de-transferencia-do-windows.html

Aguardamos

[Rodrigo]

deu erro ao acrescentar "PtrSafe"
era esperado sub ou Function
Public Declare PtrSafe Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long

uso windows 10 64bits + access 2007

[Avelino Sampaio]

Rodrigo,

tira o PtrSafe pois só funciona para o 2010 em diante.

Aguardamos

[Rodrigo]

não funciona

[Avelino Sampaio]

Rodrigo,

por um acaso está usando uma combinação de teclas para usar o PrintCreen ? Está usando um Notebook ?

Aguardamos

[Rodrigo]

isso mesmo? estou usando um notbook,
tecla "windows" + printskreen

caso seja este o problema gostaria de desabilitar todas as teclas de atalho.

[Avelino Sampaio]

Rodrigo

fiz novas modificações no seu projeto exemplo. Teste e me diga se funciona.

Aguardamos

[Rodrigo]

Resolveu apenas nos computadores que usam shift + printscren
No que usa a tecla "windows" + printscreem não resolveu