TUTO vb.net Tirar screen shot com api.

[williamyh 0]

declare a api Dim img As System.Drawing.Image

 

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

 

adicionar 2 botoes e 1 picture box (a onde vc vai ver a imagem)

Vamos agora colocar as Funçoes nos botoes no primeiro botao q vou chamar de button1

 

'para pegar a imagem 'chamar a tecla print screen keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0&, 0&) Application.DoEvents()

'pegar a screen PictureBox1.Image = Clipboard.GetData(Windows.Forms.DataFormats.Bitmap)

img = Clipboard.GetData(Windows.Forms.DataFormats.Bitmap)

e no botao 2 q eu vou chamar de button2 'é para salvar a imagem

Dim b As Image b = img b.Save("c:/img.bmp")

'diretorio da imagem a ser salva nao esqueçam a picture box vou chamar de PictureBox1 no

Form1_load

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

 

 

Simples...flw.s Código de fonte RapidShare: 1-Click Webhosting