[求助] 如何遍历窗口菜单所有项 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 如何遍历窗口菜单所有项

共有2664人关注过本帖树形打印复制链接主题：[求助] 如何遍历窗口菜单所有项

2900819580

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1347 积分：9817 威望：0 精华：0 注册：2015/6/30 8:46:00

[求助] 如何遍历窗口菜单所有项 发帖心情

Post By：2018/3/30 13:46:00 [显示全部帖子]

Dim itn() As String = {"主菜单","快捷菜单1","快捷菜单2","快捷菜单3","快捷菜单4","快捷菜单5"}

如果我有比较多的菜单。应该怎么获取，我现在是手动录入

2900819580

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1347 积分：9817 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/3/30 14:09:00 [显示全部帖子]

For Each st As WinForm.Strip In e.Form.Strips

For Each vit As WinForm.StripItem In st.Items

2900819580

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1347 积分：9817 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2018/10/9 14:49:00 [显示全部帖子]

老师，如果有二级或三级函数，如何传递StripItem

内部函数

Dim str As String

'For Each st As WinForm.Strip In Forms(args(0)).Strips

For Each it As WinForm.StripItem In it.items

If str > "" Then str &= "|"

str &= it.Name

If IT.Items.Count > 0 Then Functions.Execute("遍历所有菜单",it)

'Next

Return str

窗口代码

Dim str As String

For Each st As WinForm.Strip In e.Form.Strips

For Each it As WinForm.StripItem In st.Items

If str > "" Then str &= "|"

str &= it.Name

If IT.Items.Count > 0 Then str &= Functions.Execute("遍历所有菜单",it)

e.Sender.Text = str

str = Nothing

主题：[求助] 如何遍历窗口菜单所有项