托盘类气泡通知的bug，包含代码改进

UltrSeven

在自制的程序内用过精易的托盘类之后发现，只要使用过一次气泡通知，那么每次更新托盘文本或图标时会自动弹出上一次的气泡提示。研究过MSDN的文档后发现，托盘结构体下的uFlags成员决定了托盘图标的动作，也就是说问题出现在这里了。
精易模块内的托盘类在创建函数时

  

如果真 (IsWindow (窗口句柄) ＝ 1)
集_窗口句柄 ＝ 窗口句柄
如果 (是否为空 (图标数据))
集_通知结构.hIcon ＝ SendMessageA (窗口句柄, 127, 0, 0)
集_通知结构.hIcon ＝ 取图标句柄 (图标数据)
集_通知结构.cbSize ＝ 488
集_通知结构.hWnd ＝ 窗口句柄
集_通知结构.uID ＝ 1
集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE )
集_通知结构.uCallbackMessage ＝ 11685
集_通知结构.uTimeoutAndVersion ＝ 10000
lstrcpyA (集_通知结构.szTip, 提示信息)
返回 (Shell_NotifyIconA ( #NIM_ADD, 集_通知结构))
返回 (假)

如果真 (IsWindow (窗口句柄) ＝ 1)<br /> 集_窗口句柄 ＝ 窗口句柄<br /> 如果 (是否为空 (图标数据))<br /> 集_通知结构.hIcon ＝ SendMessageA (窗口句柄, 127, 0, 0)<br /> 集_通知结构.hIcon ＝ 取图标句柄 (图标数据)<br /> 集_通知结构.cbSize ＝ 488<br /> 集_通知结构.hWnd ＝ 窗口句柄<br /> 集_通知结构.uID ＝ 1<br /> 集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE )<br /> 集_通知结构.uCallbackMessage ＝ 11685<br /> 集_通知结构.uTimeoutAndVersion ＝ 10000<br /> lstrcpyA (集_通知结构.szTip, 提示信息)<br /> 返回 (Shell_NotifyIconA ( #NIM_ADD, 集_通知结构))<br /> 返回 (假)

集_通知结构.uFlags 这里得到的动作是 位或 ( #NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE )，但实际上创建托盘图标时并不存在气泡提示动作NIF_INFO（即使需要气泡提示逻辑上也完全可以由之后的子程序完成），所以在此处的实际值应该为 位或 ( #NIF_ICON, #NIF_TIP,#NIF_MESSAGE )，#NIF_INFO表示的是气泡提示的有效性。
既然气泡提示在创建时被无效，那么 集_通知结构.uTimeoutAndVersion ＝ 10000 该语句也无意义(气泡持续时间，在气泡提示的子程序中有对该成员赋值的动作)


顺带一提的是 集_通知结构.uCallbackMessage 这里的值应该通过API RegisterWindowMessage() 来获取
做出对应更改后在 挂接事件 子程序中
SetPropA (集_窗口句柄, “CallbackMessage”, 11685)
应更改为
SetPropA (集_窗口句柄, “TaskbarCallbackMessage”, 集_通知结构.uCallbackMessage)

创建函数的改进建议如下

  

子程序名	返回值类型	公开	备 注
创建	逻辑型		创建一个托盘图标，成功返回真，失败返回假。
参数名	类 型	参考	可空	数组	备 注
窗口句柄					不能设为第三方窗口
图标数据	字节集				可为空，默认为自身图标。
提示信息	文本型				本参数指定当鼠标移动到图标上后显示的提示信息。如果省略本参数，默认为空文本。

如果真 (IsWindow (窗口句柄) ＝ 1)
集_窗口句柄 ＝ 窗口句柄
如果 (是否为空 (图标数据))
集_通知结构.hIcon ＝ SendMessageA (窗口句柄, 127, 0, 0)
集_通知结构.hIcon ＝ 取图标句柄 (图标数据)
集_通知结构.cbSize ＝ 488
集_通知结构.hWnd ＝ 窗口句柄
集_通知结构.uID ＝ 1
集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP, #NIF_MESSAGE )
集_通知结构.uCallbackMessage ＝ RegisterWindowMessage ("TaskbarCallbackMessage")
lstrcpy_bytes (集_通知结构.szTip, 提示信息)
返回 (Shell_NotifyIcon ( #NIM_ADD, 集_通知结构))
返回 (假)

.版本 2<br /> <br /> .子程序 创建, 逻辑型, 公开, 创建一个托盘图标，成功返回真，失败返回假。<br /> .参数 窗口句柄, , , 不能设为第三方窗口<br /> .参数 图标数据, 字节集, 可空, 可为空，默认为自身图标。<br /> .参数 提示信息, 文本型, 可空, 本参数指定当鼠标移动到图标上后显示的提示信息。如果省略本参数，默认为空文本。<br /> <br /> .如果真 (IsWindow (窗口句柄) ＝ 1)<br />     集_窗口句柄 ＝ 窗口句柄<br />     .如果 (是否为空 (图标数据))<br />         集_通知结构.hIcon ＝ SendMessageA (窗口句柄, 127, 0, 0)<br />     .否则<br />         集_通知结构.hIcon ＝ 取图标句柄 (图标数据)<br />     .如果结束<br />     集_通知结构.cbSize ＝ 488<br />     集_通知结构.hWnd ＝ 窗口句柄<br />     集_通知结构.uID ＝ 1<br />     集_通知结构.uFlags ＝ 位或 (#NIF_ICON, #NIF_TIP, #NIF_MESSAGE)<br />     集_通知结构.uCallbackMessage ＝ RegisterWindowMessage ("TaskbarCallbackMessage")<br />     lstrcpy_bytes (集_通知结构.szTip, 提示信息)<br />     返回 (Shell_NotifyIcon (#NIM_ADD, 集_通知结构))<br /> .如果真结束<br /> 返回 (假)

boomsa

谢谢分享,学习技能中

sostemp

能分享个带托盘的菜单示例，谢谢。

quary888

谢谢楼主分享！！！
好人一生平安！！！

UltrSeven

这楼应该是3楼- -，BBS用得少不太会发帖

那么子程序 置提示信息 和 置图标数据 也应该在使用时指定其有效范围（指的是排除气泡通知，毕竟你也不想在修改信息或图标的时候弹出气泡通知对吧，这是明显的bug了）解决方法也很简单，只需要在
子程序返回之前将uFlags改为 位或 ( #NIF_ICON, #NIF_TIP,#NIF_MESSAGE )
即
集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP,#NIF_MESSAGE )
而非模块内原来的
集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE )
即可修复问题。

望项目部采纳

UltrSeven

再来看气泡提示

  

集_通知结构.dwInfoFlags ＝ 提示图标
m_szInfoTitle ＝ 选择 (取文本长度 (提示标题) ≤ 64, 提示标题, 取文本左边 (提示标题, 64))
m_szInfo ＝ 选择 (取文本长度 (提示内容) ＜ 256, 提示内容, 取文本左边 (提示内容, 256))
lstrcpyA (集_通知结构.szInfoTitle, m_szInfoTitle)
lstrcpyA (集_通知结构.szInfo, m_szInfo)
判断 (显示时间 ＝ 0)
集_通知结构.uTimeoutAndVersion ＝ 3000
集_通知结构.uTimeoutAndVersion ＝ 显示时间
返回 (Shell_NotifyIconA ( #NIM_MODIFY, 集_通知结构))

集_通知结构.dwInfoFlags ＝ 提示图标<br /> m_szInfoTitle ＝ 选择 (取文本长度 (提示标题) ≤ 64, 提示标题, 取文本左边 (提示标题, 64))<br /> m_szInfo ＝ 选择 (取文本长度 (提示内容) ＜ 256, 提示内容, 取文本左边 (提示内容, 256))<br /> lstrcpyA (集_通知结构.szInfoTitle, m_szInfoTitle)<br /> lstrcpyA (集_通知结构.szInfo, m_szInfo)<br /> 判断 (显示时间 ＝ 0)<br /> 集_通知结构.uTimeoutAndVersion ＝ 3000<br /> 集_通知结构.uTimeoutAndVersion ＝ 显示时间<br /> 返回 (Shell_NotifyIconA ( #NIM_MODIFY, 集_通知结构))

在这个子程序里，使得气泡提示出现，在Shell_NotifyIconA ( #NIM_MODIFY, 集_通知结构)之前，我们应该使之生效，所以在前面应指定uFlags的值
uFlags=位或 (#NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE)
同时使得之前的三项（图标，提示文本，消息）与气泡提示#NIF_INFO一同生效

  

子程序名	返回值类型	公开	备 注
气泡提示	逻辑型
参数名	类 型	参考	可空	数组	备 注
提示标题	文本型				限定64字符以内，超出默认被截断
提示内容	文本型				限定256字符以内，超出默认被截断
提示图标	整数型				0.托盘图标_无图标,1.托盘图标_信息图标,2.托盘图标_警告图标,3.托盘图标_错误图标
显示时间	整数型				设置气泡提示的时间，单位：毫秒 可空 默认3秒

变量名	类 型	静态	数组	备 注
m_szInfo	文本型
m_szInfoTitle	文本型

集_通知结构.dwInfoFlags ＝ 提示图标
m_szInfoTitle ＝ 选择 (取文本长度 (提示标题) ≤ 64, 提示标题, 取文本左边 (提示标题, 64))
m_szInfo ＝ 选择 (取文本长度 (提示内容) ＜ 256, 提示内容, 取文本左边 (提示内容, 256))
lstrcpy_bytes (集_通知结构.szInfoTitle, m_szInfoTitle)
lstrcpy_bytes (集_通知结构.szInfo, m_szInfo)
判断 (显示时间 ＝ 0)
集_通知结构.uTimeoutAndVersion ＝ 3000
集_通知结构.uTimeoutAndVersion ＝ 显示时间
集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE )
返回 (Shell_NotifyIcon ( #NIM_MODIFY, 集_通知结构))

.版本 2<br /> <br /> .子程序 气泡提示, 逻辑型, 公开<br /> .参数 提示标题, 文本型, , 限定64字符以内，超出默认被截断<br /> .参数 提示内容, 文本型, , 限定256字符以内，超出默认被截断<br /> .参数 提示图标, 整数型, 可空, 0.托盘图标_无图标,1.托盘图标_信息图标,2.托盘图标_警告图标,3.托盘图标_错误图标<br /> .参数 显示时间, 整数型, 可空, 设置气泡提示的时间，单位：毫秒 可空 默认3秒<br /> .局部变量 m_szInfo, 文本型<br /> .局部变量 m_szInfoTitle, 文本型<br /> <br /> 集_通知结构.dwInfoFlags ＝ 提示图标<br /> m_szInfoTitle ＝ 选择 (取文本长度 (提示标题) ≤ 64, 提示标题, 取文本左边 (提示标题, 64))<br /> m_szInfo ＝ 选择 (取文本长度 (提示内容) ＜ 256, 提示内容, 取文本左边 (提示内容, 256))<br /> lstrcpy_bytes (集_通知结构.szInfoTitle, m_szInfoTitle)<br /> lstrcpy_bytes (集_通知结构.szInfo, m_szInfo)<br /> .判断开始 (显示时间 ＝ 0)<br />     集_通知结构.uTimeoutAndVersion ＝ 3000<br /> .默认<br />     集_通知结构.uTimeoutAndVersion ＝ 显示时间<br /> .判断结束<br /> 集_通知结构.uFlags ＝ 位或 (#NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE)<br /> 返回 (Shell_NotifyIcon (#NIM_MODIFY, 集_通知结构))