【已解决】批量修改控件属性

8142556 · 发表于 2018-1-24 12:29:50

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

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

×

本帖最后由 8142556 于 2018-1-24 13:27 编辑

      (Dcl_Control_Setvisible wanfeng_WF_cybtn1 Nil)
      (Dcl_Control_Setvisible wanfeng_WF_cybtn2 Nil)
      (Dcl_Control_Setvisible wanfeng_WF_cybtn3 Nil)
      (Dcl_Control_Setvisible wanfeng_WF_cybtn4 Nil)
      。。。。。。
比如我想同时修改50个控件的隐藏状态，除了一个一个隐藏，有没有简单的代码可以实现

newer · 发表于 2018-1-24 12:52:00

eval 和 read ，这个论坛有。

marting · 发表于 2018-1-24 12:54:48

(setq i 0)
(repeat 50
(setq name (strcat "wanfeng_WF_cybtn" (setq i (1+ i))))
(Dcl_Control_Setvisible (eval (read name)) Nil)
)

8142556 · 发表于 2018-1-24 13:23:21

谢谢两位大神

8142556 · 发表于 2018-1-24 13:32:16

marting 发表于 2018-1-24 12:54

我运行了一下，说参数错误是哪里的原因
微信图片_20180124132907.png

8142556 · 发表于 2018-1-24 13:54:12

marting 发表于 2018-1-24 12:54

是不是这个数值没有“”号

newer · 发表于 2018-1-24 13:55:22

8142556 发表于 2018-1-24 13:32

(setq i(1+ i))改成(itoa (setq i(1+ i)))

8142556 · 发表于 2018-1-24 14:00:02

newer 发表于 2018-1-24 13:55

OK，可以了，谢谢啊

被承包的东子 · 发表于 2018-5-6 22:05:57

8142556 发表于 2018-1-24 14:00
OK，可以了，谢谢啊

请问下，你用的什么编辑器啊，想用用看

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

[求助] 【已解决】批量修改控件属性

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