Hallo Leute,
ich möchte einen Screenshot meiner Form machen und diese in die Zwischenablage kopieren.
Das geht grundsätzlich, aber nicht so sauber wie ich das gerne hätte.
Dieser Code macht einen Screenshot der kompletten Form inkl. Fenstertitel und Rahmen, aber auch inkl. der bei Windows 10 und Windows 11 typischen Fensterschatten:
Dieser Code macht nur einen Screenshot ohne Fenstertitel und ohne Rahmen:
Grundsätzlich gefällt mir die zweite Variante ohne Rahmen besser.
Ich habe auch schon herausgefunden wie ich die Fensterhöhe ermittle:
Nun bin ich aber noch nicht draufgekommen, wie ich den Screenshot um die Höhe des FensterTitels weiter oben beginnen kann. Also wie ich die Position nach oben verschieben kann. Es muss ja in diesem Codeteil subtrahiert werden:
Wie mache ich das Codetechnisch, dass ich da den
LG Roland
ich möchte einen Screenshot meiner Form machen und diese in die Zwischenablage kopieren.
Das geht grundsätzlich, aber nicht so sauber wie ich das gerne hätte.
Dieser Code macht einen Screenshot der kompletten Form inkl. Fenstertitel und Rahmen, aber auch inkl. der bei Windows 10 und Windows 11 typischen Fensterschatten:
VB.NET-Quellcode
- Using bmp As New Drawing.Bitmap(meForm.Size.Width, meForm.Size.Height)
- Using img As Drawing.Graphics = Drawing.Graphics.FromImage(bmp)
- img.CopyFromScreen(New Drawing.Point(meForm.Location.X, meForm.Location.Y), New Drawing.Point(0, 0), meForm.Size, CopyPixelOperation.SourceCopy)
- End Using
- Clipboard.SetImage(bmp)
- End Using
Dieser Code macht nur einen Screenshot ohne Fenstertitel und ohne Rahmen:
Grundsätzlich gefällt mir die zweite Variante ohne Rahmen besser.
Ich habe auch schon herausgefunden wie ich die Fensterhöhe ermittle:
Dim FensterTitelHoehe As Integer = SystemInformation.ToolWindowCaptionHeight
Nun bin ich aber noch nicht draufgekommen, wie ich den Screenshot um die Höhe des FensterTitels weiter oben beginnen kann. Also wie ich die Position nach oben verschieben kann. Es muss ja in diesem Codeteil subtrahiert werden:
Wie mache ich das Codetechnisch, dass ich da den
Y-Point
um FensterTitelHoehe
verringere?LG Roland
Liebe Grüße
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dive26“ ()