Die Community zu .NET und Classic VB.

Startseite / Tipps / VB.NET-Tipp 0060: Bildschirmfoto (Screenshot) erstellen

VB.NET-Tipp 0060: Bildschirmfoto (Screenshot) erstellen

 von Frank Schüler

Schwierigkeitsgrad:

Framework-Version(en): .NET Framework 2.0, .NET Framework 3.0, .NET Framework 3.5

.NET-Version(en): Visual Basic 2005, Visual Basic 2008

Download: Download des Beispielprojektes [13,06 KB]

' Dieser Quellcode stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!

' Projektversion:   Visual Studio 2005
' Option Strict:    An
'
' Referenzen: 
'  - System
'  - System.Data
'  - System.Deployment
'  - System.Drawing
'  - System.Windows.Forms
'  - System.Xml
'
' Imports: 
'  - Microsoft.VisualBasic
'  - System
'  - System.Collections
'  - System.Collections.Generic
'  - System.Data
'  - System.Drawing
'  - System.Diagnostics
'  - System.Windows.Forms
'

' ##############################################################################
' ################################# Form1.vb ###################################
' ##############################################################################
Public Class Form1
    Private Function MakeScreenShot() As Bitmap
        ' Größe des Bildschirms ermitteln
        Dim Rect As Rectangle = Screen.PrimaryScreen.Bounds

        ' neue Bitmap in entsprechender Größe erstellen
        Dim Bmp As Bitmap = New Bitmap(Rect.Width, Rect.Height)

        ' Graphics-Objekt von der Bitmap erstellen
        Using Gra As Graphics = Graphics.FromImage(Bmp)
            ' Bildschirm in das Graphics-Objekt kopieren
            Gra.CopyFromScreen(0, 0, 0, 0, Bmp.Size)
        End Using

        ' Bitmap an Funktion übergeben
        Return Bmp
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

        PictureBox1.Image = MakeScreenShot()
    End Sub
End Class