7 replies to this topic

[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.

Edited by WingedPanther, 07 May 2009 - 02:58 AM.

[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]

Xav said:

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]

Xav said:

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]

Xav said:

I thought you like to keep tutorials simple? :)

+rep for the tutorial.

Yeah i do :p