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.795 mal aufgerufen.
Anzeige
![]() ![]() ![]() (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! sevPopUp 2.0 ![]() Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. 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. |