如何让对话框不退出 ?

lucas3

请问 点击4个按钮执行后, 本身的对话框都会关掉,  如何让对话框不退出 ? 比如下面的打开计算器与打开网站这两个,点击按钮后,对话框不退出

问题已经解决了!

1. (defun dhk(/ Dialog_Return dcl_id )
   
2. (setq dcl_id (load_dialog (make-dcl)))
   
3. (setq Dialog_Return 2)
   
4. (while
   
5. (or (= Dialog_Return 2)(= Dialog_Return 5))
   
6. (new_dialog "temp" dcl_id)
   
7. (action_tile "t1" "(done_dialog 2)")
   
8. (action_tile "t2" "(done_dialog 3)")
   
9. (action_tile "t3" "(done_dialog 4)")
   
10. (action_tile "t4" "(done_dialog 5)")
    
11. (action_tile "accept" "(done_dialog 1)")
    
12. (action_tile "cancel" "(done_dialog 0)")
    
13. (setq Dialog_Return (start_dialog))
    
14. (cond
    
15. ((= Dialog_Return 2) (startapp "calc"))
    
16. ((= Dialog_Return 3) (command "Line"))
    
17. ((= Dialog_Return 4) (c:tt))
    
18. ((= Dialog_Return 5) (startapp "C:\\Program Files\\Internet Explorer\\iexplore.exe" "bbs.mjtd.com"))
    
19. )
    
20. )
    
21. (unload_dialog dcl_id)
    
22. )

(defun dhk(/ Dialog_Return dcl_id )<br /> (setq dcl_id (load_dialog (make-dcl)))<br /> (setq Dialog_Return 2)<br /> (while<br /> (or (= Dialog_Return 2)(= Dialog_Return 5))<br /> (new_dialog "temp" dcl_id)<br /> (action_tile "t1" "(done_dialog 2)")<br /> (action_tile "t2" "(done_dialog 3)")<br /> (action_tile "t3" "(done_dialog 4)")<br /> (action_tile "t4" "(done_dialog 5)")<br /> (action_tile "accept" "(done_dialog 1)")<br /> (action_tile "cancel" "(done_dialog 0)")<br /> (setq Dialog_Return (start_dialog))<br /> (cond <br /> ((= Dialog_Return 2) (startapp "calc"))<br /> ((= Dialog_Return 3) (command "Line"))<br /> ((= Dialog_Return 4) (c:tt))<br /> ((= Dialog_Return 5) (startapp "C:\\Program Files\\Internet Explorer\\iexplore.exe" "bbs.mjtd.com"))<br /> )<br /> )<br /> (unload_dialog dcl_id)<br /> )

newer

如果想点击按钮后，执行点东西，然后又回到对话框，那么把代码放到循环里面，满足特定值才退出。

lucas3

newer 发表于 2014-10-21 16:54
如果想点击按钮后，执行点东西，然后又回到对话框，那么把代码放到循环里面，满足特定值才退出。

谢谢,问题已经解决了

2. (defun dhk(/ Dialog_Return dcl_id )
   
3. (setq dcl_id (load_dialog (make-dcl)))
   
4. (setq Dialog_Return 2)
   
5. (while
   
6. (or (= Dialog_Return 2)(= Dialog_Return 5))
   
7. (new_dialog "temp" dcl_id)
   
8. (action_tile "t1" "(done_dialog 2)")
   
9. (action_tile "t2" "(done_dialog 3)")
   
10. (action_tile "t3" "(done_dialog 4)")
    
11. (action_tile "t4" "(done_dialog 5)")
    
12. (action_tile "accept" "(done_dialog 1)")
    
13. (action_tile "cancel" "(done_dialog 0)")
    
14. (setq Dialog_Return (start_dialog))
    
15. (cond
    
16. ((= Dialog_Return 2) (startapp "calc"))
    
17. ((= Dialog_Return 3) (command "Line"))
    
18. ((= Dialog_Return 4) (c:tt))
    
19. ((= Dialog_Return 5) (startapp "C:\\Program Files\\Internet Explorer\\iexplore.exe" "bbs.mjtd.com"))
    
20. )
    
21. )
    
22. (unload_dialog dcl_id)
    
23. )

(defun dhk(/ Dialog_Return dcl_id )<br /> (setq dcl_id (load_dialog (make-dcl)))<br /> (setq Dialog_Return 2)<br /> (while<br /> (or (= Dialog_Return 2)(= Dialog_Return 5))<br /> (new_dialog "temp" dcl_id)<br /> (action_tile "t1" "(done_dialog 2)")<br /> (action_tile "t2" "(done_dialog 3)")<br /> (action_tile "t3" "(done_dialog 4)")<br /> (action_tile "t4" "(done_dialog 5)")<br /> (action_tile "accept" "(done_dialog 1)")<br /> (action_tile "cancel" "(done_dialog 0)")<br /> (setq Dialog_Return (start_dialog))<br /> (cond <br /> ((= Dialog_Return 2) (startapp "calc"))<br /> ((= Dialog_Return 3) (command "Line"))<br /> ((= Dialog_Return 4) (c:tt))<br /> ((= Dialog_Return 5) (startapp "C:\\Program Files\\Internet Explorer\\iexplore.exe" "bbs.mjtd.com"))<br /> )<br /> )<br /> (unload_dialog dcl_id)<br /> )