- 积分
- 0
- 注册时间
- 2011-1-2
- 仿真币
-
- 最后登录
- 1970-1-1
|
最近做GUI编程,做很简单的例子,但是遇到很多题。如下:
用第一个文件做下拉式菜单
!! input Num_Length.pcl
Num_Length.init()
CLASS LDS_SLE
CLASSWIDE WIDGET Menu_LDS_SLE
CLASSWIDE WIDGET Item1
FUNCTION init()
WIDGET Menubar
/* 获得顶层菜单ID*/
IF (ui_wid_exists (Menu_LDS_SLE)) then
ui_wid_delete (Menu_LDS_SLE)
Else
End If
Menubar= uil_primary.get_menubar_id()
/* 添加顶层菜单*/
Menu_LDS_SLE= ui_menu_create (menubar, "Menu_LDS_SLE", "可展机构")
Item1=ui_item_create (Menu_LDS_SLE, "Number_Length", "单元数量", FALSE )
END FUNCTION /* init */
/*菜单响应函数*/
FUNCTION Menu_LDS_SLE ( item_name )
STRING item_name[]
SWITCH (item_name)
CASE ("Number_Length")
UI_EXEC_FUNCTION("Num_Length","DISPLAY")
END Switch
END FUNCTION
END CLASS
第二文件为Num_Length文件
#include "appforms.p"
CLASS Num_Length
CLASSWIDE Widget Form_ID
function init()
/* 创建窗体*/
Form_ID=ui_form_create(/* callback */ "", @
/* x */ 5, @
/* y */ 1, @
/* position */ "UL", @
/* width */ 3, @
/* height */ 3, @
/* label */ "Number&Length", @
/* iconname */"" )
end function
END CLASS
菜单可以弹出来,但是运行时,弹出错误
$# Function UI_EXEC_FUNCTION
$# Function LDS_SLE.MENU_LDS_SLE, Line Number 26
line26是 UI_EXEC_FUNCTION("Num_Length","DISPLAY")
第二个问题
如果创建窗体的时候用下属命令
Form_ID=ui_form_create(/* callback */ "", @
/* x */ FORM_X_LOC, @
/* y */ FORM_Y_LOC, @
/* position */ "UL", @
/* width */ FORM_WID_SML, @
/* height */ FORM_HGT_FULL, @
/* label */ "Number&Length", @
/* iconname */"" )
会提示FORM_X_LOC,FORM_Y_LOC,FORM_WID_SML, FORM_HGT_FULL未定义。
等待高手解答。
顺便把两个文件作为附件上传
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
|