Take a screenshot and save to bitmap

[iaw1978]

Hi,

I'm having an issue with some code I'm trying to write that takes a screenshot of the current screen and saves it to a bitmap file on my local PC.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
 
Dim tempScreenshot = New Bitmap(Screen.PrimaryScreen.Bounds.Width, _
Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)
 
tempScreenshot.Save("C:\test.bmp")
 
End Sub

I'm running Windows 7, could there be some type of administrator issue? I don't get any errors ... can someone please help since this must be something simple.

[Hack]

Lets start with variables have to be declared AS something, so the first thing I would change would be

'change from
Dim tempScreenshot = New Bitmap(Screen.PrimaryScreen.Bounds.Width, _
Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)
'change to
Dim tempScreenshot As New Bitmap(Screen.PrimaryScreen.Bounds.Width, _
Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)

Moved To VB.NET

[MattP]

Lets start with variables have to be declared AS something

It's inferred AS Bitmap and perfectly acceptable code.

-----

The problem is that all that's been done is creating a new Bitmap with the dimensions of the primary screen. You need to create a graphics object and get the contents of the screen.

        Dim tempScreenshot = New Bitmap(Screen.PrimaryScreen.Bounds.Width,
                                        Screen.PrimaryScreen.Bounds.Height,
                                        PixelFormat.Format32bppArgb)

        Dim g = Graphics.FromImage(tempScreenshot)
        g.CopyFromScreen(0, 0, 0, 0, tempScreenshot.Size)
        g.Dispose()
        tempScreenshot.Save("C:\Temp\Test.bmp")