Screen Capture (Visual Basic) 2008 – 2010

Viewing 1 post (of 1 total)
  • Author
    Posts
  • #15122
    imFiles
    Administrator

    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

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