Maak een screenshot in VB.NET

Tijdens de ontwikkeling van een project wilde ik graag de mogelijkheid hebben om vanuit het programma automatisch een screenshot te maken van wat de gebruiker op dat moment op het scherm heeft staan. In mijn geval wilde ik dat gebruiken voor het bijhouden van een logboek zodat een screenshot in het logboek wordt opgeslagen wanneer de gebruiker een foutmelding zou krijgen.

Na wat googlen bleek dit verrassend eenvoudig. Zie onderstaande code en doe uw voordeel er mee. Succes!

    Public Shared Function MakeScreenShot() As Bitmap
        Try
            Dim iScreenWidth As Integer = Screen.GetBounds(New Point(0, 0)).Width
            Dim iScreenHeight As Integer = Screen.GetBounds(New Point(0, 0)).Height
            Dim bmpScreenshot As New Bitmap(iScreenWidth, iScreenHeight)
            Dim gfx As Graphics = Graphics.FromImage(bmpScreenshot)
            gfx.CopyFromScreen(0, 0, 0, 0, New Size(iScreenWidth, iScreenHeight))
            MakeScreenShot = bmpScreenshot
        Catch ex As Exception
            MakeScreenShot = Nothing
        End Try
    End Function