[Resolvido]Bloquear Print Screen

Olá amigos do forum

Tentei utilizar a dica do amigo J Paulo

Sobre não permitir o uso do atalho print screen

Bela ajuda Ricardo, parabens.

Só um pitaco;

Para bloquear a tecla Print Screen, terá de ser diferente, você tem de chamar a api do windows.

Num módulo novo, cole esta linha de código e salve:

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


Por exemplo num botão:

Private Sub SeuBotão_Click()
Call RegisterHotKey(hwnd, 0&, 0&, vbKeySnapshot)
End Sub

Desta forma o Print Screen foi-se...

Acho que fiz algo errado pois não consegui fazer funcionar.

A questão do atalho ctrl + P blz

Falta somente  o lance do print screen

Aguardo um socorro, desde já muito obrigado

tenta no relatório

Com a tecla em baixo

Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 80 Then KeyCode = 0 'bloqueia o CTRL+P
Call RegisterHotKey(hwnd, 0&, 0&, vbKeySnapshot)
End Sub

http://maximoaccess.forumeiros.com/t6773-resolvidobloquear-teclas-no-teclado

Olá Toyebom, obrigado por retornar.

No meu caso o que deu errado é o bloqueio de ctrl + Print Screen

O que faço é chamar um arquivo.doc na janela de um formulário, o usuário está usando o atalho do print screen e me roubando os dados do doc,
daí ele redigita o texto e tem um doc igual ao meu, o que não quero

Minha ideia seria bloquear as opções de impressão o que consegui seguindo as dicas aqui do forum.
Agora esbarrei na questão do print screen (captura de tela) Só com as dicas que segui até agora não deu certo, sei que estou fazendo algo errado
mas ainda não saquei o que é.

Ve o link que te mandei posse que ajude, no meu caso resultou.

Posta a bd pode ser que possa ajudar de outra forma.

Bom dia a todos do forum

Caro colega Toyebom, examinei todos os links possíveis falando a respeito de bloqueio de teclas, mas o único que realmente esta direcionado para print screen é este do J Paulo:

 Bela ajuda Ricardo, parabens.

Só um pitaco;

Para bloquear a tecla Print Screen, terá de ser diferente, você tem de chamar a api do windows.

Num módulo novo, cole esta linha de código e salve:

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


Por exemplo num botão:

Private Sub SeuBotão_Click()
Call RegisterHotKey(hwnd, 0&, 0&, vbKeySnapshot)
End Sub

Desta forma o Print Screen foi-se...

Mas to falhando em algum lugar e não saquei onde ainda, to estudando o código para entender melhor.

Segue a questão.

Grato.

Não sei se pode ajudar mas:

http://www.vbforums.com/showthread.php?372390-RESOLVED-Turn-off-Print-Screen

http://social.msdn.microsoft.com/Forums/en-US/4a16166c-9863-481e-a3ca-53ff748d9437/disable-print-screen-button-in-visual-basic-2008?forum=vblanguage

http://www.bigresource.com/VB-How-to-disable-PrintScreen-Key-in-VB-trtUyekHJp.html

tenta adaptar se der.

Outra forma, é como diz a mensagem10
Another, probably worse, alternative would be to make the PrintScreen key a hotkey, so when pressed it would tell your app about it instead of capturing the screen.

De qualquer forma, caso consigas diz como fizeste e se possivel coloca o bd para vermos.

Olá,

Consegui rodar o código em meu form para bloquear a tecla print screen, porem quando clico CTRL + PrintScreen ainda cópia

To tentando agora bloquear a combinação com CTRL ALT e SHIFT pois cópia em todas.

Por enquanto to na captura da solução

T+

Boa noite amigos do forum

Pepino resolvido!!!!!

O que eu queria fazer:

Liberar um programa que exibe a letra de uma canção na tela dando ao artista... conjunto... vocalista ou seja lá quem for ler a letra e seguir suas cifras.
Porem o dito-cujo não poderia imprimir esta letra utilizando o atalho CTRL+P ou copia-la dando o tal PrintScreen; É claro que sabemos de outras  maneiras de capturar a imagem da tela do pc
porem nem todo artista ou musico independente passa a noite inteira mexendo em linhas de códigos e softwares como nós.


A solução:

01 - Construi um Relatório com o nome "Rel_Msg_Invasão" Escrevi nele em letras bem grandes uma mensagem para o usuário.


02 - Criei um modulo novo seguindo a dica do J Paulo com o seguinte código:

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


03 - Usando as informações do forum e dicas do mestre J PAulo vastamente publicadas aqui,
      No formulário que chamo a letra da canção fiz o seguinte:

Private Sub form_Load()

   Call RegisterHotKey(hwnd, 0&, 0&, vbKeySnapshot)


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
   Dim intCtrlApertada As Integer
   Dim intShiftApertada As Integer
   Dim intAltApertada As Integer

   'Utiliza máscaras de bits para determinar qual tecla foi pressionada.
       
      intShiftApertada = (Shift And acShiftMask) > 0
       intAltApertada = (Shift And acAltMask) > 0
       intCtrlApertada = (Shift And acCtrlMask) > 0
   
   'O código abaixo abre um relatório já preparado com a mensagem de alerta caso CTRL, ALT ou SHIFT seje premida
   
   If intCtrlApertada Then
   Dim stDocName As String
       stDocName = "Rel_Msg_Invasão"
       DoCmd.OpenReport stDocName, acPreview
       KeyCode = 0
   End If
   
   If intShiftApertada Then
       stDocName = "Rel_Msg_Invasão"
       DoCmd.OpenReport stDocName, acPreview
       KeyCode = 0
   End If
   
   If intAltApertada Then
       stDocName = "Rel_Msg_Invasão"
       DoCmd.OpenReport stDocName, acPreview
       KeyCode = 0
   End If

End Sub



... e o restante do código é relacionado ao meu trabalho dai não copiei

Como funciona:

Quando o formulário com a letra esta aberto e uma das teclas em questão é premida
o relatório é chamado e a mensagem é exibida cobrindo a tela...
Como o PrintScreen foi inibido pelo novo modulo bastou interferir na ação das teclas SHIFT CTRL e ALT
Enfim ficou joia.

Só não postei porque o aplicativo é um pouco grande.
Vou dar uma enxugada nele e posto em outra oportunidade.
Valeu galera do forum

Opps Me esqueci de informar resolvido!


Grato!

Opps Me esqueci de informar resolvido!


Grato!

Se puderes não te esqueças de anexar um exemplo em access para vermos.