Heute möchten wir Ihnen eine Funktion vorstellen, mit der sich der Desktop oder alterntiv auch der Fensterinhalt des aktiven Fensters "fotografieren" und als Bild abspeichern lässt. Hierzu simulieren wir zunächst das Drücken der PrintScreen-Taste, lesen dann das Bild aus der Zwischenablage aus und speichern es als Bitmap ab. Option Explicit ' zunächst die benötigten API-Deklarationen Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) ' Screenshot erstellen und ggf. als Bitmap speichern Private Sub DoSnapshot(Optional ByVal bActiveWindow As Boolean = False, _ Optional ByVal sFile As String = "") ' Der Parameter bActiveWindow legt fest, ob ein Screenshot ' für das aktuelle Fenster (True) oder für gesamten ' Windows-Desktop (False)erstellt werden soll ' Wird für "sFile" ein Dateiname angegeben wird der ' Screenshot sofort als Bitmap gespeichert Const KEYEVENTF_KEYUP = &H2 Const VK_MENU = &H12 Const VK_SNAPSHOT = &H2C ' Screenshot erstellen ... If bActiveWindow 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 bActiveWindow Then keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0 DoEvents ' ... und als Bild speichern If sFile <> "" Then SavePicture Clipboard.GetData, sFile End If End Sub Beispiel für den Aufruf: ' Destkop als Bild speichern DoSnapshot , "d:\desktop,bmp" ' Aktives Fenster als Bild speichern DoSnapshot True, "d:\window,bmp" Dieser Tipp wurde bereits 33.572 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |