批量复制组件 线程载入图片 崩溃

七娃qwq

因为是网络图片所以要用线程读取图片然后载入图片框 这里直接使用字节集模拟

相关代码如下：

程序集变量 复制图片框 类型:图片框 数组:0

子程序 载入图片 逻辑型

计次循环首（250,a）
创建图片组(创建位置，图片地址字节集模拟，)
计次循环尾

返回(真)


子程序 创建图片组
创建位置 整数型
图片地址 字节集
临时图片框 图片框

变量 左边 整数型
变量 顶边 整数型


左边 = 创建位置 % 5

顶边 = 创建位置 % 5

复制窗口组件(图片框，临时图片框)
临时图片框.左边=左边
临时图片框.顶边=顶边
临时图片框.标记 = 创建位置
临时图片框.可视=真
加入成员(复制图片框,临时图片框)

延迟(200)
返回







补充内容 (2020-3-3 20:52):
代码没打完 按到回车自己发出去了 补充在1楼
总结就是：子程序复制图片框 然后再启动线程载入图片
软件很不稳定 经常崩溃

补充内容 (2020-3-3 20:53):
试着添加过许可证 还有 加长尾部延迟  都会崩溃

七娃qwq

这是相关的简洁源码  需要久一点才会崩溃

补充内容 (2020-3-4 12:31):
测试用的图片可能略大 可以用10-30kb的图片替换掉 #图片1

七娃qwq

代码没打完 按到回车自己发出去了

接下来是

线程_启动(&加载图片)

延迟(1000)


子程序 加载图片
创建位置 整数型

变量 临时图片框

临时图片框 = 复制图片框[创建位置]

临时图片框.图片 = 图片地址

代码就这些 运行不是很稳定 有时候复制到5 或 70  100 140 都会软件崩溃
子程序复制图片框 然后再启动线程载入图片

znsong

添加许可证看看！

大司命

改用标签的投递事件吧~

znsong

znsong 发表于 2020-3-3 20:51
添加许可证看看！

图片内容有东西？易超过内存的话 是会死掉的

大司命

  

标签1.调用反馈事件 (1, 0, 假)

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

如果真 (参数一 ＝ 1 且 参数二 ＝ 0)
' 执行命令~

.版本 2<br /> 标签1.调用反馈事件 (1, 0, 假)<br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> .如果真 (参数一 ＝ 1 且 参数二 ＝ 0)<br />     ' 执行命令~<br /> .如果真结束

走一回

你这样贴代码,复制粘贴到易语言里是不行的.

走一回

加载图片1  和  加载图片2    有重大区别吗?  加载图片2 中的不加载就没事.

走一回

不行的，程序吃不消。创建组件都来不及，程序觉得太累了，刚复制好一个图片框，又马上要复制下一个，它不想干。不管你是用线程还是直接调用子程序，不管你延时与否（当然延时2000是没有问题的，但是500*200=1000000=100秒一个延时，你的程序里还有多个延时，耗时太长。图片框少一点倒是问题不大。