Task Bar Problem
While I would personally recommend against doing this (changing the
environment is problematic especially if the code crashes) here is some code
to hide and unhide the task bar. Place it in a standard code module...
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Sub TaskBar(blnValue As Boolean)
Dim lngHandle As Long
Dim lngStartButton As Long
lngHandle = FindWindow("Shell_TrayWnd", "")
If blnValue Then
ShowWindow lngHandle, 5
Else
ShowWindow lngHandle, 0
End If
End Sub
Private Sub Cmdhide_Click()
TaskBar (False)
End Sub
Private Sub Cmdunhide_Click()
TaskBar (True)
End Sub
--
HTH...
Jim Thomlinson
"basketcase63" wrote:
Is there a way to permanently hide the taskbar and have it appear only with a
series of control keys?
|