CAPTURAR A TELA ATUAL

USUARIO.EXCLUIDOS 14/09/2005 13:55:19
#104114
Como eu faço para capturar a imagem da tela atual ??

Obrigado....
MARIOZNETO 14/09/2005 13:56:38
#104116 Resposta escolhida
Veja este Link:

http://www.vbmania.com.br/vbmdetail.php?varID=291

Pesquise antes de postar...
LIONHEART 14/09/2005 14:46:15
#104134 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = &H2C



coloca onde vc quiser, por exemplo, um botao.

'Assim vc copia a tela do Windows.
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
'e assim vc mostra numa Image
Image.Picture = Clipboard.GetData()



'se vc trocar por 1 o primeiro 0, vai gravar só a tela atual....
Call keybd_event(vbKeySnapshot, 1, 0, 0)
MARIOZNETO 14/09/2005 14:54:53
#104137
Falae Lion,

Com o Image1 não funcionou, testei com o picture1, ai foi Blz...

Falow...
LIONHEART 14/09/2005 15:03:01
#104140
estranho, pois o objeto que eu to usando aqui de teste é um Image, bom, pra mim funciona com ambos
MARIOZNETO 14/09/2005 15:57:40
#104163
Erro meu, um grotesco erro meu de digitação...

Falow...
Tópico encerrado , respostas não são mais permitidas
Voltar