Screen Capture (Visual Basic) 2008 – 2010

Screen Capture (Image of my finished Example)

Hey everyone.. First of all this is my 2nd VB Program, and as a total NEWBIE in Visual Basic or Programing, I am trying to follow in the steps of our developers from Im-Integrations, Imfiles and some in Dutchplace.Nl, that I AM FAR FROM YET….. :D! My time for being online is cut more than half, since we have an Internet-CoffeeShop to take care of, as we call it in Denmark (NetCoffeeShop! And on top of that I have to tc of my forum as well and also try to follow up with our other forums too. I am sorry that I cant be that much online! But I do my best:

So after Balool developing is in Pause, I had to come up with something! ! Since I know the next step will be a new type of Balool, using VB, NET, C+++! Almost sure about that! Now I am trying to help other newbies like myself, to get involved. And get ready for our next round of Balool! I have made a little Screen Capture program, which is a good start for us NEWBIES, Hope you guys will start liking it and this way get invovled too! Thanks!

This is MY contribution to Im-Integrations.com, Dutchplace.nl, Imfiles.com and China-Cheats.com!

Works with Visual Basic 2008 & 2010, You can download all versions by from the link: http://www.microsoft.com/visualstudio/en-us/products/2010-editions/express

Here is a little Tutorial about how to make a Screen Capturer in less than 2 mins!

Watch The Video Tutorial On Youtube:
[youtubevideo:vkmdlk2k]aZx6j5_pRkc[/youtubevideo:vkmdlk2k] Download Video Example + Source as Text : http://www.mediafire.com/?64nzhbfkthzrrmr

=========== Code Starts ===========

Full Source Code:

Button1:

Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
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)
PictureBox1.Image = screenshot

Button2:

Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Save File"
savefiledialog1.FileName = "*.bmp"
savefiledialog1.Filter = "Bitmap |*.bmp"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception
'Do Nothing
End Try

=========== Code Ends ===========

SOME EXTRA NEWS:
A Little Sneak Peek Of My Next Project:

Upcoming Project:

I am now heading over to another level of Programing, as a NEWBIE i am lately very much involved with Visual Basic to get ready for our upcomming projects! My next Project is to make a Screen Recorder, and here is a little Screen Shot. It was easy to make, but I admit that I have cheated a bit, by looking after a tutorials on other websites, but this is how you learn! You cant just learn it by yourself!
China X-CREEN Recorder

Leave a Reply

You must Register or Login to comment on Screen Capture (Visual Basic) 2008 – 2010