popup_list与txt文本的对接

洪少(刀模)

预设好相关数据或文本：
（1　Ａ1　Ａ2　Ａ3　Ａ4　Ａ5）
（2　Ｂ1　Ｂ2　Ｂ3　Ｂ4　Ｂ5）
（3　Ｃ1　Ｃ2　Ｃ3　Ｃ4　Ｃ5）
（4　Ｄ1　Ｄ2　Ｄ3　Ｄ4　Ｄ5）
（5　Ｅ1　Ｅ2　Ｅ3　Ｅ4　Ｅ5）
在打开对话框后，popup_list自动读取txt文本，添加入文本内的第一项1、2、3、4、5，其它控件亦读取到相应的数据Ａ1、Ａ2、Ａ3、Ａ4、Ａ5。当popup_list选择2时，其它控件得到Ｂ1.......
各位大侠出下手，ＤＣＬ不熟。谢谢！

被承包的东子

(action_tile key action-expression)
(set_tile key value)
应该是这两个命令的组合，你自己再细细研究下

洪少(刀模)

被承包的东子 发表于 2018-7-11 16:39
(action_tile key action-expression)
(set_tile key value)
应该是这两个命令的组合，你自己再细细研究 ...

是读取txt文件，写入控件，并根据popup_list的变化，相应的其它控件值也变化。用vb做就比较简单，lisp没有试过。谢谢您的回复！

被承包的东子

action-expression
指定选定控件时所要求值的动作表达式的字符串。
例：(action_tile "button_4a" "(ok_0813)(td_4a)")
(defun ok_0813 () 。。。。）
这边 就可以连贯起来了，你在OK_0813函数里写上读取TXT的函数，就好了啊，然后再用(set_tile key value)把列表赋值给popup_list；
最后，我想说，你要不要舍弃DCL，改用OPenDCL，OPENDCL用起来和VB一样

洪少(刀模)

被承包的东子 发表于 2018-7-12 08:17
action-expression
指定选定控件时所要求值的动作表达式的字符串。
例：(action_tile "button_4a" "(ok_0 ...

我试试，opendcl我还不了解，谢谢！

cabinsummer

不用OpenDCL，DCL就可以实现