天青色 发表于 2015-1-25 11:00:28

写入到外部文件吧，可参考 http://bbs.mjtd.com/apptools.php?mod=view&apptoolsid=63
Rainbow 工具箱

lovexj918 发表于 2015-1-27 12:32:50

由于基础太差，还是没看懂，感谢各位了

ifeelhard 发表于 2015-1-28 11:54:32

给你几句实例，自己参考
(setq keys '("ed1" "ed2" "ed3" "ed4" "list1" "list2" "list3" "button1" "button2" "button3" "button4" "button5" "accept" "cancel"));列表全部控件名称
(foreach key keys;全部控件的初始化
(if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容
)
(action_tile "accept" "(Get_Form1_Data)(done_dialog 1)")

(defun Get_Form1_Data( / key)
        (foreach key keys
                (set (read (strcat key "_bak")) (get_tile key));每个控件都赋给一个变量 用于下次开启初始化
        )
)
页: 1 [2]
查看完整版本: DCL文本编辑框是否可以有记忆功能？