Taksleiste ausblenden zum 2. mal



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Taksleiste ausblenden zum 2. mal
von: Michael E
Geschrieben am: 13.05.2002 - 19:52:03

Hallo Excelianer und VBA-Spezialisten
1 Frage:
Wie kann man die Taskleiste per Makro ein und ausblenden.
Hat einer eine Idee
Vielen Dank im voraus für eure Mühe
Gruß Michael

Diese Frage stellte im am 11.5. um 7°°Uhr
Hajo hat mir zwar alle möglichen Formen aufgezeigt wie ich die Menüleiste ausblenden kann, wofür ich ihn herzlich danke aber ich meinte die Taskleiste womit man auch Windows beenden kann.
Hat einer eine Idee
Vielen Dank im voraus
Gruß Michael

nach oben   nach unten

Re: Taksleiste ausblenden zum 2. mal
von: guenter
Geschrieben am: 13.05.2002 - 21:07:52

hm...das geht so mit Api

Option Explicit

'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 As Long, ByVal 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


mfg guenter

nach oben   nach unten

Vielen Dank für die Lösung
von: Michael E
Geschrieben am: 13.05.2002 - 23:29:19

Hi guenter
Vielen Dank für die Lösung. Klappt super
Dir wünsche ich noch eine gute Nacht

Gruß Michael


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Taksleiste ausblenden zum 2. mal"