[求助]請幫我看看哪不對

deviliang · 发表于 2008-9-11 17:23:00

不好意思，新手，剛貼錯了。你好。做了個子對話框，結果總不能達到想要的效果，你能幫我看一下哪錯了嗎？想通過子對話框選擇編輯框里的内容，可是value始終等於1。 ------------------------------ list1:dialog{ :button{ label="選択"; key="elect"; } :edit_box{ label="記入"; key="list_t1"; edit_width=15; } ok_cancel; } ----------------------- list2:dialog{ :list_box{ label="list test"; key="list_t2"; edit_width=30; } ok_cancel; } ---------------------------------------- (defun c:list1() (setq electlist ' ("list0" "list1" "list2" "list3" "list4")) (setq dcl_id (load_dialog "list1")) (new_dialog "list1" dcl_id) (set_tile "list_t1" "list0") (action_tile "elect" "(sub_dcl)") (start_dialog) (prin1) ) (defun sub_dcl() (setq sub_dcl_id (load_dialog "list2")) (new_dialog "list2" sub_dcl_id) (start_list "list_t2") (mapcar ' add_list electlist) (end_list) (action_tile "accept" "(setq mid (nth (atoi $value) electlist)) (done_dialog)") (start_dialog) (set_tile "list_t1" mid) )

liminnet · 发表于 2008-9-11 17:59:00

提示: 作者被禁止或删除内容自动屏蔽

ZZXXQQ · 发表于 2008-9-11 20:25:00

(defun c:list1 ()
(setq electlist '("list0" "list1" "list2" "list3" "list4"))
(setq dcl_id (load_dialog "list1"))
(new_dialog "list1" dcl_id)
(set_tile "list_t1" "list0")
(action_tile "elect" "(sub_dcl)")
(start_dialog)
(unload_dialog dcl_id)
(prin1)
)
(defun sub_dcl ()
(setq sub_dcl_id (load_dialog "list2"))
(new_dialog "list2" sub_dcl_id)
(start_list "list_t2")
(mapcar 'add_list electlist)
(end_list)
(action_tile "accept" "(setq mid (nth (atoi (get_tile "list_t2")) electlist)) (done_dialog)")
(start_dialog)
(unload_dialog sub_dcl_id)
(set_tile "list_t1" mid)
)

deviliang · 发表于 2008-9-12 09:02:00

非常謝謝版主。

账号		自动登录	找回密码
密码			注册

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-9-11 17:59:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡