1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
''' <summary>
''' Ermittelt die aktuelle Bildschirmgroesse
'''
''' Unter Location wird der Speicherort des Screenshots angegeben
''' incl. des Dateinamens angegeben
'''
''' </summary>
''' <param name="Location"></param>
''' <returns></returns>
''' <remarks></remarks>
Function ScreenToPicture(ByVal Location As String) As String
Try
Dim currentScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim ScreenToBitmap As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim gGraphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ScreenToBitmap)
gGraphics.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreenSize)
ScreenToBitmap.Save(Location)
Return Location
Catch ex As Exception
Return ex.Message
End Try
End Function
|