模仿loading.rar

知识点如下：

循环很简单
载入就是字符串拼接+循环+延迟
调出子窗口
销毁窗口
image.png

image.png

代码如下

主窗口

  1. .版本 2
  3. .程序集 窗口程序集_启动窗口
  5. .子程序 _按钮1_被单击
  6. .局部变量 b, 整数型
  8. .计次循环首 (10, b)
  9.     输出调试文本 (b)
  10.     编辑框1.加入文本 (到文本 (b) ＋ #换行符)
  11. .计次循环尾 ()
  13. .子程序 _按钮2_被单击
  15. .计次循环首 (3, )
  16.     _启动窗口.标题 ＝ “Loading”
  17.     .计次循环首 (6, )
  18.         _启动窗口.标题 ＝ _启动窗口.标题 ＋ “.”
  19.         延时 (300)
  20.     .计次循环尾 ()
  21. .计次循环尾 ()
  22. 载入 (窗口1, , 真)

子窗口1

  1. .版本 2
  3. .程序集 窗口程序集_窗口1
  5. .子程序 _窗口1_创建完毕
  7. 输出调试文本 (11111)
  10. .子程序 _窗口1_将被销毁
  12. _启动窗口.销毁 ()