Foxtable(狐表)用户栏目专家坐堂 → [求助]菜单编辑器如何让选中的item特殊显示


  共有3303人关注过本帖树形打印复制链接

主题:[求助]菜单编辑器如何让选中的item特殊显示

帅哥哟,离线,有人找我吗?
chnfo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2243 积分:18477 威望:0 精华:0 注册:2011/11/26 20:21:00
[求助]菜单编辑器如何让选中的item特殊显示  发帖心情 Post By:2019/10/9 19:18:00 [只看该作者]

菜单编辑器还可以用于导航功能。比如菜单时,可以加载不同的页面。

问题:
菜单编辑器里增加了比如5项,在窗口的itemclick中添加菜单的切换事件。
但是,现在没办法知道点的是哪一个项,当前点选的项如果能特殊显示就好了。比如让这个item凹下去(其它的全正常-----感觉这个似乎要简单点儿),或者让这个item的底色或字体明显不同。

这个东东要咋做呢

 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2243 积分:18477 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2019/10/9 19:33:00 [只看该作者]

For Each x As WinForm.StripItem In e.Strip.Items
    x.Checked = False
Next

e.StripItem.Checked = True

貌似可以。

但这个用于工具栏可以,用于菜单就不行。有用于菜单的方法吗?
[此贴子已经被作者于2019/10/9 19:45:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 8:47:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2243 积分:18477 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2019/10/10 9:47:00 [只看该作者]

似乎增加的项没有togglebutton选项呀

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 9:55:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2243 积分:18477 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2019/10/10 9:59:00 [只看该作者]

是的。我是想把窗口中的菜单当成导航菜单用,所以想知道现在是在操作什么业务。 因为鼠标从菜单上移开,所有菜单外观一样,都不知现在在做啥
[此贴子已经被作者于2019/10/10 10:00:26编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 10:19:00 [只看该作者]

看5楼,设置勾选

 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2243 积分:18477 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2019/10/10 10:35:00 [只看该作者]

是希望主菜单的项作为导航菜单使用哦。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:菜单使用.zip


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 10:57:00 [只看该作者]

菜单第一层是没有状态的。换个方式,添加一个图片,如:

Dim Strip As WinForm.Strip = Forms("X").Strips("主菜单")
Strip.Items(0).Image = getimage("001.ico")

点击事件里清空菜单第一层所有项目的图片,然后给当前项目添加一个图片

 回到顶部