![]() |
Tipp 0223
|
Minimieren aller Fenster
|
 |
|
Autor/Einsender: Datum: |
|
Peter Wagenbauer 09.04.2002 |
|
Entwicklungsumgebung: |
|
VB 5 |
|
|
Mit einem Klick mit der rechten Maustaste auf eine freie Stelle der Taskleiste kann man "Alle Fenster minimieren" bzw. auch mit "Alles minimieren rückgängig machen" die ursprüngliche Ansicht wiederherstellen. Dieser Tipp zeigt, wie diese
Funktion auch mit VB möglich ist.
|
|
|
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_COMMAND = &H111
Const MIN_ALL = 419
Const MIN_ALL_UNDO = 416
Private Sub cmdMinAll_Click()
Dim lHandle As Long
lHandle = FindWindow("Shell_TrayWnd", vbNullString)
Call PostMessage(lHandle, WM_COMMAND, MIN_ALL, 0&)
End Sub
Private Sub cmdMinUndo_Click()
Dim lHandle As Long
lHandle = FindWindow("Shell_TrayWnd", vbNullString)
Call PostMessage(lHandle, WM_COMMAND, MIN_ALL_UNDO, 0&)
End Sub
|
|
|
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (2,4 kB)
|
Downloads bisher: [ 1308 ]
|
|
|