Screenshot des Desktops erstellen und speichern Verfasst am: 18.06.2009, 17:34
Beschreibung: Mit dieser Funktion könnt ihr ein Screenshot des Desktops erstellen und anschliessend speichern. Es wird nur das Framework verwendet und keine API aufgerufen.
Funktion: Zu beachten ist, dass ein Bitmap zurückgegeben wird, d.h ihr müsst das Bild selber speichern.
Code:
Private Function make_screenshot() As Bitmap<br /> Dim iWidth As Integer = Screen.PrimaryScreen.Bounds.Width<br /> Dim iHeight As Integer = Screen.PrimaryScreen.Bounds.Height<br /><br /> make_screenshot = New Bitmap(iWidth, iHeight)<br /> Dim grTemp As Graphics = Graphics.FromImage(make_screenshot)<br /> grTemp.CopyFromScreen(0, 0, 0, 0, New Size(iWidth, iHeight))<br /><br /> Return make_screenshot<br /> End Function
Beispiel:
Code:
Dim picScreen As Bitmap = make_screenshot()<br /><br /> picScreen.Save("c:screen.png", Imaging.ImageFormat.Png)