Hi, ich habe zwei Formen. Form1 mit einem Button. Beim Klick auf den Button geht auf Screen2 eine Vollbildform (Form2) auf, die folgenden Code aufweist:
Nun ist es so, dass nicht der vollständige Screen1 in dem Bild angezeigt wird. Beim Speichern des Screenshots ist es ebenfalls so. Daher gehe ich davon aus, dass die Screenshot-Erstellung schon irgendwie falsch ist. Allerdings komme ich seit Stunden nicht auf die Lösung. Hat jemand eine Idee?
VB.NET-Quellcode
- Public Class frmAusgabe
- Dim screenshot As System.Drawing.Bitmap
- Dim graph As Graphics
- Dim screen1, screen2 As Screen
- Public Sub frmAusgabe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Dim screen1, screen2 As Screen
- screen1 = Screen.PrimaryScreen
- screen2 = Screen.AllScreens(1)
- Me.Width = screen2.Bounds.Width
- Me.Height = screen2.Bounds.Height
- PicBox.Width = Me.Width
- PicBox.Height = Me.Height
- timerCapturing.Enabled = True
- End Sub
- Public Sub timerCapturing_Tick(sender As Object, e As EventArgs) Handles timerCapturing.Tick
- screenshot = New System.Drawing.Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
- graph = Graphics.FromImage(screenshot)
- graph.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
- 'Cursor.Draw(graph, New Rectangle(New Point(Cursor.Position.X - Cursor.HotSpot.X, Cursor.Position.Y - Cursor.HotSpot.Y), Cursor.Size))
- PicBox.Image = screenshot
- 'screenshot.Save("C:\Users\Testkuebel\Desktop\test.jpg", Imaging.ImageFormat.Jpeg)
- End Sub
- End Class
Nun ist es so, dass nicht der vollständige Screen1 in dem Bild angezeigt wird. Beim Speichern des Screenshots ist es ebenfalls so. Daher gehe ich davon aus, dass die Screenshot-Erstellung schon irgendwie falsch ist. Allerdings komme ich seit Stunden nicht auf die Lösung. Hat jemand eine Idee?