VB-Homepage Tipp 305

Alle geöffneten Anwendungen minimieren

Wenn Sie mal wieder Ordnung brauchen auf Ihrem Desktop,
weil gar zu viele Anwendungen geöffnet sind, dann werden Sie sicher
Klick mit rechter Maustaste auf die Taskleiste und im Kontext Menü den Eintrag
"Alle Fenster minimieren" auswählen.

Und genau das können Sie auch aus Ihrem VB-Programm heraus.

Allgemein/Deklarationen
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B

Basteln Sie nun einen CommandButton auf die Form und geben diesem im Click Event die Minimieranweisung.

Command1_Click
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)

Mehr braucht es nicht.


Tipp-Download

Quelle : Microsoft Knowledge Base

Zurück zur Übersichtsseite