- 积分
- 0
- 注册时间
- 2007-7-30
- 仿真币
-
- 最后登录
- 1970-1-1
|
请各位大牛帮忙看一下下面这个pcl程序哪个地方错了,怎么cascadeitem(子菜单)生成不出来呢,555
#include "appforms.p"
CLASS MenuItem
/*菜单初始化*/
FUNCTION init()
WIDGET menubar,menu,item1,item2,item3,item21,item22
menubar = uil_primary.get_menubar_id()
menu = ui_menu_create(menubar,"menu","动力学分析平台")
item1 = ui_item_create(menu,"1","快速建模",false)
item2 = ui_cascadeitem_create(menu,"","结果专家处理")
item3 = ui_item_create(menu,"3","报告自动生成",false)
item21 = ui_item_create(item2,"21","启动",false)
item22 = ui_item_create(item2,"22","生成表格",false)
END FUNCTION
FUNCTION display()
END FUNCTION
FUNCTION menu(item_name)
STRING item_name[]
END FUNCTION
END CLASS |
|