做成动态的样子

Ls60

xiaoshumiao1136 发表于 2022-5-6 14:47
大佬这样写 不行， 程序会出现未响应的情况。  ，动态效果也没了，
我的意思就是，比如有10个文件，单击 ...

那就用两个线程，一个复制，一个检测，或者说直接像上面那样用时钟就好。

补充内容 (2022-5-6 14:53):
或者说你直接把那个延迟（3000）删掉

补充内容 (2022-5-6 14:54):
我上面加延迟是为了展示效果。有一说一，文件不多，一下子就复制过去了，这个缓动可能没什么意义。

Ls60

实在不行，用上面nikezhi大佬的时钟也是一样的效果，稍微改一下就好了

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
句号个数	整数型

如果真 (标签1.标题 ≠ “软件安装成功！”)
句号个数 ＝ 句号个数 ＋ 1
如果真 (句号个数 ＞ 5)
句号个数 ＝ 1
标签1.标题 ＝ “软件安装中” ＋ 取重复文本 (句号个数, “。”)

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

变量名	类 型	静态	数组	备 注
安装	逻辑型

标签1.标题 ＝ “软件安装中”
时钟1.时钟周期 ＝ 500
' 复制代码
标签1.标题 ＝ “软件安装成功！”
时钟1.时钟周期 ＝ 0

.版本 2<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 句号个数, 整数型<br /> <br /> .如果真 (标签1.标题 ≠ “软件安装成功！”)<br />     句号个数 ＝ 句号个数 ＋ 1<br />     .如果真 (句号个数 ＞ 5)<br />         句号个数 ＝ 1<br />     .如果真结束<br />     标签1.标题 ＝ “软件安装中” ＋ 取重复文本 (句号个数, “。”)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 安装, 逻辑型<br /> <br /> 标签1.标题 ＝ “软件安装中”<br /> 时钟1.时钟周期 ＝ 500<br /> ' 复制代码<br /> 标签1.标题 ＝ “软件安装成功！”<br /> 时钟1.时钟周期 ＝ 0

补充内容 (2022-5-6 14:58):
那个如果真也没什么意义，忘记删掉了

Ls60

是不是你自己的代码有问题，你试一下不加这个动态单独运行一下复制看会不会卡

xiaoshumiao1136

nikezhi 发表于 2022-5-6 13:12

大佬能把代码写完整吗？
我的意思：有5个TXT文件，用图片资源表，单击按钮1，然后一个一个的写入文件（），到C盘，
正在写入的时候，标签1是动态的效果，，写入完了就结束，，大佬能写个完整的例子吗？谢谢了

xiaoshumiao1136

Ls60 发表于 2022-5-6 15:33
是不是你自己的代码有问题，你试一下不加这个动态单独运行一下复制看会不会卡
...

我代码没问题，我做成了子程序。 就是程序运行界面会卡死，但是复制文件，还是复制过去了

Ls60

xiaoshumiao1136 发表于 2022-5-6 15:35
我代码没问题，我做成了子程序。 就是程序运行界面会卡死，但是复制文件，还是复制过去了 ...

你在运行后面加个系统_处理事件（）

真冬

  

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

a ＝ “软件安装中”
标签1.标题 ＝ 选择 (取文本长度 (标签1.标题) ＜ 取文本长度 (a) ＋ 2 × 5, 标签1.标题 ＋ “。”, a)

.版本 2<br /> <br /> .局部变量 a, 文本型<br /> <br /> a ＝ “软件安装中”<br /> 标签1.标题 ＝ 选择 (取文本长度 (标签1.标题) ＜ 取文本长度 (a) ＋ 2 × 5, 标签1.标题 ＋ “。”, a)