Taskleiste ein-/ausblenden
16.09.2004 21:51:50
Matze
ich habe folgenden Code an verschiedenen Stellen (auch hier im Archiv) zum ein- und ausblenden der Taskleiste gefunden. Es funktioniert auch mit dem ein- und ausblenden. Allerdings habe ich gehofft, dass ich den frei werdenden Platz auf dem Bildschirm für Excel nutzen könnte. Dies ist bei mir leider nicht der Fall. Hat jemand eine gute Idee warum nicht? Nutze WinXP und im Code zusätzlich den Aufruf
Application.WindowState = xlMaximized
Auch ein manuelles vergrößern macht er nicht.
Wenn ich allerdings die Fixierung der Taskleiste aufhebe und sie manuell nach unten schiebe, funktioniert die Vollbilddarstellung.
mfg
Matze
'Zunächst die benötigten API-Deklarationen
Private Declare
Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare
Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
'Taskbar ausblenden
Sub HideTaskbar()
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", "")
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub
'Taskbar einblenden
Sub ShowTaskbar()
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", "")
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub