Foxtable(狐表)用户栏目专家坐堂 → [求助] 如何遍历出Strips菜单的所有项目(已解决谢谢)


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

主题:[求助] 如何遍历出Strips菜单的所有项目(已解决谢谢)

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


加好友 发短信
等级:一尾狐 帖子:463 积分:4860 威望:0 精华:0 注册:2011/8/20 18:40:00
[求助] 如何遍历出Strips菜单的所有项目(已解决谢谢)  发帖心情 Post By:2016/6/28 10:40:00 [只看该作者]


怎么样遍历窗口的 Strips菜单项目 列出所有 项目的名称

 
我这样写不行 请高手指导!!
Dim f As WinForm.Form = Forms("产品列表")
For Each sit As WinForm.StripItem In f.Strips("主菜单").Items
    Output.Show(sit.Text)
Next

[此贴子已经被作者于2016/6/28 10:52:32编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/28 10:42:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:63 积分:580 威望:0 精华:0 注册:2021/7/21 17:16:00
  发帖心情 Post By:2021/11/10 11:46:00 [只看该作者]

e.Form.Strips("快捷菜单1"),这个是怎么弄的,我看了文档,还是不太懂。谢谢你

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


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

一样啊

For Each sit As WinForm.StripItem In f.Strips("快捷菜单1").Items
    Output.Show(sit.Text)
For Each sit2 As WinForm.StripItem In sit .Items
    Output.Show(sit2.Text)
Next
Next

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


加好友 发短信
等级:幼狐 帖子:63 积分:580 威望:0 精华:0 注册:2021/7/21 17:16:00
  发帖心情 Post By:2021/11/10 11:56:00 [只看该作者]

快捷菜单1,关键是这个是怎么弄

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


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


 回到顶部