156.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

隐藏Win95任务栏   
 
作者：Showje

显示、隐藏win95任务栏

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_SHOW = 5
Public Const SW_HIDE = 0

Private hwnd5 as Long

hwnd5 = FindWindow("Shell_traywnd","")
Call ShowWindow(hwnd5, SW_HIDE) '隐藏任务栏

Call ShowWindow(hwnd5, SW_SHOW) '显示任务栏

　　这不是一个好的方式，如果你将任务栏隐藏了，但没有将之再显示出来，那我们只有重新启动才能使之重现，当用户发现叫不出任务栏时，他可能会很恼火。