老师，如果有二级或三级函数，如何传递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
'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)
Next
Next
e.Sender.Text = str
str = Nothing
加好友 
发短信
Post By：2018/3/30 13:46:00 [只看该作者]
