Weiß jemand wie ich da weiterkomme?
ein Hallozu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen.
folgendes stand mal in einem Forum
Taskleiste ausblenden
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 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
Von Michaek E
Gruß Hajo