求超级列表框 自动循环，比如到3000个停止后又重新从第一个开始。

不停游的鱼

求超级列表框 自动循环，比如目前的情况是导入到3101个运行到最后一个的时候会自动停止，但我想如果他到跳转到最后一个的时候就自动又从第一个开始，大家帮忙看一下好吗，谢谢。

[sup].版本 2
.支持库 iext
.子程序 _按钮5_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 列, 文本型, , "2"
.局部变量 总数, 整数型
.局部变量 x, 整数型
.局部变量 表项索引, 整数型
通用对话框1.打开 ()
数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
总数 ＝ 取数组成员数 (数组)
.计次循环首 (总数, x)
    列 ＝ 分割文本 (数组 [x], “----”, )
    .如果真 (取数组成员数 (列) ＝ 2)
        表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (表项索引, 0, 到文本 (表项索引 ＋ 1))
        超级列表框1.置标题 (表项索引, 1, 列 [1])
        超级列表框1.置标题 (表项索引, 2, 列 [2])
    .如果真结束
.计次循环尾 ()
信息框 (“共导入” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “个账号”, 0, )
' 标签_状态.标题 ＝ “共导入” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “个账号”
超级列表框1.现行选中项 ＝ 0
编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
编辑框2.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
[/sup]

御风软件

.版本 2
.支持库 iext

.如果真(当前表项=超级列表框1.取表项数 () － 1)
    超级列表框1.现行选中项 ＝ 0
------------------------------------------
楼主采纳吧，加好评吧。。。。。

紅顏じ亦沉淪ジ

当x=总数的时候，让x=1，你懂得

龍孞

试试效果吧！

不停游的鱼

紅顏じ亦沉淪ジ 发表于 2012-9-25 10:17
当x=总数的时候，让x=1，你懂得

{:soso_e109:}版主，我就是不会的你帮忙修改一下好吗，因为这个源码我是找人花钱改的，那人现在做完后不理人，挺无语的。

elang136

楼主，花钱给我啊，一定做到低。{:soso_e113:}服务到你家

不停游的鱼

elang136 发表于 2012-9-25 10:25
楼主，花钱给我啊，一定做到低。服务到你家

QQ 告诉我一下吧

紅顏じ亦沉淪ジ

429366133 wo Q

5609689

不停游的鱼 发表于 2012-9-25 10:28
QQ 告诉我一下吧

免费为易友提供简单帮助！
上传源码，帮你搞定

枫峡

看看。。。。。