This tip demonstrates how to hide
and show the Windows taskbar.
Declarations
You just copy this code into the
declarations section of your project.
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
Declare Function FindWindow Lib "user32"
Alias _
"FindWindowA" (ByVal lpClassName As String,
ByVal _
lpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW =
&H40
Code
to Hide the Taskbar
Dim Thwnd as Long
Thwnd = FindWindow("Shell_traywnd",
"")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0,
SWP_HIDEWINDOW)
Code
to Show the Taskbar
Dim Thwnd as Long
Thwnd = FindWindow("Shell_traywnd",
"")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
|