- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- OpenQQ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141165)
-- 发布时间：2019/9/23 10:44:00
-- OpenQQ
老师好，我把OpenQQ从配置栏移到导航窗口菜单里，请问如何像在配置栏一样，ico图标在线与离线切换，和显示未读信息数量。
我把下面这个代码从配置栏移到了导航栏，和这个代码有关吗
If QQClient.Ready Then
QQClient.OpenChatWindow()
Else
Forms("登录窗口").Open()
End If \'打开代码
-- 发布时间：2019/9/23 11:17:00
--
导航窗口菜单是哪个？截图说明一下
-- 发布时间：2019/9/23 11:26:00
--
是在窗口（导航）里的菜单编辑器里放的图标
此主题相关图片如下：1569162042(1).png
-- 发布时间：2019/9/23 11:48:00
--
参考：http://www.foxtable.com/webhelp/topics/3220.htm
5、将OpenQQ客户端事件Connected事件代码设置为：
ConfigBar.Items("OpenQQ").SmallImage = GetImage("online.ico")
这行代码用于在OpenQQ登录成功后，将菜单按钮的图标改为online.ico。
6、最后将OpenQQ客户端事件Disconnected事件代码设置为：
ConfigBar.Items("OpenQQ").SmallImage = GetImage("offline.ico")
相应改为
5、将OpenQQ客户端事件Connected事件代码设置为：
e.Form.Strips("工具栏1").Items("QQ图标项目").Image = GetImage("online.ico")
这行代码用于在OpenQQ登录成功后，将菜单按钮的图标改为online.ico。
6、最后将OpenQQ客户端事件Disconnected事件代码设置为：
e.Form.Strips("工具栏1").Items("QQ图标项目").Image = GetImage("offline.ico")
-- 发布时间：2019/9/23 23:45:00
--
老师，代码放进去报错，截图如下：
此主题相关图片如下：vmm6)rffri1_btbccvsmzg.png
此主题相关图片如下：90y3qq36c{y~81f$p3w2%c.png
[此贴子已经被作者于2019/9/23 23:45:18编辑过]
-- 发布时间：2019/9/24 8:36:00
--
改改
if Forms("某导航窗口").open
Forms("某导航窗口").Strips("工具栏1").Items("QQ图标项目").Image = GetImage("online.ico")
end if
-- 发布时间：2019/9/24 11:58:00
--
老师，还是报错
此主题相关图片如下：322.png
此主题相关图片如下：321.png
-- 发布时间：2019/9/24 12:09:00
--
很简单的错误哦，问题是这点判断的能力都没有么，一定要等着我们改？
-- 发布时间：2019/9/25 0:58:00
--
谢谢蓝老师，自己确实小白判断不来，很多都是第一次碰到，让老师费心了。
现在登录后，图标从无色变彩色了，再退出QQ不会变色了，也不显示来的信息数。
-- 发布时间：2019/9/25 8:39:00
--
6、最后将OpenQQ客户端事件Disconnected事件代码设置为：
ConfigBar.Items("OpenQQ").SmallImage = GetImage("offline.ico")
参考6楼的用法自己改改