Microsoft Excel

Herbers Excel/VBA-Archiv

API-Funktion Taskleiste

Betrifft: API-Funktion Taskleiste von: Dr.
Geschrieben am: 18.08.2004 09:00:25

Moin zusammen,

eigentlich wollte ich ja die Finger davon lassen, aber die guten Vorsätze...

Kann mir jemand eine API-Routine zum Ausblenden bzw. Wiedereinblenden der Windows-Taskleiste nennen? Gestaltet sich der Einbau in ein VBA-Projekt identisch oder ist sonst etwas besonderes zu beachten?

Danke im voraus!

  


Betrifft: AW: API-Funktion Taskleiste von: K.Rola
Geschrieben am: 18.08.2004 10:50:15

Hallo,

der Code gehört in ein Standardmodul:

Option Explicit
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
Dim hWnd As Long

Sub Taskleiste_ein()
hWnd = FindWindow("Shell_TrayWnd", "")
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, 64)
End Sub


Sub Taskleiste_aus()
hWnd = FindWindow("Shell_TrayWnd", "")
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, 128)
End Sub


Gruß K.Rola


  


Betrifft: AW: API-Funktion Taskleiste von: K.Rola
Geschrieben am: 18.08.2004 10:52:47

Hallo,

das Private Declare Function gehört alles hintereinander, warum das hier nicht korrekt
dargestellt wird, keine Ahnung.

Gruß K.Rola


  


Betrifft: AW: API-Funktion Taskleiste - GESCHLOSSEN von: Dr.
Geschrieben am: 18.08.2004 11:34:06

Hi K.Rola,

vielen Dank dafür!