以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  主窗口实现登录提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119565)
--  作者：kaituozhe
--  发布时间：2018/5/27 18:59:00
--  主窗口实现登录提示

为了实现上述目标，在网络管理器的Connected事件中设置了如下代码，提示错误，该怎么解决，是否有类似的方法可以实现？

forms("主窗口").strips("主菜单").Items("QQopen").SmallImage = GetImage("online.ico")
--  作者：kaituozhe
--  发布时间：2018/5/27 19:04:00
--  

在Connected中设置了如下代码

forms("主窗口").strips("主菜单").Items("QQopen").Image = GetImage("online.ico")

在Disconnected中设置了如下代码：

 

forms("主窗口").strips("主菜单").Items("QQopen").Image = GetImage("offline.ico")

通过以上代码希望能够实现在线或离线后窗口菜单中相应图标的转换，但是实现不了，怎么修改？
--  作者：有点甜
--  发布时间：2018/5/27 22:15:00
--  

提示什么错误？

 

1、你窗口那里要加入QQOpen这个菜单的。

 

2、你主窗口必须打开，才能找到对应菜单的，不然会提示xxx不存在的错误。
--  作者：kaituozhe
--  发布时间：2018/5/28 7:52:00
--  

没有提示任何错误，就是在离线的时候变不成灰色图标，这是我在主窗口中添加菜单的代码，以下代码在主窗口AfterLoad事件中

Dim mnu As Winform.Strip
Dim itm As WinForm.StripItem
mnu = e.Form.Strips.Add("主菜单",StripTypeEnum.MainMenu)
mnu.Items.Add("File","文件(&F)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("Edit","编辑(&E)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("ShenHeShenPi","审核审批(&S)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("homepage","首页(&H)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("pageup","上页(&A)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("pagedown","下页(&P)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("lastpage","末页(&L)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("MuLuShu","打开目录(&M)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("GengXing","更新(&G)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("Option","选项(&O)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("Help","帮助(&H)","",StripItemTypeEnum.MenuItem)
mnu.Items.Add("QQopen","登录","",StripItemTypeEnum.MenuItem)
--  作者：有点甜
--  发布时间：2018/5/28 9:13:00
--  

1、单独执行这个代码，能否设置图标？

 

forms("主窗口").strips("主菜单").Items("QQopen").Image = GetImage("online.ico")

 

2、Connected、Disconnected事件，加入msgbox，看能否弹出值。