ODCL文本框批量赋值，求高手改进~~~

77077 · 发表于 2014-11-26 15:17:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

ODCL文本框批量赋值，求高手改进~~~
(odcl-SetTexts odcln keys vals)
参数：
odcln  odcl对话框名
keys  文本框名，表数据
vals  文本值，表数据
;用法示例(odcl-SetTexts "Form_test_" '("Box1" "Box2" "Box3" "Box4" "Box5" "Box6") '("A" "B" "C" "D" "E" "F"))
;函数

(defun odcl-SetTexts(odcln keys vals / str)
(mapcar
'(lambda(x y)
(progn
(setq str(strcat "(dcl_Control_SetText " odcln x " " "Y" ")"))
(eval (read str))
)
)
keys
vals
)
)

newer · 发表于 2014-11-26 16:42:01

哪地方不好？需要改进。

st788796 · 发表于 2014-11-26 16:44:14

这些赋值就是控件名区别，事件的批量定义更能节省

xvjiex · 发表于 2021-7-28 00:18:43

感谢楼主分享

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

[每日一码] ODCL文本框批量赋值，求高手改进~~~

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。