自动调整超级列表框的列宽源码

菜鸟一枚，琢磨一下怎么样随文本长度（包括列标题）自动调整超级列表框的列宽，论坛应该已经有类似的了，相互学习哈。大神们可以忽略啦~~~~~~

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 i, 整数型
.局部变量 w, 整数型

w ＝ 到整数 (编辑框1.内容)
.计次循环首 (w, i)
    a ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (a, 0, “第” ＋ 到文本 (i) ＋ “款式”)
    超级列表框1.置标题 (a, 1, “+” ＋ 到文本 (i) ＋ “码”)
    超级列表框1.置标题 (a, 2, 到文本 (i × 100) ＋ “套”)
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 文长, 整数型
.局部变量 文长组, 整数型, , "0"

.如果 (超级列表框1.取表项数 () ≠ 0)
    .计次循环首 (超级列表框1.取列数 (), i)
        .计次循环首 (超级列表框1.取表项数 (), j)
            文长 ＝ 取文本长度 (超级列表框1.取标题 (j － 1, i － 1))
            加入成员 (文长组, 文长)
        .计次循环尾 ()
        数组排序 (文长组, 假)  ' 排序后，最大值为:文长组[1]，即列中最长文本的长度
        .判断开始 (取文本长度 (超级列表框1.取列标题 (i － 1)) ＜ 文长组 [1])
            超级列表框1.置列宽 (i － 1, -1)  ' -1 ，则根据【列数据】最大宽度自动调整列尺寸
        .判断 (取文本长度 (超级列表框1.取列标题 (i － 1)) ≥ 文长组 [1])
            超级列表框1.置列宽 (i － 1, -2)  ' -2 ，则根据【列标题】宽度自动调整列尺寸
        .默认

        .判断结束
        清除数组 (文长组)
    .计次循环尾 ()
.否则

.如果结束


.子程序 _编辑框1_内容被改变

超级列表框1.全部删除 ()
超级列表框1.置列宽 (0, 50)
超级列表框1.置列宽 (1, 50)
超级列表框1.置列宽 (2, 50)

.子程序 _编辑框1_获得焦点

编辑框1.内容 ＝ “”

.子程序 _按钮3_被单击

超级列表框1.全部删除 ()
_按钮1_被单击 ()
_按钮2_被单击 ()

@碎石