-
does anybody know how to disable the auto hide property of the task bar on the desk top
my app has a full screen form that is supposed to prevent access to the desktop but if autohide is enabled , then the form does not do its job , because the (hidden) taskbar comes up when the mouse is moved to the bottom of the desktop.
plz help , i must submit this app to a magazine and i dont want a bug to ruin my reputation.
thanks
-
Why not just hide the taskbar all together?
Code:
Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Dim tray
Dim trayShow
Usage
Private Sub Command1_Click()
'Hide
tray = FindWindow("Shell_TrayWnd", vbNullString)
trayShow = ShowWindow(tray, SW_HIDE)
End Sub
Private Sub Command2_Click()
'Show
tray = FindWindow("Shell_TrayWnd", vbNullString)
trayShow = ShowWindow(tray, SW_SHOW)
End Sub
-
thanx man ,it works like a dream.
-
Change:
Dim tray
Dim trayShow
Private Sub Command1_Click()
'Hide
tray = FindWindow("Shell_TrayWnd", vbNullString)
trayShow = ShowWindow(tray, SW_HIDE)
End Sub
Private Sub Command2_Click()
'Show
tray = FindWindow("Shell_TrayWnd", vbNullString)
trayShow = ShowWindow(tray, SW_SHOW)
End Sub
To:
Dim tray&
Dim trayShow&
Private Sub Command1_Click()
'Hide
tray& = FindWindow("Shell_TrayWnd", vbNullString)
trayShow& = ShowWindow(tray, SW_HIDE)
End Sub
Private Sub Command2_Click()
'Show
tray& = FindWindow("Shell_TrayWnd", vbNullString)
trayShow& = ShowWindow(tray, SW_SHOW)
End Sub
Sorry bout that.
[Edited by Matthew Gates on 11-16-2000 at 04:16 PM]