超级列表框显示断档问题求助

南风窗

超级列表框显示断档问题求助，昨天发的附件因为带有特殊功能库，下载的朋友多打不开，这个可以了。帮我分析并解决问题，被采纳后，到 https://bbs.125.la/thread-14247243-1-1.html 回几个字一共35精币谢意。



补充内容 (2018-10-14 20:13):
多线程支持库1.1版在6楼

补充内容 (2018-10-15 15:56):
已解决，此帖关闭！！！

by626

载入失败的程序不能被编译!

南风窗

by626 发表于 2018-10-14 19:59
载入失败的程序不能被编译!

我只用到 精易模块6.7啊,怎么会?

yycold

载入失败的程序不能被编译!

1314i

把你的多线程支持库1.1版 发一下没有我进不去调试

南风窗

.版本 2
.支持库 iext
.支持库 spec
.支持库 EThread
.支持库 ethreadnew

.程序集 窗口程序集_启动窗口
.程序集变量 线程数, 整数型
.程序集变量 线程句柄, 整数型

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

线程_启动 (&子程序1)

.子程序 子程序1
.局部变量 文本组, 文本型, , "0"
.局部变量 i, 整数型

文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (文本组), i)
    超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (i － 1, 0, 到文本 (i))
    超级列表框1.置标题 (i － 1, 1, 文本组 [i])
.计次循环尾 ()

.子程序 _超级列表框1_当前表项被改变
.局部变量 数据, 文本型

超级列表框1.获取焦点 ()
数据 ＝ 文本_取出中间文本 (网页_访问S (“http://www.ip138.com/ips1388.asp?ip=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “&action=2”), “本站数据：”, “</li><li>”)
超级列表框1.置标题 (超级列表框1.现行选中项, 2, 数据)

.子程序 _按钮2_被单击
.局部变量 计次, 整数型
.局部变量 数据, 文本型

.计次循环首 (超级列表框1.取表项数 (), 计次)
    数据 ＝ 文本_取出中间文本 (网页_访问S (“http://www.ip138.com/ips1388.asp?ip=” ＋ 超级列表框1.取标题 (计次 － 1, 1) ＋ “&action=2”), “本站数据：”, “</li><li>”)
    超级列表框1.置标题 (计次 － 1, 2, 数据)
.计次循环尾 ()

.子程序 启动线程_文本, 逻辑型
.参数 子程序指针, 子程序指针
.参数 传递文本, 文本型, 可空
.参数 线程句柄, 整数型, 可空
.局部变量 内存指针, 整数型
.局部变量 返回值, 逻辑型

内存指针 ＝ 申请内存 (取字节集长度 (到字节集 (传递文本)), 真)
写到内存 (传递文本, 内存指针, )
返回值 ＝ 启动线程 (子程序指针, 内存指针, 线程句柄)
延迟 (10)
释放内存 (内存指针)
返回 (返回值)

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

线程_置CPU (-1, 1)
' 线程池.启动 (20, &IP查询线程, )
线程句柄 ＝ 创建线程池 (5, 50, &IP查询线程, 10000, 1048576)

.子程序 IP查询线程
.参数 参数, 整数型
.局部变量 许可证号, 线程许可证
.局部变量 ip, 文本型
.局部变量 数据1, 文本型
.局部变量 数据2, 文本型

许可证号 ＝ 线程_创建许可证 ()
线程_进入许可区 (许可证号)
线程_初始化COM库 ()

移到文件首 (参数)
读入数据 (参数, ip)
关闭文件 (参数)

数据1 ＝ 文本_取出中间文本 (网页_访问S (“http://www.ip138.com/ips1388.asp?ip=” ＋ ip ＋ “&action=2”, , , , , , , , , , , , , , , , , ), “本站数据：”, “</li><li>”, , )
置用户地址 (ip, 数据1)

数据2 ＝ 文本_取出中间文本 (网页_访问S (“http://” ＋ ip ＋ “:81/%5ccgi-bin/get_params.cgi”, , , , , , , , , , , , , , , , , ), “var ntp_svr=” ＋ #引号, #引号 ＋ “;”, , )
置time (ip, 数据2)

线程_取消COM库 ()
线程_退出许可区 (许可证号)
线程_删除许可证 (许可证号)


.子程序 置用户地址
.参数 ip, 文本型
.参数 地址, 文本型
.局部变量 表项, 整数型

表项 ＝ 超级列表框1.查找表项 (ip, , , 1)
.如果真 (表项 ≠ -1)
    超级列表框1.置标题 (表项, 2, 地址)
.如果真结束


.子程序 置time
.参数 ip, 文本型
.参数 time, 文本型
.局部变量 表项, 整数型

表项 ＝ 超级列表框1.查找表项 (ip, , , 1)
.如果真 (表项 ≠ -1)
    超级列表框1.置标题 (表项, 3, time)
.如果真结束


.子程序 加入线程
.参数 ip, 文本型
.局部变量 参数数据, 整数型

参数数据 ＝ 打开内存文件 ()
写出数据 (参数数据, ip)
加入工作 (线程句柄, 参数数据)


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

.计次循环首 (超级列表框1.取表项数 (), i)
    ' 调试输出 (超级列表框1.取标题 (i － 1, 1))
    加入线程 (超级列表框1.取标题 (i － 1, 1))

    处理事件 ()
.计次循环尾 ()

南风窗

多线程支持库1.1版

南风窗

多线程支持库1.1版 在6楼