USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Simulando o Pressionamento da Tecla Print Screen
Postada em 26/10/2003 por [_Chuck_]            
É possível simular o pressionamento da tecla Print Screen utilizando-se a função keybd_event. Na verdade, é possível simular o pressionameto de qualquer outra tecla utilizando-se essa função.

Option Explicit

Private Declare Sub keybd_event Lib "user32" ( _
   ByVal bVk As Byte, ByVal bScan As Byte, _
   ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C


Public Sub SimularPrintScreen(ByVal vblnFullScreen As Boolean)

   If vblnFullScreen Then
      ' bScan = 0 --> Copia toda a tela pro Clipboard.
      Call keybd_event(VK_SNAPSHOT, 0, 0&, 0&)
   Else
      ' bScan = 1 --> Copia só a janela ativa pro Clipboard.
      Call keybd_event(VK_SNAPSHOT, 1, 0&, 0&)
   End If

End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página