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

http://www.foxtable.com/webhelp/scr/Strips.htm

Dim pit = args(0)
Dim ls = args(1)

For Each it As WinForm.StripItem In pit.items
    ls.add(it.Name)
    If it.items IsNot Nothing Then Functions.Execute("遍历所有菜单",it, ls)
Next

--------------

Dim ls As new List(Of String)
For Each st As WinForm.Strip In e.Form.Strips
    Functions.Execute("遍历所有菜单",st,ls)
Next
msgbox(String.Join("|", ls.ToArray))