递归菜单问题！

EdgerLee 2003-02-24 10:06:04

写了个函数取MDI窗体的菜单中所有菜单项的文字，并想分出层次来，就是比如说MDI窗体文件|编辑为1，文件下的新建、打开什么的是2，如果打开下还有就是3。怎么解决啊？
这是函数：
定义函数 f_EnumMenuItem(menu amenu)
内容为：
integer li_numberOfItems, li_index
li_numberOfItems = upperbound(amenu.item[])
for li_index = 1 to li_numberOfItems
MessageBox('',amenu.item[li_index].text)
f_EnumMenuItem(amenu.item[li_index])
next

...全文

46 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

EdgerLee 2003-02-24

打赏
举报

好用！谢了！

xwffwx 2003-02-24

打赏
举报

定义函数 f_EnumMenuItem(menu amenu,ref int level)
内容为：
integer li_numberOfItems, li_index,li_level
li_level=level+1
li_numberOfItems = upperbound(amenu.item[])
for li_index = 1 to li_numberOfItems
MessageBox(String(li_level)+':'+String(li_index),amenu.item[li_index].text)
f_EnumMenuItem(amenu.item[li_index],li_level)
next