如何遍历菜单？

Eric2000 2002-03-12 03:28:36

如何遍历菜单？

...全文

108 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

Eric2000 2002-03-12

打赏
举报

谢谢！我也找到了，其实很简单，呵呵，多谢诸位！

NetCobra 2002-03-12

打赏
举报

CSDN很讨厌,把开头的TAB键和空格都删掉了,真难看

NetCobra 2002-03-12

打赏
举报

刚刚做了个这样的程序:
Integer i,j
Integer li_mother_bound
Integer li_child_bound
String ls_menu_text

li_mother_bound = UpperBound(m_mainmenu.Item[])

FOR i = 1 TO li_mother_bound
li_child_bound = UpperBound(m_mainmenu.Item[i].Item[])
FOR j = 1 TO li_child_bound
//ls_menu_text = Trim(m_mainmenu.Item[i].Item[j].MicroHelp)
ls_menu_text = Trim(m_mainmenu.Item[i].Item[j].Text)
//...
//这里是你的程序
//...
NEXT
NEXT

2000pinbo 2002-03-12