[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 4385
  • Last Modified:

ShowWindow(FindWindow("SHELL_TRAYWND", ""), SW_HIDE)

I found some code to hide the taskbar, but I get error
file not found "shell_traywnd", how can I fix this or
code to hide and re-enable the taskbar in Vb5 /win 95
much appreciated
0
josmic
Asked:
josmic
  • 3
  • 3
1 Solution
 
bin_huwairibCommented:
josmic,

Try the following code:

Dim hwnd1 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 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

Private Sub Command1_Click()
 hwnd1 = FindWindow("Shell_traywnd", "")
 Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

Private Sub Command2_Click()
 Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub


Best regards
Bin Huwairib
0
 
josmicAuthor Commented:
bin huwairib
I cant seem to enable the task bar back, think I quit between
disable and enable attemps, if that has anything to do with it.

0
 
bin_huwairibCommented:
josmic,

You have to show the task bar before quiting otherwise it will remain invisible.


Best regards
Bin Huwairib
0
Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

 
josmicAuthor Commented:
rebooting to text
0
 
bin_huwairibCommented:
What do you mean by "rebooting to text"?
0
 
josmicAuthor Commented:
I meant to say "test" lost my taskbar, works great
thanks so much.

josmic

0

Featured Post

Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now