关于Popup_list控件能否在对话框显示时修改
<p>DCL中的弹出列表控件能否像VB中的组合框那样，在对话框显示时可以手动编辑修改，如不能，可不可以自定义这样的控件，希望高手能给帮助</p><p> </p> <p>可以采用变通的办法：</p>
<p>用一个编辑框将选定的列表内容显示并编辑，编辑完成后再用程序更新列表框的相应内容。</p> 用OPENDCL也许能实现，我要好好研究研究 (defun c:tt (/ ilst)
(cmdla0)
;; __________________________________________________________________
(defun main-pro (/ p1)
(while (setq p1 (getpoint "\n基点<退出>: "))
(xyp-Text 5 p1 tx)
)
)
;; __________________________________________________________________
(defun ali1 ()
(xyp-Dcl-Gettile '("li1"))
(setq a (nth (atoi li1) lst1))
(set_tile "tx" a)
)
(defun abu1 ()
(xyp-Dcl-Gettile '("tx"))
(if (not (member tx lst1))
(progn
(setq lst1 (cons tx lst1))
(xyp-show-list "li1" lst1)
)
)
)
;; __________________________________________________________________
(xyp-initSet '(li1 tx) '("0" ""))
(setq lst1 (if lst1
(xyp-delsame lst1)
'("湿地松" "黑松" "赤松" "五针松" "马尾松" "罗汉松" "白皮松" "雪松" "柏木" "侧柏" "桧柏" "龙柏" "云片柏")
)
ilst '(("li1" "词库" "list" "lst1" "8" "10" "(ali1)")
("tx" "文本" "str" "18")
("bu1" "新词入库" "button1" "(abu1)")
(nil nil "spacer;")
)
)
(if (= (xyp-Dcl-Init Ilst "【写字－乔木】" t) 1)
(main-pro)
)
(cmdla1)
)
地板的程序提示语法错误
页:
[1]