---- 目 前 有 不 少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
---- 其 中hWnd 与nIndex 含 义 同 上，dwNewLong 为 自 定 义 过 程 的 地 址， 可 使 用VB 的 求 地 址 运 算 符AddressOf 得 到， 如AddressOf WndProcForIcon 可 得 到 自 定 义 过 程WndProcForIcon 的 地 址。
---- （4） 当 鼠 标 事 件 发 生 后， 自 己 的 消 息 处 理 过 程（ 现 在 已 成 为 默 认 的 消 息 处 理 过 程） 首 先 进 行 处 理， 一 般 是 根 据 按 键 将 窗 体 恢 复 或 弹 出 一 个PopUp 菜 单 供 用 户 选 择。
---- （5） 让Windows 去 执 行 原 消 息 处 理 过 程（ 该 过 程 的 地 址 由 全 局 变 量 保 存）， 方 法 是 调 用Windows API 函 数CallWindowProc， 其 声 明 如 下：
---- Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
---- 其 中lpPrevWndFunc 为 原 消 息 处 理 程 序 的 地 址， 其 它 参 数 与 自 定 义 消 息 处 理 过 程 中 的 参 数 相 对 应。
---- 细 心 的 读 者 一 定 会 发 现， 如 果 在 上 述 第3 步 完 成 后， 没 有 进 行 第5 步， 即： 使 用setWindowLong 改 变 了 原 先 消 息 处 理 程 序 的 地 址， 却 没 有 在 程 序 结 束 前 将 地 址 设 定 回 来， 那 程 序 将 不 会 正 常 结 束， 往 往 会 造 成 死 机， 因 此， 程 序 中 一 定 要 小 心 处 理 这 个 问 题。
---- 另 外， 为 了 正 确 的 处 理 消 息， 还 有 一 个 问 题 需 要 解 决， 就 是 如 何 识 别 消 息 是 否 是 由 图 标 发 出 的 ？ 这 一 点 可 以 这 样 解 决： 利 用 一 个 全 局 变 量 记 录 下NOTIFYICONDATA 型 变 量 的 成 员uCallbackMessage（ 消 息 号） 的 值， 然 后 在 消 息 处 理 程 序 中 检 查Windows 传 回 的 消 息 号（MsgNo） 是 否 与 其 一 致， 如 果 一 致， 则 说 明 消 息 的 确 是 由 图 标 发 出 的， 应 该 进 行 处 理， 否 则 即 可 忽 略。 如 本 文 后 面 的 程 序 实 例 就 用 全 局 变 量IconMsg 来 实 现 这 一 功 能（ 具 体 请 参 照 程 序 代 码）。
三、 程 序 实 例
---- 下 面， 我 们 通 过 一 个 简 单 的 实 例 来 实 现 上 述 方 法：
---- 1、 窗 体 布 局
---- 新 建 一 个 工 程IconTest， 新 建 一 个 标 准 窗 体frmIconTest， 在 窗 体 上 放 置 三 个 命 令 按 钮， 名 称（Name） 分 别 为cmdCreateIcon、cmdNormalMin 和cmdExit， 标 题（Caption） 分 别 为“ 最 小 化 到 右 下 角”、“ 普 通 最 小 化” 和“ 退 出”。
---- 2、 代 码
---- 添 加 一 个 模 块modIconTest， 在 其 中 编 写 如 下 的 代 码：
Option Explicit
'定义常量
Public Const GWL_WNDPROC = (-4)
Public Const WM_LBUTTONDOWN = &H201
Public Const NIM_ADD = 0
Public Const NIM_DELETE = 2
Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4
'定义全局变量
Public IconMsg As Long '消息编号
Public OldWinProc As Long '原消息处理程序的地址
'定义自定义数据类型
Public Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
'Windows API函数声明
Declare Function CallWindowProc Lib "user32" Alias
"CallWindowProcA" (ByVal lpPrevWndFunc As Long,
ByVal hWnd As Long, ByVal Msg As Long, ByVal
wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowLong Lib "user32"
Alias "GetWindowLongA" (ByVal hWnd As Long,
ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex
As Long, ByVal dwNewLong As Long) As Long
Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal
dwMessage As Long, lpData As NOTIFYICONDATA) As Integer
'自定义消息处理程序
Sub MyProc(ByVal hWnd As Long, ByVal Msg As Long,
ByVal wParam As Long, ByVal lParam As Long)
'根据Msg判断，消息是否是图标发出的，
如果是，再进行处理
If Msg = IconMsg Then
If lParam = WM_LBUTTONDOWN Then
frmIconTest.Show '如果在图标上按
下了左键则显示窗体
End If
End If
'执行全程变量OldWinProc记录的原
消息处理程序的地址中的消息处理程序
CallWindowProc OldWinProc, hWnd, Msg, wParam, lParam
End Sub
在frmIconTest的窗体模块中编写如下代码：
Option Explicit
Dim HadAdd As Boolean
Dim nid As NOTIFYICONDATA
Private Sub cmdEnd_Click()
If HadAdd Then
'如果曾向右下角添加过小图标
'则根据事先记录的OldWinProc
恢复原来的消息处理程序，并删除图标
SetWindowLong frmIconTest.hWnd,
GWL_WNDPROC, OldWinProc
Call Shell_NotifyIconA(NIM_DELETE, nid)
'删除图标
End If
Unload Me '卸载窗体
End Sub
Private Sub cmdCreateIcon_Click()
If Not HadAdd Then
'如果没有产生过图标，则添加图标到右下角
With nid
'以下填写nid变量的所有成员
.cbSize = Len(nid) '填写自定义数据类型的长度
.hWnd = frmIconTest.hWnd '填写窗体的句柄
.uID = 9999 '图标的Id，可随意
'允许显示图标、提示并产生消息
.uFlags = NIF_ICON + NIF_TIP + NIF_MESSAGE
.hIcon = frmIconTest.Icon.Handle '图标句柄
.szTip = "单击鼠标左键恢复窗体！" '提示信息
.uCallbackMessage = 2 '图标的消息号
End With
Shell_NotifyIconA NIM_ADD, nid '添加图标
IconMsg = nid.uCallbackMessage
'用全局变量记录消息号，
'读取frmIconTest正常的消息处理程序
的地址保存在全程变量OldWinProc中
OldWinProc = GetWindowLong(frmIconTest.hWnd,
GWL_WNDPROC)
'用自定义过程MyProc的地址
代替正常消息处理程序的地址
SetWindowLong frmIconTest.hWnd,
GWL_WNDPROC, AddressOf MyProc
frmIconTest.Hide '隐藏窗体
HadAdd = True '置“已经添加图标”标志
Else
frmIconTest.Hide '如果已经有小图标了，
则直接隐藏窗体
End If
End Sub
Private Sub cmdNormalMin_Click()
frmIconTest.WindowState = 1 '普通最小化窗体
End Sub
Private Sub Form_Load()
HadAdd = False '将“是否添加了图标的标志”置为False
'下面为窗体装载图标，读者应当根据自己的VB目录而定
frmIconTest.Icon= oadPicture("c:\MyIcon\files10.ico")
End Sub
---- 按 下F5， 执 行 本 程 序， 单 击“ 最 小 化 到 右 下 角” 按 钮， 窗 体 将 消 失， 同 时 任 务 栏 的 右 边 出 现 代 表 窗 体 的 图 标（ 如 图2）， 在 该 图 标 上 单 击 鼠 标 左 键， 窗 体 恢 复 正 常。 再 单 击“ 普 通 最 小 化 图 标” 按 钮， 你 会 看 到 窗 体 虽 然 也 消 失 了， 但 最 小 化 图 标 在 任 务 栏 的 中 间， 即 普 通 位 置（ 如 图3）。
---- 本 程 序 用VB5 编 制， 在Pwin95 下 调 试 正 常。
一、 如 何 添 加 和 隐 藏 图 标
---- 在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
---- 其 中hWnd 与nIndex 含 义 同 上，dwNewLong 为 自 定 义 过 程 的 地 址， 可 使 用VB 的 求 地 址 运 算 符AddressOf 得 到， 如AddressOf WndProcForIcon 可 得 到 自 定 义 过 程WndProcForIcon 的 地 址。
---- （4） 当 鼠 标 事 件 发 生 后， 自 己 的 消 息 处 理 过 程（ 现 在 已 成 为 默 认 的 消 息 处 理 过 程） 首 先 进 行 处 理， 一 般 是 根 据 按 键 将 窗 体 恢 复 或 弹 出 一 个PopUp 菜 单 供 用 户 选 择。
---- （5） 让Windows 去 执 行 原 消 息 处 理 过 程（ 该 过 程 的 地 址 由 全 局 变 量 保 存）， 方 法 是 调 用Windows API 函 数CallWindowProc， 其 声 明 如 下：
---- Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
---- 其 中lpPrevWndFunc 为 原 消 息 处 理 程 序 的 地 址， 其 它 参 数 与 自 定 义 消 息 处 理 过 程 中 的 参 数 相 对 应。
---- 细 心 的 读 者 一 定 会 发 现， 如 果 在 上 述 第3 步 完 成 后， 没 有 进 行 第5 步， 即： 使 用setWindowLong 改 变 了 原 先 消 息 处 理 程 序 的 地 址， 却 没 有 在 程 序 结 束 前 将 地 址 设 定 回 来， 那 程 序 将 不 会 正 常 结 束， 往 往 会 造 成 死 机， 因 此， 程 序 中 一 定 要 小 心 处 理 这 个 问 题。
---- 另 外， 为 了 正 确 的 处 理 消 息， 还 有 一 个 问 题 需 要 解 决， 就 是 如 何 识 别 消 息 是 否 是 由 图 标 发 出 的 ？ 这 一 点 可 以 这 样 解 决： 利 用 一 个 全 局 变 量 记 录 下NOTIFYICONDATA 型 变 量 的 成 员uCallbackMessage（ 消 息 号） 的 值， 然 后 在 消 息 处 理 程 序 中 检 查Windows 传 回 的 消 息 号（MsgNo） 是 否 与 其 一 致， 如 果 一 致， 则 说 明 消 息 的 确 是 由 图 标 发 出 的， 应 该 进 行 处 理， 否 则 即 可 忽 略。 如 本 文 后 面 的 程 序 实 例 就 用 全 局 变 量IconMsg 来 实 现 这 一 功 能（ 具 体 请 参 照 程 序 代 码）。
三、 程 序 实 例
---- 下 面， 我 们 通 过 一 个 简 单 的 实 例 来 实 现 上 述 方 法：
---- 1、 窗 体 布 局
---- 新 建 一 个 工 程IconTest， 新 建 一 个 标 准 窗 体frmIconTest， 在 窗 体 上 放 置 三 个 命 令 按 钮， 名 称（Name） 分 别 为cmdCreateIcon、cmdNormalMin 和cmdExit， 标 题（Caption） 分 别 为“ 最 小 化 到 右 下 角”、“ 普 通 最 小 化” 和“ 退 出”。
---- 2、 代 码
---- 添 加 一 个 模 块modIconTest， 在 其 中 编 写 如 下 的 代 码：
Option Explicit
'定义常量
Public Const GWL_WNDPROC = (-4)
Public Const WM_LBUTTONDOWN = &H201
Public Const NIM_ADD = 0
Public Const NIM_DELETE = 2
Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4
'定义全局变量
Public IconMsg As Long '消息编号
Public OldWinProc As Long '原消息处理程序的地址
'定义自定义数据类型
Public Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
'Windows API函数声明
Declare Function CallWindowProc Lib "user32" Alias
"CallWindowProcA" (ByVal lpPrevWndFunc As Long,
ByVal hWnd As Long, ByVal Msg As Long, ByVal
wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowLong Lib "user32"
Alias "GetWindowLongA" (ByVal hWnd As Long,
ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex
As Long, ByVal dwNewLong As Long) As Long
Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal
dwMessage As Long, lpData As NOTIFYICONDATA) As Integer
'自定义消息处理程序
Sub MyProc(ByVal hWnd As Long, ByVal Msg As Long,
ByVal wParam As Long, ByVal lParam As Long)
'根据Msg判断，消息是否是图标发出的，
如果是，再进行处理
If Msg = IconMsg Then
If lParam = WM_LBUTTONDOWN Then
frmIconTest.Show '如果在图标上按
下了左键则显示窗体
End If
End If
'执行全程变量OldWinProc记录的原
消息处理程序的地址中的消息处理程序
CallWindowProc OldWinProc, hWnd, Msg, wParam, lParam
End Sub
在frmIconTest的窗体模块中编写如下代码：
Option Explicit
Dim HadAdd As Boolean
Dim nid As NOTIFYICONDATA
Private Sub cmdEnd_Click()
If HadAdd Then
'如果曾向右下角添加过小图标
'则根据事先记录的OldWinProc
恢复原来的消息处理程序，并删除图标
SetWindowLong frmIconTest.hWnd,
GWL_WNDPROC, OldWinProc
Call Shell_NotifyIconA(NIM_DELETE, nid)
'删除图标
End If
Unload Me '卸载窗体
End Sub
Private Sub cmdCreateIcon_Click()
If Not HadAdd Then
'如果没有产生过图标，则添加图标到右下角
With nid
'以下填写nid变量的所有成员
.cbSize = Len(nid) '填写自定义数据类型的长度
.hWnd = frmIconTest.hWnd '填写窗体的句柄
.uID = 9999 '图标的Id，可随意
'允许显示图标、提示并产生消息
.uFlags = NIF_ICON + NIF_TIP + NIF_MESSAGE
.hIcon = frmIconTest.Icon.Handle '图标句柄
.szTip = "单击鼠标左键恢复窗体！" '提示信息
.uCallbackMessage = 2 '图标的消息号
End With
Shell_NotifyIconA NIM_ADD, nid '添加图标
IconMsg = nid.uCallbackMessage
'用全局变量记录消息号，
'读取frmIconTest正常的消息处理程序
的地址保存在全程变量OldWinProc中
OldWinProc = GetWindowLong(frmIconTest.hWnd,
GWL_WNDPROC)
'用自定义过程MyProc的地址
代替正常消息处理程序的地址
SetWindowLong frmIconTest.hWnd,
GWL_WNDPROC, AddressOf MyProc
frmIconTest.Hide '隐藏窗体
HadAdd = True '置“已经添加图标”标志
Else
frmIconTest.Hide '如果已经有小图标了，
则直接隐藏窗体
End If
End Sub
Private Sub cmdNormalMin_Click()
frmIconTest.WindowState = 1 '普通最小化窗体
End Sub
Private Sub Form_Load()
HadAdd = False '将“是否添加了图标的标志”置为False
'下面为窗体装载图标，读者应当根据自己的VB目录而定
frmIconTest.Icon= oadPicture("c:\MyIcon\files10.ico")
End Sub
---- 按 下F5， 执 行 本 程 序， 单 击“ 最 小 化 到 右 下 角” 按 钮， 窗 体 将 消 失， 同 时 任 务 栏 的 右 边 出 现 代 表 窗 体 的 图 标（ 如 图2）， 在 该 图 标 上 单 击 鼠 标 左 键， 窗 体 恢 复 正 常。 再 单 击“ 普 通 最 小 化 图 标” 按 钮， 你 会 看 到 窗 体 虽 然 也 消 失 了， 但 最 小 化 图 标 在 任 务 栏 的 中 间， 即 普 通 位 置（ 如 图3）。
---- 本 程 序 用VB5 编 制， 在Pwin95 下 调 试 正 常。
475003427