VB显示/隐藏任务栏

Eddy 发布于2009-11-5 18:40:1 分类: 程序设计已浏览loading次网友评论0条 我要评论

源代码：

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'说明
'寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）
'返回值
'Long，找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
'参数表
'参数类型及说明
'lpClassName String，指向包含了窗口类名的（C语言）字串的指针；或设为零，表示接收任何类
'lpWindowName String，指向包含了窗口文本（或标签）的（C语言）字串的指针；或设为零，表示接收任何窗口标题
'注解
'很少要求同时按类与窗口名搜索。为向自己不准备参数传递一个零，最简便的办法是传递vbNullString常数
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
'说明
'控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）
'返回值
'Long，如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）
'参数表
'参数类型及说明
'hwnd Long，窗口句柄，要向这个窗口应用由nCmdShow指定的命令
'nCmdShow Long，为窗口指定可视性方面的一个命令。请用下述任何一个常数
'SW_HIDE 隐藏窗口，活动状态给令一个窗口
'SW_MINIMIZE 最小化窗口，活动状态给令一个窗口
'SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态
'SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态
'SW_SHOWMAXIMIZED 最大化窗口，并将其激活
'SW_SHOWMINIMIZED 最小化窗口，并将其激活
'SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口
'SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口
'SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口
'SW_SHOWNORMAL 与SW_RESTORE相同
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0
Private Sub Command1_Click() '隐藏任务栏
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", "")
Call ShowWindow(hWnd, SW_HIDE)
End Sub
Private Sub Command2_Click() '显示任务栏
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", "")
ShowWindow hWnd, SW_SHOW
End Sub