Tipp 0049 Taskleiste aus-/einblenden
Autor/Einsender:
Datum:
  Detlev Schubert
01.05.2001
Entwicklungsumgebung:   VB 5
Bei der Spielprogrammierung ist es für anspruchsvolle Vollbildmodi oft unerlässlich die Taskleiste auszublenden. Mit zwei API-Funktionen und zwei Konstanten lässt sich dies durchführen, wobei mit der Konstante SWP_HIDEWINDOW die Taskleiste ausblendet, und mit SWP_SHOWWINDOW wieder angezeigt wird.
 
Option Explicit

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 Declare Function FindWindow Lib "user32" Alias _
      "FindWindowA" (ByVal lpClassName As String, ByVal _
      lpWindowName As String) As Long

Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 1
      Label1.ForeColor = &HC0&
      Label1.Caption = "Jetzt ist die Taskleiste ausgeblendet."
      Command1(1).Visible = False
      Ein_Aus SWP_HIDEWINDOW
    Case 2
      Label1.ForeColor = &H8000&
      Label1.Caption = _
          "Jetzt ist die Taskleiste wieder eingeblendet."
      Ein_Aus SWP_SHOWWINDOW
      Command1(1).Visible = True
    Case Else
      Unload Me
  End Select
End Sub

Private Sub Ein_Aus(Parameter As Long)
  Dim Result As Long

  Result = FindWindow("Shell_TrayWnd", "")
  SetWindowPos Result, 0, 0, 0, 0, 0, Parameter
End Sub
 
Weitere Links zum Thema
Bildschirmauflösung auslesen und setzen
Bildschirmauflösung ermitteln
Größe des Arbeitsbereiches ermitteln
Hinweis für VBA-Anwender
Mit kleinen Anpassungen bzgl. des CommandButton-Click-Ereignisses (in VBA gibt es keine Steuerelementfelder) funktioniert der hier abgebildete Code auch in einem VBA-Projekt. Dieser muss dazu in den VB-Editor der entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen *.frm-Datei ist nicht möglich.

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,5 kB) Downloads bisher: [ 2127 ]

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: Montag, 29. August 2011