popup_list关联其他控件

洪少(刀模) · 发表于 2018-7-17 10:41:39

如动图，我是用ＶＢ写的，现在想用DCl来做，当控件popup_list发现事件时，关联的edit_box怎样变更数据？

被承包的东子 · 发表于 2018-7-17 13:58:07

现在闲来无事，你把你已经编好的DCL和lisp给我，我来给你改改

llsheng_73 · 发表于 2018-7-17 16:20:35

本帖最后由 llsheng_73 于 2018-7-17 16:22 编辑

先做一个表和popup的项对应起来，然后根据popup的值得到对应的数值，通过action_tile修改相关控件的数值
(setq lst'(("1000" "700" "13" "15" "8")("1200" "750" "18" "20" "10") ")("1800" "900" "25" "30" "12")))
(action_tile"popup" "(mapcar'set_tile'(\"ED0\"\"ED1\"\"ED2\"\"ED3\"\"ED4\")(nth(atoi $value)lst)")

洪少(刀模) · 发表于 2018-7-18 08:29:32

llsheng_73 发表于 2018-7-17 16:20
先做一个表和popup的项对应起来，然后根据popup的值得到对应的数值，通过action_tile修改相关控件的数值
( ...

非常感谢您的指导，思路顺了，调试看看。

洪少(刀模) · 发表于 2018-7-18 09:58:44

llsheng_73 发表于 2018-7-17 16:20
先做一个表和popup的项对应起来，然后根据popup的值得到对应的数值，通过action_tile修改相关控件的数值
( ...

兄弟，(action_tile "hsjx" "(set_tile "hsbdc" $value)")提示参数太多，怎么回事？谢谢！

洪少(刀模) · 发表于 2018-7-18 10:15:11

哦，明白了
(defun ppp123 ()
(set_tile "hsbdc" "55555")

)
(action_tile "hsjx" "(ppp123)")

llsheng_73 · 发表于 2018-7-21 22:12:55

洪少(刀模) 发表于 2018-7-18 09:58
兄弟，(action_tile "hsjx" "(set_tile "hsbdc" $value)")提示参数太多，怎么回事？谢谢！

(action_tile "hsjx" "(set_tile \"hsbdc\" $value)")

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

[提问] popup_list关联其他控件

本帖子中包含更多资源