主题：主窗口实现登录提示

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

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

在Disconnected中设置了如下代码：

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

通过以上代码希望能够实现在线或离线后窗口菜单中相应图标的转换，但是实现不了，怎么修改？

提示什么错误？

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

2、你主窗口必须打开，才能找到对应菜单的，不然会提示xxx不存在的错误。

没有提示任何错误，就是在离线的时候变不成灰色图标，这是我在主窗口中添加菜单的代码，以下代码在主窗口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)

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

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

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