超级列表框，加功能

edisonzhu

大家好，还是需要各位帮忙。加两个功能。

网速测试4.e (6.67 KB, 下载次数: 1)

2020-8-13 10:41 上传

点击文件名下载附件

请添加两个功能：
1.测速地址可添加或编辑
2.测试地址可显示对应服务器名称
可以是调用外部TXT，或INI文件实现

谢谢各位了

汉族

新附件：增加了   手动： 测速.zip (1.06 MB, 下载次数: 2)

2020-8-13 18:01 上传

点击文件名下载附件   修复了 没注意的问题，下次能不能发求助区  金币求助 没几个人回答你的。

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 文件到超级列表框 (取运行目录 () ＋ “\地址.txt”, 超级列表框1)
拖放.拖放对象_zc (超级列表框1.取窗口句柄 (), &接收文件)

子程序名	返回值类型	公开	备 注
接收文件
参数名	类 型	参考	可空	数组	备 注
文件名	文本型

变量名	类 型	静态	数组	备 注
STR	文本型

STR ＝ 到文本 (读入文件 (文件名))
处理 (STR)

子程序名	返回值类型	公开	备 注
处理
参数名	类 型	参考	可空	数组	备 注
str	文本型

变量名	类 型	静态	数组	备 注
文本组	文本型		0
j	整数型

str ＝ 子文本替换 (str, #换行符, “,”, , , 真)
文本组 ＝ 分割文本 (str, “,”, )
重定义数组 (文本组, 真, 取数组成员数 (文本组) ÷ 2, 2)
计次循环首 (取数组下标 (文本组, ), j)
测试速度 (文本组 [j] [1], 文本组 [j] [2])
延时 (50)
处理事件 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
STR	文本型
str_z	文本型		0

' 超级列表框到文件 (超级列表框1, 取运行目录 () ＋ “\地址.txt”)
str_z ＝ 多文件对话框 (“请选择文件（请不要多选）”, “(文本文件TXT)|*.txt”, 0, 取特定目录 ( #系统桌面 ), , )
如果真 (取数组成员数 (str_z) ≠ 0)
STR ＝ 到文本 (读入文件 (str_z [1]))
处理 (STR)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 文件到超级列表框 (取运行目录 () ＋ “\地址.txt”, 超级列表框1)<br /> 拖放.拖放对象_zc (超级列表框1.取窗口句柄 (), &接收文件)<br /> <br /> .子程序 接收文件<br /> .参数 文件名, 文本型<br /> .局部变量 STR, 文本型<br /> <br /> STR ＝ 到文本 (读入文件 (文件名))<br /> 处理 (STR)<br /> <br /> .子程序 处理<br /> .参数 str, 文本型<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> <br /> str ＝ 子文本替换 (str, #换行符, “,”, , , 真)<br /> 文本组 ＝ 分割文本 (str, “,”, )<br /> 重定义数组 (文本组, 真, 取数组成员数 (文本组) ÷ 2, 2)<br /> .计次循环首 (取数组下标 (文本组, ), j)<br />     测试速度 (文本组 [j] [1], 文本组 [j] [2])<br />     延时 (50)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 STR, 文本型<br /> .局部变量 str_z, 文本型, , "0"<br /> <br /> ' 超级列表框到文件 (超级列表框1, 取运行目录 () ＋ “\地址.txt”)<br /> str_z ＝ 多文件对话框 (“请选择文件（请不要多选）”, “(文本文件TXT)|*.txt”, 0, 取特定目录 (#系统桌面), , )<br /> .如果真 (取数组成员数 (str_z) ≠ 0)<br />     STR ＝ 到文本 (读入文件 (str_z [1]))<br />     处理 (STR)

汉族

模块不放心自己删   除： 测速.zip (1.06 MB, 下载次数: 2)

2020-8-13 12:38 上传

点击文件名下载附件

汉族

演示图：

edisonzhu

汉族 发表于 2020-8-13 12:38
演示图：

感谢。可否改成直接读取TXT，然后测速即可。
拖动的话，有点被动，

edisonzhu

汉族 发表于 2020-8-13 12:38
模块不放心自己删   除：

反馈一个BUG

汉族

edisonzhu 发表于 2020-8-13 13:29
反馈一个BUG

不好意思没注意

我都加入了 下标都忘了添加 汗~~~~~



补充内容 (2020-8-13 17:53):
你看我调试就知道了  暂停那里，  后面  就没注意  

edisonzhu

汉族 发表于 2020-8-13 18:02
新附件：增加了   手动：  修复了 没注意的问题，下次能不能发求助区  金币求助 没几个人回答你的。

[e= ...

感谢。
我发到求助区的，被版主移到这里的。。。
我可能是对求助理解错了。。。

edisonzhu

汉族 发表于 2020-8-13 17:52
不好意思没注意

我都加入了 下标都忘了添加 汗~~~~~

再请教。
如何在启动对话框时，自动加载TXT文件，点“测试”时，再进行测速，显示结果。

汉族

增加手动  测试TXT： 测速.zip (1.06 MB, 下载次数: 1)

2020-8-14 12:17 上传

点击文件名下载附件