Screenshot erstellen

Public Function CaptureScreen() As Bitmap
    Dim b As New Bitmap(SystemInformation.VirtualScreen.Width, SystemInformation.VirtualScreen.Height)
    Dim g As Graphics = Graphics.FromImage(b)
    g.CopyFromScreen(0, 0, 0, 0, b.Size)
    g.Dispose()
    Return b
End Function

Public Function CaptureScreen() As Bitmap
    Dim b As New Bitmap(SystemInformation.VirtualScreen.Width, SystemInformation.VirtualScreen.Height)
    Dim g As Graphics = Graphics.FromImage(b)
    g.CopyFromScreen(0, 0, 0, 0, b.Size)
    g.Dispose()
    Return b
End Function

Alte URL: /snippet/screenshot-erstellen/698