紧急求助（超级列表框的上下移动内容）

泡泡

比如 超级列表框内容：
123456
456789
111111
222222

下移  上移
如果单击‘下移’ 内容“111111”就移动到“222222”的下面了
如果单击‘上移’内容“111111”就移动到“456789”的上面了

huomu

超级列表.e (2.75 KB, 下载次数: 150)

2010-3-21 11:23 上传

点击文件名下载附件

看看是你需要的不

泡泡

回复 2# huomu

不精则易

看看是你需要的不
huomu 发表于 2010-3-21 11:24

    2楼的版主已应助楼主了。不过楼主要的可能是如附图的效果。

泡泡

回复 4# 不精则易


    是你这图 片的效果``

泡泡

要的就是这图 片的效果``谁帮我解决下呀``谢谢了

qq974969638

给你源码
.版本 2
.支持库 iext

.子程序 _上移动按钮_被单击
.局部变量 索引, 整数型
.局部变量 标题1, 文本型

索引 ＝ 超级列表框.现行选中项
.如果真 (索引 ＝ 1)
    超级列表框.选择表项 (索引)
    返回 ()
.如果真结束
标题1 ＝ 超级列表框.取标题 (索引, )
超级列表框.删除表项 (索引)
超级列表框.插入表项 (索引 － 1, 标题1, , , , )
超级列表框.选择表项 (索引 － 1)


.子程序 _下移动按钮_被单击
.局部变量 索引, 整数型
.局部变量 标题1, 文本型
.局部变量 总, 整数型

索引 ＝ 超级列表框.现行选中项
总 ＝ 超级列表框.取表项数 ()
.如果真 (索引 ＝ 总)
    超级列表框.选择表项 (索引)
.如果真结束
标题1 ＝ 超级列表框.取标题 (索引, )
超级列表框.删除表项 (索引)
超级列表框.插入表项 (索引 ＋ 1, 标题1, , , , )
超级列表框.选择表项 (索引 ＋ 1)

qq974969638

bu duei w zai gai

帮不上。。。。