Tipp 4.4 - Sichtbarkeit der Taskbar

Wie kann ich die Sichtbarkeit der Taskbar ein und ausschalten?

Mit dieser Funktion können Sie die Sichtbarkeit der Taskbar ein und ausschalten. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: FindWindow, ShowWindow

Beispiel:

Option Explicit
 
Public Declare Function FindWindow _
    Lib "user32" Alias _
    "FindWindowA" _
    (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow _
    Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
 
Public Function TaskbarVisible( _
                bState As Boolean) _
                As Boolean
  '// -----------------------------------------------------
  '// Methode:  | Sichtbarkeit der Taskbar ein-/ausschalten
  '// -----------------------------------------------------
  '// Parameter:| bState/True = sichtbar, sonst unsichtbar
  '// -----------------------------------------------------
  '// Rückgabe: | True bei Erfolg
  '// -----------------------------------------------------
  '// Autor:    | Stefan Kulpa
  '//           | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Const SW_HIDE = 0
  Const SW_SHOW = 5
  Dim lHandle As Long
  Dim lResult As Long
  lHandle = FindWindow("Shell_traywnd", vbNullString)
  If lHandle <> 0 Then
    If bState = True Then
      lResult = ShowWindow(lHandle, SW_SHOW)
      TaskbarVisible = (lResult = 0)
    Else
      lResult = ShowWindow(lHandle, SW_HIDE)
      TaskbarVisible = (lResult <> 0)
    End If
  End If
 
End Function


Zurück Tipp 4.3 - Schriftart deregistrieren | Inhalt | Tipp 4.5 - Systemklang Weiter