vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Verschiedenes / Sonstiges   |   VB-Versionen: VB4, VB5, VB601.11.00
Screenshots per Quellcode erstellen

Das Erstellen eines Screenshots ist mir herkömmlichen VB-Mitteln nicht möglich - hier erfahren Sie, wie es trotzdem geht.

Autor:   Dieter OtterBewertung:  Views:  32.114 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Haben auch Sie sich schon manchmal gefragt, wie man aus einer Visual-Basic Anwendung heraus Screenshots erstellen kann? Mit ein paar API-Befehlen zur Simulation der Druck-Taste ist dies ganz einfach zu realisieren. Wie möchten Ihnen hier eine Universalroutine zeigen, mit der Sie Bildschirmfotos (Screenshots) entweder für das aktuelle aktive Fenster oder für den gesamten Desktop (Bildschirmbereich) erstellen können.

' Hier alle benötigten API-Funktionen
 
Public Declare Sub keybd_event Lib "user32" _
  Alias "keybd_event" ( _
  ByVal bVk As Byte, _
  ByVal bScan As Byte, _
  ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)
 
' Die nachfolgende Prozedur erstellt das Screenshot
Public Sub MakeScreenshot(ByVal ActiveWindow As Boolean)
 
  ' Der Parameter ActiveWindow legt fest, ob ein Screenshot
  ' für das aktuelle Fenster (True) oder für gesamten 
  ' Windows-Desktop (False)erstellt werden soll
 
  Const KEYEVENTF_KEYUP = &H2
  Const VK_MENU = &H12
  Const VK_SNAPSHOT = &H2C
 
  If ActiveWindow Then keybd_event VK_MENU, 0, 0, 0 '' ALT-Taste
  keybd_event VK_SNAPSHOT, 0, 0, 0 '' Druck-Taste
  keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
  If ActiveWindow Then keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
  DoEvents
End Sub



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2021 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.