下拉列表框的改造

templeecw

对话框中有个下拉列表框，功能类似于popup_list，但要比这个强一点，就是不仅可以列出一些常用值，而且还允许手动输入想要的值，请问这个控件该如何实现？

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://xyp1964.ys168.com
   
3. (defun c:tt (/ ilst ll1 ll2)
   
4.   (defun apo1 ()
   
5.     (xyp-Dcl-Gettile '("po1"))
   
6.     (set_tile "t1" (nth (atoi po1) lst1))
   
7.   )
   
8.   (xyp-initSet '(t1 po1) '("" "0"))
   
9.   (setq        lst1 '("1" "2" "3" "4" "5" "6" "7" "8" "9" "10")
   
10.         ilst '(":row{"
    
11.                ("t1" "文本" "str" "8")
    
12.                ("po1" "" "poplist" "lst1" "8" "(apo1)")
    
13.                "}"
    
14.                "spacer;"
    
15.               )
    
16.   )
    
17.   (xyp-Dcl-Init Ilst "【测试】" t)
    
18.   (princ)
    
19. )

;; 需要e派工具箱(XCAD)的支持：http://xyp1964.ys168.com<br /> (defun c:tt (/ ilst ll1 ll2)<br />   (defun apo1 ()<br />     (xyp-Dcl-Gettile '("po1"))<br />     (set_tile "t1" (nth (atoi po1) lst1))<br />   )<br />   (xyp-initSet '(t1 po1) '("" "0"))<br />   (setq        lst1 '("1" "2" "3" "4" "5" "6" "7" "8" "9" "10")<br />         ilst '(":row{"<br />                ("t1" "文本" "str" "8")<br />                ("po1" "" "poplist" "lst1" "8" "(apo1)")<br />                "}"<br />                "spacer;"<br />               )<br />   )<br />   (xyp-Dcl-Init Ilst "【测试】" t)<br />   (princ)<br /> )

wowan1314

?真能实现下拉列表与编辑框的合并吗？

wowan1314

没看懂啊。。。。。
求达人解释

jyzas

这种方法不美观，占用界面，要是能把2个控件重叠在一起，点击下拉列表显示出下拉内容，点击文本框内容可以手动输入就差不多