这样的功能可以实现吗 如果能要怎么实现呢 大牛在哪里

木子吉苦

如图： 点击按钮后变为
这样的功能哪位大牛帮忙解决下 谢谢了

linwehao000

.版本 2
.支持库 EThread
.支持库 iext
.程序集 窗口程序集1
.程序集变量 线程句柄, 整数型
.子程序 _按钮1_被单击, , , 使用线程防止假死
启动线程 (&列表框排序, , 线程句柄)

.子程序 列表框排序, , , 查找和加入
.局部变量 i, 整数型, , , 主循环
.局部变量 x, 整数型, , , 次循环
.局部变量 w, 整数型, , , 记录数量
.局部变量 z, 整数型, , , 第二个列表西环
.局部变量 a, 整数型, , , 将第二个超级列表框中的项目加入到第一个列表框中
.局部变量 s, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
超级列表框排序 (超级列表框1, 0, , , )
.计次循环首 (超级列表框1.取表项数 (), i)
    w ＝ 0
    d ＝ 0
    .计次循环首 (超级列表框1.取表项数 (), x)
        .判断开始 (超级列表框1.取标题 (i － 1, 0) ＝ 超级列表框1.取标题 (x － 1, 0))
            w ＝ w ＋ 1
        .默认
        .判断结束
    .计次循环尾 ()
    .计次循环首 (超级列表框2.取表项数 (), c)
        .判断开始 (寻找文本 (超级列表框1.取标题 (i － 1, 0), 超级列表框2.取标题 (c － 1, 0), , 假) ≠ -1)
            d ＝ d ＋ 1
        .默认
        .判断结束
    .计次循环尾 ()
    .判断开始 (d ＜ 1)
        z ＝ 超级列表框2.插入表项 (, , , , , )
        超级列表框2.置标题 (z, 0, 超级列表框1.取标题 (i － 1, 0))
        超级列表框2.置标题 (z, 1, 超级列表框1.取标题 (i － 1, 1))
        超级列表框2.置标题 (z, 2, 到文本 (w))
    .默认
    .判断结束
.计次循环尾 ()
超级列表框1.全部删除 ()
.计次循环首 (超级列表框2.取表项数 (), a)  ' 清空第一个超级列表框，将第二个列表框的内容加入到第一个中，第二可视设为假
    s ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (s, 0, 超级列表框2.取标题 (a － 1, 0))
    超级列表框1.置标题 (s, 1, 超级列表框2.取标题 (a － 1, 1))
    超级列表框1.置标题 (s, 2, 超级列表框2.取标题 (a － 1, 2))
.计次循环尾 ()
超级列表框排序 (超级列表框1, 0, , , )
.子程序 __启动窗口_创建完毕, , , 启动时超级列表框中加入成员
.局部变量 s, 整数型
.计次循环首 (1000, )
    s ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (s, 0, 文本_取随机数字 (3))
    超级列表框1.置标题 (s, 1, 文本_取随机数字 (2))
.计次循环尾 ()

linwehao000

排序对比法，对比后用数组保存，然后清空超级列表框，在写入

爱的凌迟

这个不难啊,自己琢磨着写

木子吉苦

我爱莫能助 发表于 2011-9-23 20:00
这个不难啊,自己琢磨着写

想破天了 也许方法不对 想的头都大了 帮帮忙写下代码

大头佛

文本数组 循环赋值 文本_是否重复（） 自己琢磨

木子吉苦

大头佛 发表于 2011-9-23 20:07
文本数组 循环赋值 文本_是否重复（） 自己琢磨

{:3_236:}童鞋们都这么好 非要开发我的大脑

神话天神

这个功能应该是可以实现的

专打断桥残雪

{:3_227:}太不难了！自己想！

a110

木子吉苦 发表于 2011-9-23 20:08
童鞋们都这么好 非要开发我的大脑

{:3_228:}

我脑壳也想大了呢。