以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 如何遍历出Strips菜单的所有项目(已解决谢谢)  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=86876)

--  作者:ruan
--  发布时间:2016/6/28 10:40:00
--  [求助] 如何遍历出Strips菜单的所有项目(已解决谢谢)

怎么样遍历窗口的 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编辑过]

--  作者:大红袍
--  发布时间:2016/6/28 10:42:00
--  

 写成递归

 

http://www.foxtable.com/help/topics/2416.htm

 


--  作者:hgy
--  发布时间:2021/11/10 11:46:00
--  
e.Form.Strips("快捷菜单1"),这个是怎么弄的,我看了文档,还是不太懂。谢谢你
--  作者:有点蓝
--  发布时间: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
--  发布时间:2021/11/10 11:56:00
--  
快捷菜单1,关键是这个是怎么弄
--  作者:有点蓝
--  发布时间:2021/11/10 13:29:00
--  
设计菜单?http://www.foxtable.com/webhelp/topics/3108.htm