DCL上的控件能否做到延时3秒才可使用？

xyp1964

2. ;; 伪源码需要e派工具箱(XCAD)的支持
   
3. (defun c:tt (/ t0 lst ll1 ll2 ilst)
   
4.   (defun aaa ()
   
5.     (while (< (- (* 86400 (getvar "tdusrtimer")) t0) 3)
   
6.       (foreach a lst (mode_tile a 1))
   
7.     )
   
8.     (foreach a lst (mode_tile a 0))
   
9.   )
   
10.   (setq t0  (* 86400 (getvar "tdusrtimer"))
    
11. lst '("kk1" "kk2" "kk3" "accept" "cancel")
    
12. ll1 '(kk1 kk2 kk3)
    
13. ll2 '(0. 1 "ABC")
    
14.   )
    
15.   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))
    
16.   (xyp-initSet ll1 ll2)
    
17.   (setq ilst '(("kk1" "实数" "real" "8")
    
18.         ("kk2" "整数" "int" "8")
    
19.         ("kk3" "文本" "str" "8")
    
20.         "spacer;"
    
21.         ("" "" "user" "(aaa)")
    
22.        )
    
23.   )
    
24.   (xyp-Dcl-Init Ilst "【测试】" t)
    
25.   (princ)
    
26. )

;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt (/ t0 lst ll1 ll2 ilst)<br />   (defun aaa ()<br />     (while (< (- (* 86400 (getvar "tdusrtimer")) t0) 3)<br />       (foreach a lst (mode_tile a 1))<br />     )<br />     (foreach a lst (mode_tile a 0))<br />   )<br />   (setq t0  (* 86400 (getvar "tdusrtimer"))<br /> lst '("kk1" "kk2" "kk3" "accept" "cancel")<br /> ll1 '(kk1 kk2 kk3)<br /> ll2 '(0. 1 "ABC")<br />   )<br />   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))<br />   (xyp-initSet ll1 ll2)<br />   (setq ilst '(("kk1" "实数" "real" "8")<br />         ("kk2" "整数" "int" "8")<br />         ("kk3" "文本" "str" "8")<br />         "spacer;"<br />         ("" "" "user" "(aaa)")<br />        )<br />   )<br />   (xyp-Dcl-Init Ilst "【测试】" t)<br />   (princ)<br /> )

ScmTools

那就先判断两个edit_box的动作在延时不就可以了

Gu_xl

革天明 发表于 2013-1-19 08:58
KKK和KKL是两个edit_box，希望里面的内容先填入，等待CS按键可用

这种思路在Dcl完全行不通，所以不要折腾了！换个思路，通过控件件间各值的相互关系来控制控件是否可用！

革天明

Gu_xl 发表于 2013-1-19 10:07
这种思路在Dcl完全行不通，所以不要折腾了！换个思路，通过控件件间各值的相互关系来控制控件是否可用！

好吧，DCL搞不了了，那OPENDCL，VBA可以吗？

革天明

xyp1964 发表于 2013-1-19 09:24

院长， 我希望实现三个文本框的内容先出来，等待3秒钟后确定键才能使用，看G版的说法，判断文本框的内容是否想要的内容也是比较好的

革天明

无解的话就算了，DCL还是弱啊，谢谢诸位了!