Alle offenen Fenster minimieren Durch Simulieren der Tastenkombination Win+M lassen sich alle offenen Fenster per VB-Code minimieren.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  10.695
www.tools4vb.de	System:  WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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