Primeiro Insira um Botão com o nome Command1 com o caption Capturar
Insira outro botão com o nome Command2 com o caption Salvar
Insira um Picturebox com o nome Picture1
veja a imagem abaixo da janela com todos os objetos inseridos:
Agora copie o código abaixo e cole no seu projeto:
Private
Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As _
Byte, ByVal dwFlags As Long, ByVal _
dwExtraInfo As Long)
No evento click do botão Capturar, insira esse código:
'P/ capturar a tela:
Picture1.AutoSize = True
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
No evento Click do Botão Salvar, Insira esse código:
SavePicture Picture1.Image, "C:\Image.BMP"
Unload Me
Form1.Show
O código na cor rosa, é o local onde será salvo a imagem, você pode alterá-lo conforme sua preferência!!!
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco
