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. |