- 积分
- 0
- 注册时间
- 2006-6-21
- 仿真币
-
- 最后登录
- 1970-1-1
|
我是新手,最近在学PCL。下面是我准备的一个小程序,主要是选择下拉菜单的第一项,生成表框,里面只有一个简单的BUTTON选项,完成一个简单的流程。但是来不能生成表框,忘求教。
#include "E:\tiaoshi\uiforms.p"
#include "E:\tiaoshi\appforms.p"
CLASS training
FUNCTION init()
WIDGET menubar, menu, item1
menubar= uil_primary.get_menubar_id()
menu= ui_menu_create (menubar, "exe_menu", "船体外板计算")
ui_item_create (menu, "EX_1", "计算" , FALSE )
item1 = ui_item_create (menu, "EX_2", "导入文件" , FALSE )
ui_item_create (menu, "EX_3", "结束" , FALSE )
END FUNCTION
FUNCTION exe_menu(item_name)
STRING item_name[]
SWITCH (item_name)
CASE ("EX_1")
WRITE (" You have selected Exercise 1 ")
UI_EXEC_FUNCTION("push_me", "display")
CASE ("EX_2")
WRITE (" You have selected Exercise 2 ")
CASE ("EX_3")
WRITE (" You have selected Exercise 3 ")
END SWITCH
END FUNCTION
END CLASS
CLASS push_me
CLASSWIDE WIDGET form_id
FUNCTION init()
REAL x_loc, y_loc
form_id = ui_form_create("", @
FORM_X_LOC_SML, @
FORM_Y_LOC , @
"UL", @
FORM_WID_SML, @
FORM_HGT_TALL, @
"船体外板计算", @
"")
ui_button_create("form_id", @
"push_me_cb", @
BUTTON_HALF_X_LOC, @
y_loc, @
BUTTON_WID_THIRD, @
0, @
"选择", @
TRUE, @
TRUE)
END FUNCTION
FUNCTION push_me_cb()
ui_write("You have just programmed your first form!!!")
ui_form_hide( "push_me")
END FUNCTION
FUNCTION DISPLAY()
ui_form_display("push_me")
END FUNCTION
END CLASS
执行后提示:
$# You have selected Exercise 1
$# (PCL) Function does not exist: PUSH_ME.INIT
$# Call traceback...
$# Function UI_EXEC_FUNCTION
$# Function TRAINING.EXE_MENU, Line Number 19
好像是什么调用函数不存在的意思。 |
|