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

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 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>