菜单枚举写法很简单

.子程序 菜单_枚举, 整数型, 公开, 逐级枚举；成功返回“数量”，失败返回“0”。
.参数 参_菜单句柄, 整数型
.参数 参_返回菜单, 菜单型, 数组
.局部变量 局_数量, 整数型
.局部变量 局_索引, 整数型
.局部变量 局_菜单, 菜单型

局_数量 ＝ 菜单_取数量 (参_菜单句柄)
局_索引 ＝ 1
.判断循环首 (局_索引 ≤ 局_数量)
局_菜单.句柄 ＝ 菜单_取子句柄 (参_菜单句柄, 局_索引 － 1)
局_菜单.标题 ＝ 菜单_取标题 (参_菜单句柄, 局_索引 － 1)
局_菜单.标识符 ＝ 菜单_取ID (参_菜单句柄, 局_索引 － 1)
加入成员 (参_返回菜单, 局_菜单)
菜单_枚举 (局_菜单.句柄, 参_返回菜单)
局_索引 ＝ 局_索引 ＋ 1
.判断循环尾 ()
返回 (取数组成员数 (参_返回菜单))