如何能够禁止windows的任务栏出现.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 23 行

可 以 使 用 FindWindow和 ShowWindow来 控 制 任 务 栏 。 下 面 给 出 一 个 例 子 程 序 。 首 先 建 立 一 个 窗 体 和 两 个 按 钮 。 在 窗 体 声 明 部 分 输 入 如 下 定 义 ： 
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Any) As Long 
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 
    Const SW_HIDE = 0 
    Const SW_SHOWNORMAL = 1 
    然 后 在 按 钮 的 事 件 中 输 入 如 下 代 码 ： 
    Private Sub Command1_Click() 
     Dim hTaskBar As Integer 
     
     hTaskBar = FindWindow("Shell_TrayWnd", 0&) 
     ShowWindow hTaskBar, SW_HIDE 
    End Sub 
     
    Private Sub Command2_Click() 
     Dim hTaskBar As Integer 
     
     hTaskBar = FindWindow("Shell_TrayWnd", 0&) 
     ShowWindow hTaskBar, SW_SHOWNORMAL 
    End Sub 
    你 按 Command1将 隐 藏 任 务 栏 ， 而 按 Command2将 显 示 任 务 栏 。 
    另 外 ， 还 有 一 个 办 法 可 以 使 VB的 窗 体 可 以 遮 住 任 务 栏 。 你 可 以 在 设 计 时 将 窗 体 的 WindowState属 性 设 为 2， MaxButton设 为 False。 这 样 ， 你 的 程 序 运 行 时 ， 窗 体 会 遮 住 任 务 栏 ， 即 使 任 务 条 被 设 置 为 "总 在 最 前 "。 这 本 是 VB的 一 个 Bug， 但 可 能 更 适 合 于 有 些 程 序 ， 如 屏 幕 保 护 程 序 。 
    上 面 的 两 个 办 法 都 存 在 一 个 问 题 ， 就 是 用 户 按 Ctrl-Esc或 Windows键 就 会 出 现 任 务 条 。 如 果 要 想 屏 蔽 掉 Ctrl-Esc键 ， 除 了“如何制作LoadResPicture之类的函数对应的*.res文件”所 说 的 办 法 ， 还 可 以 使 用 RegisterHotkey键 或 截 取 WM_SYSCOMMAND消 息 来 屏 蔽 掉 这 两 个 系 统 键 ， 不 过 这 两 种 方 法 更 适 合 C语 言 来 实 现 ， 而 不 是 VB。 
<END>