Screen Shot

[VBnet]

Hello CodeCall Members!!

I will be showing you how to take a screen shot with VB.NET

First you´ll need 2 Buttons and a picture box wich covers a big area

place the first button and rename it to "Take Screenshot", then add the 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

then place the second button, name it "Save", then add the code :

Dim savefiledialog1 As New SaveFileDialog
        Try
            savefiledialog1.Title = "Save File"
            savefiledialog1.FileName = "*.jpeg"
            savefiledialog1.Filter = "JPEG |*.jpeg"
            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

and at last add the picture box, make sure it covers a big area so that the screenshot will fit in.

[WingedPanther]

Not bad, but PLEASE be sure to use the code tags (the # button) when posting code, especially in a tutorial.

[Xav]

Look at these properties:

savefiledialog1.Title = "Save File"
            savefiledialog1.FileName = "*.jpeg"
            savefiledialog1.Filter = "JPEG |*.jpeg"

Why not simply add a dialog from the toolbox? It would save a lot of coding work.

[VBnet]

Originally Posted by Xav

Look at these properties:

savefiledialog1.Title = "Save File"
            savefiledialog1.FileName = "*.jpeg"
            savefiledialog1.Filter = "JPEG |*.jpeg"

Why not simply add a dialog from the toolbox? It would save a lot of coding work.

hmm. dunno why.. i dont mind doing some code work.. :001_tt2:

[Xav]

Lol - but if it's easier, then why not?

[VBnet]

Originally Posted by Xav

Lol - but if it's easier, then why not?

because i dont mind typing 3 lines of coding

[Xav]

I thought you like to keep tutorials simple?

+rep for the tutorial.

[VBnet]

Originally Posted by Xav

I thought you like to keep tutorials simple?

+rep for the tutorial.

Yeah i do