Rubrik: Oberfläche · Fenster | VB-Versionen: VB6 | 14.12.11 |
Alle offenen Fenster minimieren Durch Simulieren der Tastenkombination Win+M lassen sich alle offenen Fenster per VB-Code minimieren. | ||
Autor: Dieter Otter | Bewertung: | Views: 10.444 |
www.tools4vb.de | System: WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Echte Windows-User kennen sicherlich die Tastenkombination Win+M, mit der sich schnell alle geöffneten Fenster minimieren lassen.
Mit nachfolgendem Tipp lässt sich genau das auch aus der eigenen Anwendung heraus erledigen. Hierzu simulieren wir einfach besagte Tastenkombination.
Option Explicit ' benötigte API-Deklarationen Private Declare Sub keybd_event Lib "user32.dll" ( _ ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) Private Const KEYEVENTF_KEYUP As Long = &H2& Private Const VK_LWIN As Long = &H5B&
' Minimiert alle angezeigten Fenster Public Sub MinimizeAllWindows() ' Tastenkombination WIN+M simulieren Call keybd_event(VK_LWIN, 0&, 0&, 0&) Call keybd_event(vbKeyM, 0&, 0&, 0&) Call keybd_event(vbKeyM, 0&, KEYEVENTF_KEYUP, 0&) Call keybd_event(VK_LWIN, 0&, KEYEVENTF_KEYUP, 0&) End Sub