;; 伪源码需要e派工具箱(XCAD)的支持
(defun c:tt (/ t0 lst ll1 ll2 ilst)
(defun aaa ()
(while (< (- (* 86400 (getvar "tdusrtimer")) t0) 3)
(foreach a lst (mode_tile a 1))
)
(foreach a lst (mode_tile a 0))
)
(setq t0(* 86400 (getvar "tdusrtimer"))
lst '("kk1" "kk2" "kk3" "accept" "cancel")
ll1 '(kk1 kk2 kk3)
ll2 '(0. 1 "ABC")
)
(defun ajbcs () (xyp-Multiple-Settile ll1 ll2))
(xyp-initSet ll1 ll2)
(setq ilst '(("kk1" "实数" "real" "8")
("kk2" "整数" "int" "8")
("kk3" "文本" "str" "8")
"spacer;"
("" "" "user" "(aaa)")
)
)
(xyp-Dcl-Init Ilst "【测试】" t)
(princ)
)
那就先判断两个edit_box的动作在延时不就可以了 革天明 发表于 2013-1-19 08:58
KKK和KKL是两个edit_box，希望里面的内容先填入，等待CS按键可用
这种思路在Dcl完全行不通，所以不要折腾了！换个思路，通过控件件间各值的相互关系来控制控件是否可用！ Gu_xl 发表于 2013-1-19 10:07 static/image/common/back.gif
这种思路在Dcl完全行不通，所以不要折腾了！换个思路，通过控件件间各值的相互关系来控制控件是否可用！
好吧，DCL搞不了了，那OPENDCL，VBA可以吗？ xyp1964 发表于 2013-1-19 09:24 static/image/common/back.gif
院长， 我希望实现三个文本框的内容先出来，等待3秒钟后确定键才能使用，看G版的说法，判断文本框的内容是否想要的内容也是比较好的 本帖最后由 革天明 于 2013-1-19 16:53 编辑
无解的话就算了，DCL还是弱啊，谢谢诸位了!
页:
1
[2]