超级列表框执行完才显示，没完成前一片空白怎么回事

lijizuishuai

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
含有boot路径	文本型		0
i	整数型
包含boot文件夹	文本型
表项索引	整数型
k	整数型
修补文件路径	文本型
末级目录	文本型

' 遍历出所有包含boot的文件夹--既末级文件夹
计次循环首 (文件_枚举 (编辑框1.内容, “boot.img”, 含有boot路径, 真, , 真), i)
表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项索引, 0, 到文本 (表项索引 ＋ 1))
包含boot文件夹 ＝ 文本_替换 (含有boot路径 [i], , , , “boot.img”, “”)
超级列表框1.置标题 (表项索引, 1, 包含boot文件夹)
计次循环尾 ()
延时 (10000)
' 开始循环生成root文件
计次循环首 (超级列表框1.取表项数 (), k)
末级目录 ＝ 超级列表框1.取标题 (k － 1, 1)
如果真 (文件是否存在 (目录_取父路径 (末级目录) ＋ “@ap”))
' 根目父目录是否存在@ap文件判断支持ap后开始生成
如果 (文件是否存在 (末级目录 ＋ “apatch_10763.img”))
超级列表框1.置标题 (k － 1, 2, “AP文件已经存在”)

' 开始生成
文件_删除 (取运行目录 () ＋ “\new-boot.img”)
文件_删除 (取运行目录 () ＋ “\boot.img”)
文件_删除 (取运行目录 () ＋ “\kernel-b”)
文件_删除 (取运行目录 () ＋ “\kernel”)
改变目录 (取运行目录 ())
' 复制待生成的boot到运行目录
如果真 (文件_复制 (末级目录 ＋ “\boot.img”, 取运行目录 () ＋ “\boot.img”, ))
系统_取DOS执行结果 (“magiskboot.exe unpack boot.img”)
系统_取DOS执行结果 (“ren kernel kernel-b”)
系统_取DOS执行结果 (“kptools-x86_64-win.exe -p --image kernel-b --skey ” ＋ #引号 ＋ “haitunrom.com1” ＋ #引号 ＋ “ --kpimg kpimg-android.kpimg-android --out kernel”)
系统_取DOS执行结果 (“magiskboot.exe repack boot.img”)
如果真 (文件_复制 (取运行目录 () ＋ “\new-boot.img”, 末级目录 ＋ “apatch_10763.img”))
超级列表框1.置标题 (k － 1, 2, “生成完成”)
' 清理临时文件
文件_删除 (取运行目录 () ＋ “\new-boot.img”)
文件_删除 (取运行目录 () ＋ “\boot.img”)
文件_删除 (取运行目录 () ＋ “\kernel-b”)
文件_删除 (取运行目录 () ＋ “\kernel”)



' 生成结束
' 修补root文件结束
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 含有boot路径, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 包含boot文件夹, 文本型<br /> .局部变量 表项索引, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 修补文件路径, 文本型<br /> .局部变量 末级目录, 文本型<br /> <br /> <br /> <br /> ' 遍历出所有包含boot的文件夹--既末级文件夹<br /> <br /> .计次循环首 (文件_枚举 (编辑框1.内容, “boot.img”, 含有boot路径, 真, , 真), i)<br /> <br /> <br />     表项索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />     超级列表框1.置标题 (表项索引, 0, 到文本 (表项索引 ＋ 1))<br /> <br />     包含boot文件夹 ＝ 文本_替换 (含有boot路径 <i>, , , , “boot.img”, “”)<br /> <br />     超级列表框1.置标题 (表项索引, 1, 包含boot文件夹)<br /> <br /> .计次循环尾 ()<br /> 延时 (10000)<br /> <br /> ' 开始循环生成root文件<br /> .计次循环首 (超级列表框1.取表项数 (), k)<br /> <br />     末级目录 ＝ 超级列表框1.取标题 (k － 1, 1)<br /> <br />     .如果真 (文件是否存在 (目录_取父路径 (末级目录) ＋ “@ap”))<br />         ' 根目父目录是否存在@ap文件判断支持ap后开始生成<br /> <br />         .如果 (文件是否存在 (末级目录 ＋ “apatch_10763.img”))<br />             超级列表框1.置标题 (k － 1, 2, “AP文件已经存在”)<br /> <br />         .否则<br />             ' 开始生成<br />             文件_删除 (取运行目录 () ＋ “\new-boot.img”)<br />             文件_删除 (取运行目录 () ＋ “\boot.img”)<br />             文件_删除 (取运行目录 () ＋ “\kernel-b”)<br />             文件_删除 (取运行目录 () ＋ “\kernel”)<br /> <br />             改变目录 (取运行目录 ())<br />             ' 复制待生成的boot到运行目录<br /> <br />             .如果真 (文件_复制 (末级目录 ＋ “\boot.img”, 取运行目录 () ＋ “\boot.img”, ))<br /> <br /> <br />                 系统_取DOS执行结果 (“magiskboot.exe unpack boot.img”)<br />                 系统_取DOS执行结果 (“ren kernel kernel-b”)<br />                 系统_取DOS执行结果 (“kptools-x86_64-win.exe -p --image kernel-b --skey ” ＋ #引号 ＋ “haitunrom.com1” ＋ #引号 ＋ “ --kpimg kpimg-android.kpimg-android --out kernel”)<br />                 系统_取DOS执行结果 (“magiskboot.exe repack boot.img”)<br />                 .如果真 (文件_复制 (取运行目录 () ＋ “\new-boot.img”, 末级目录 ＋ “apatch_10763.img”))<br />                     超级列表框1.置标题 (k － 1, 2, “生成完成”)<br />                 .如果真结束<br />                 ' 清理临时文件<br />                 文件_删除 (取运行目录 () ＋ “\new-boot.img”)<br />                 文件_删除 (取运行目录 () ＋ “\boot.img”)<br />                 文件_删除 (取运行目录 () ＋ “\kernel-b”)<br />                 文件_删除 (取运行目录 () ＋ “\kernel”)<br />             .如果真结束<br /> <br />         .如果结束<br /> <br /> <br /> <br /> <br />     .如果真结束<br /> <br /> <br />     ' 生成结束<br /> <br /> <br /> <br /> <br />     ' 修补root文件结束<br /> .计次循环尾 ()

超级列表框为什么要等程序全部执行完成才会显示。没全部完成一片空白

梦雨心君

因为你没有放到线程中执行，这样会卡界面的。可以在循环中使用 处理事件() ，或者 启用线程(&子程序)

补充内容 (2024-12-20 11:10):
是  启动线程(&子程序)

BruceJoysky1987

加个处理事件？

阿素里戈沃里嘚

你每次置标题以后，顺手就调用一个“刷新显示”，那么就不会有这个问题了；

阿素里戈沃里嘚

如果你还需要一个往下拉的动作，那就加一个
超级列表框.投递信(277,3,0）