把最小化图标放到任务栏右下角

---- 目 前 有 不 少Win95 应 用 程 序 在 最 小 化 后， 代 表 该 程 序 的 小 图 标 就 会 隐 藏 在 屏 幕 的 右 下 角（ 即 任 务 栏 的 右 边）， 如“ 金 山 词 霸”、“ 东 方 快 车” 等， 而 我 们 用Visual Basic 编 制 的 程 序 在 最 小 化 后， 图 标 却 总 是 出 现 在 任 务 栏 的 中 央， 并 且 占 据 较 大 的 空 间。 如 何 让 我 们 自 己 的 程 序 也 能 将 最 小 化 图 标 放 在 任 务 栏 的 右 边 呢 ？ 我 们 可 以 通 过Windows API 函 数 调 用 来 实 现 该 功 能。

一、 如 何 添 加 和 隐 藏 图 标
---- 在Windows 的 动 态 连 接 库Shell32.dll 中 有 一 个 名 为Shell_NotifyIconA 的Windows API 函 数， 其 功 能 是 对 任 务 栏 的 右 下 角 图 标 进 行 操 作， 包 括 添 加、 删 除 和 修 改。Shell_NotifyIconA 函 数 的VB 声 明 格 式 如 下：
---- Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As IntegerShell_NotifyIconA 有 两 个 参 数DwMessage 和lpData。DwMessage 为 操 作 图 标 的 方 式， 可 能 的 取 值 和 含 义 如 下：

---- ０（ 向 任 务 栏 添 加 图 标）
---- １（ 修 改 任 务 栏 中 的 图 标）
---- ２（ 删 除 任 务 栏 中 的 图 标）

---- lpData 是 自 定 义 数 据 类 型NOTIFYICONDATA 的 数 据， 该 自 定 义 数 据 结 构 由 以 下 成 员 构 成：

---- 1. cbSize： 需 填 写NOTIFYICONDATA 数 据 结 构 的 长 度， 在 使 用 时 可 通 过VB 的 标 准 函 数Len 来 计 算， 如nid 为NOTIFYICONDATA 类 型 的 变 量， 则cbSize 为Len(nid)。

---- 2. hWnd： 最 小 化 窗 体 的 句 柄。

---- 3. uID： 使 用 者 为 图 标 所 设 定 的 ID， 可 自 定。

---- 4. uFlags： 用 来 设 定 后 面 三 个 成 员(uCallbackMessage、hIcon、szTip) 是 否 有 效， 等 于 １ 时 为uCallbackMessage 有 效， 将 来 使 用 者 在 图 标 上 按 下 鼠 标 键 时， Windows 会 发 出 消 息 给 窗 体 程 序； 等 于 ２ 时 为hIcon 有 效， 表 示 要 显 示 图 标( 如 果 不 显 示 图 标， 用 户 只 是 无 法 看 见 图 标， 但 仍 然 可 在 任 务 栏 的 图 标 应 该 出 现 的 位 置 上 操 作)； 等 于 ４ 时 为szTip 有 效， 当 用 户 将 鼠 标 指 针 放 在 图 标 上 时， 要 显 示 提 示 信 息， 否 则 不 显 示。 通 常 将uFlags 设 定 成 ７（ 即 １ ＋ ２ ＋ ４）， 表 示 全 部 有 效。

---- 5. uCallbackMessage： 当 用 户 在 图 标 上 按 下 鼠 标 按 键 时，Windows 发 给 应 用 程 序 的 消 息 编 号。

---- 6. hIcon： 图 标 句 柄。

---- 7. szTip： 当 用 户 将 鼠 标 指 针 放 在 图 标 上 时 显 示 的 提 示 信 息。

---- 在 调 用Shell_NotifyIconA 函 数 之 前， 必 须 将NOTIFYICONDATA 类 型 变 量 的 以 上 各 成 员 填 写 正 确 的 内 容。

---- 该 函 数 如 果 调 用 成 功 则 返 回1， 否 则 返 回0。

---- 了 解 了Shell_NotifyIconA 函 数 的 功 能 和 用 法 后， 我 们 可 以 很 容 易 地 将 图 标 添 加 在 任 务 栏 的 右 边， 或 者 从 任 务 栏 上 将 图 标 删 除。

---- 如： 假 设 我 们 事 先 声 明 了 一 个NOTIFYICONDATA 型 的 变 量nid， 且 已 经 给 它 的 所 有 成 员 赋 予 了 合 适 的 值， 那 么， 下 面 的 两 条 语 句 分 别 可 完 成 添 加 和 删 除 图 标 的 任 务：

Shell_NotifyIconA( ０, nid) 　 　' 添加图标
Shell_NotifyIconA( ２, nid) ' 删除图标

二、 如 何 响 应 鼠 标 按 键
---- 按 照 上 面 的 方 法， 我 们 可 以 将 最 小 化 后 的 图 标 放 在 任 务 栏 的 右 边， 那 么 当 我 们 在 该 图 标 上 按 下 鼠 标 按 键 时 会 发 生 什 么 事 情 呢 ？ 很 遗 憾， 什 么 也 没 有 发 生， 最 小 化 的 窗 体 不 会 象 我 们 希 望 的 那 样 恢 复 正 常 显 示 状 态。
---- 这 时 怎 么 回 事 呢 ？ 很 简 单， 前 面 我 们 只 是 将 图 标 添 加 到 了 任 务 栏 上， 而 并 没 有 对 鼠 标 事 件 做 任 何 的 工 作， 为 了 对 鼠 标 按 键 作 出 响 应， 我 们 还 有 一 些 事 情 要 做。

---- 前 面 已 经 说 过， 如 果 将 将NOTIFYICONDATA 类 型 变 量 的 成 员uFlags 设 定 为1， 则 当 用 户 在 图 标 上 按 下 鼠 标 按 键 时，Windows 会 将 编 号 为uCallbackMessage 的 消 息 发 送 到 应 用 程 序， 因 此， 为 了 能 响 应 鼠 标 事 件， 我 们 必 须 在 程 序 中 对 该 消 息 进 行 处 理。

---- 需 要 注 意 的 是， 由 于Windows 自 身 的 消 息 处 理 机 制 的 限 制， 我 们 无 法 直 接 干 预Windows 的 自 身 消 息 处 理 过 程， 所 以 只 有 采 用 一 种 类 似 于 从 前DOS 环 境 下 截 获 中 断 的“ 曲 线 救 国“ 的 方 法 来 处 理 消 息， 过 程 是：

---- 在 窗 体 最 小 化 后， 立 即 读 取 该 窗 体 原 消 息 处 理 过 程 的 地 址 并 记 录 在 一 个 全 局 变 量 中， 方 法 是 调 用Windows API 函 数GetWindowLong， 其 声 明 如 下：

---- Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long 其 中hWnd 为 窗 体 句 柄，nIndex 为 过 程 类 型， 这 里 为-4（Windows 默 认 过 程）。

---- （2） 编 写 自 己 的 消 息 处 理 过 程， 注 意 参 数 的 数 量 和 类 型 必 须 按 照 下 面 的 格 式（ 过 程 名 可 随 意）：

---- Sub WndProcForIcon(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long)

---- （3） 将 自 己 的 消 息 处 理 过 程 设 置 为 默 认 的 消 息 处 理 程 序， 方 法 是 调 用Windows API 函 数SetWindowLong， 其 声 明 如 下：

---- Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有