DCL listbox 如何多列数据显示

言戲無軍

请教坛里大佬 DCL listbox 如何多列数据显示 ？
目前看到都是单列listbox 多列显示是可以实现的  就是不知道数据如何填充 单列是依次填充 多列是填充一个list表进去吗？
如下图所示，已自己摸索出来。用于展示数据还是可以的。
add_list 的字符串里加入 tab 转义符号 "\t"就是分列

wzg356

1搞个假的 几个listbox列显示
2这里有一个http://bbs.mjtd.com/thread-113678-1-1.html。


(start_list "坐标表")
(mapcar  'add_list
    (mapcar '(lambda(ixyz)
            (strcat
            (vl-princ-to-string (car ixyz)) "\t"
            (vl-princ-to-string (nth 1 ixyz)) "\t"
            (vl-princ-to-string (nth 2 ixyz)) "\t"
            (vl-princ-to-string (nth 3 ixyz)) "\t"
            )) Lst
))
(end_list)


Lst：'（（1 x1 y1 z1）（2 x2 y2 z2）.....）

wzg356

接8楼
(strcat (vl-princ-to-string (car ixyz)) "\t"
       "|"(vl-princ-to-string (nth 1 ixyz)) "\t"
       "|"(vl-princ-to-string (nth 2 ixyz)) "\t"
       "|"(vl-princ-to-string (nth 3 ixyz)) "\t"
)

对话框下面2种均可
:llist_box{key="name";tabs="5 15 25 35";
tabs="5 15 25 30"表示每格的末尾位置
第1234格的宽度为5 10 10 5个字符

:llist_box{key="name";tabs=10;
tabs=10表示单格的固定宽度（字符数量）

start4444

给你个参考，把他转成循环历遍就能通用了

(setq lst '("第一行" "第二行" "第三行"))
(start_list "listboxkey")
(add_list (car lst))
(add_list (cadr lst))       
(add_list (caddr lst))       
(end_list)

自贡黄明儒

想多列，就不要用DCL;用DCL,就没有多列。

言戲無軍

有的 大佬 我看到有人使用了

言戲無軍

自贡黄明儒 发表于 2020-9-14 14:52
想多列，就不要用DCL;用DCL,就没有多列。

改写秋风批量打印的程序里就有3.6.1

言戲無軍

start4444 发表于 2020-9-14 17:28
给你个参考，把他转成循环历遍就能通用了

(setq lst '("第一行" "第二行" "第三行"))

感谢回复 这个是单列

start4444

言戲無軍 发表于 2020-9-14 17:52
感谢回复 这个是单列

截个图看看是什么效果的

言戲無軍

wzg356 发表于 2020-9-14 19:34
1搞个假的 几个listbox列显示
2这里有一个http://bbs.mjtd.com/thread-113678-1-1.html。

感谢回复 你也是地质行业啊

jun353835273

||||||这个符号分割，先要把表的数据统一成最多那个字符串的个数，中间填充 空格末尾填充“|”就实现了