|
|
|
|
|
|
|
|
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
|
|
|
|
|
