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
 
Weitere Links zum Thema
Anwendung als Icon im SystemTray

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: [ 1232 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 4. September 2011