Skip to content

Screen Capture (Visual Basic) 2008 – 2010

Viewing 1 post (of 1 total)
  • Author
  • #186824

    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,, and!

    Works with Visual Basic 2008 & 2010, You can download all versions by from the link:

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

    Watch The Video Tutorial On Youtube:
    Download Video Example + Source as Text :

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

    Full Source Code:


    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


    Dim savefiledialog1 As New SaveFileDialog
    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 ===========

    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

Viewing 1 post (of 1 total)
  • You must be logged in to reply to this topic.