Promote Your Blog
Google

Monday, January 16, 2012

How To Capture Screen Using VB

Suppose your screen capturing tool has a form with a button control on it. Then, simply add following code to callback function of Button control:

Me.Hide()
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics

System.Threading.Thread.Sleep(200)
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)

screenshot.Save("img.jpg")
Me.Close()

---------
Me.Hide() hides the form momentarily to allow capturing complete screen including underneath of this form.
Code has been taken from some forum on Internet and added line 'screenshot.save("img.jpg")' so that capture image can be saved. Unless, path is specified, the image will be saved in the directory from where executable is run.

No comments:

Post a Comment