列表框的label字符串能动态修改吗？

SWAYWOOD

多谢老大！

wdb

所谓动态，就是根据需要随时修改标题，而不是固定的标题。

meflying

注：变量LST要跟对话框中的list对应，因为list_box返回的是选中项的索引值

;程序内容------------

2. 
   
3. (defun c:test( / dcl_id lst)
   
4.   (setq lst '("A" "B" "C"))
   
5.   (if (< (setq dcl_id (load_dialog "dy")) 0) (exit))
   
6.   (if (not (new_dialog "mydcl" dcl_id)) (exit))
   
7.   (action_tile "tt" "(set_tile "title" (nth (atoi $value) lst))")
   
8.   (start_dialog)
   
9.   (unload_dialog dcl_id)
   
10.   (princ)
    
11. )
    

<br /> (defun c:test( / dcl_id lst)<br />   (setq lst '("A" "B" "C"))<br />   (if (< (setq dcl_id (load_dialog "dy")) 0) (exit))<br />   (if (not (new_dialog "mydcl" dcl_id)) (exit))<br />   (action_tile "tt" "(set_tile "title" (nth (atoi $value) lst))")<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br />   (princ)<br /> )<br />

对话框内容------------------

2. 
   
3. //  dcl试验对话框
   
4. mydcl : dialog {
   
5.     label = "试验";
   
6.     :text {label="要修改的标题"; key = "title";}
   
7.     : list_box {label="要修改的标题"; key = "tt"; list = "A\nB\nC";
   
8.         }   
   
9.       ok_cancel;     
   
10. }
    

<br /> //  dcl试验对话框<br /> mydcl : dialog {<br />     label = "试验";<br />     :text {label="要修改的标题"; key = "title";}<br />     : list_box {label="要修改的标题"; key = "tt"; list = "A\nB\nC";<br />         }    <br />       ok_cancel;     <br /> } <br />

wdb

所问非所答。我是想修改列表框本身的标题label,并不是text的标题。我用DCL举个例子，"原对话框"经过程序修改列表框的label值后能达到"修改后的对话框"的效果.(可用列表框来触发回调)

-----原对话框----
//  dcl试验对话框
mydcl : dialog {
    label = "试验";
    : list_box {label="你好吗?"; key = "tt"; list = "A\nB\nC";
        }   
      ok_cancel;     
}


-----修改后的对话框----

//  dcl试验对话框
mydcl : dialog {
    label = "试验";
    : list_box {label="天气好,心情也不错!"; key = "tt"; list = "A\nB\nC";
        }   
      ok_cancel;     
}

meflying

好象不行，

wdb

看来这个问题真的不好解决。

meflying

做事不可以死钻牛角尖的，比如你可以用你所说的TEXT,或者不去改变这个标题，想想，有什么必要非得改这个标题？

wdb

还是用text吧，只是标题与列表框的距离远了点，给人的感觉不爽。