|
发表于 2020-6-6 18:17:38
|
显示全部楼层
安徽省阜阳市
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | path | 文本型 | |
path = 目录_浏览 (“浏览文件夹”)如果真 (path ≠ “”)文件_枚举EX (path, “*”, 真, &加入列表框 )信息框提示:驱动加载失败 |
加入列表框 | | | |
filename | 文本型 | | | | filepath | 文本型 | | | |
index = 超级列表框1. 插入表项 (-1, , , , , )超级列表框1. 置标题 (index, 0, filename )超级列表框1. 置标题 (index, 1, 文件_取尺寸 (filepath, 真)) 计次循环首 (超级列表框1. 取表项数 (), )删除文件 (path + “\” + 超级列表框1. 取标题 (0, 0 )) 超级列表框1. 删除表项 (0 )计次循环尾 ()进度条1.位置 = 进度条1.位置 + 100 时钟1.时钟周期 = 1000 延迟 (1000 )进度条1.可视 = 假 返回值 = 信息框 (“确认加载驱动?(弹出新窗口用于加载驱动)”, #确认取消钮, “提示”, )判断 (返回值 = #确认钮 )调试输出 (“#确认钮”)载入 (窗口1, , 真)判断 (返回值 = #取消钮 )调试输出 (“#取消钮”)变量名 | 类 型 | 静态 | 数组 | 备 注 | filename | 文本型 | | | filepath | 文本型 | | | index | 整数型 | | | 信息框 (加载驱动 (), 0, , )如果真 (驱动是否加载 ()) path = 目录_浏览 (“浏览文件夹”)如果真 (path ≠ “”)文件_枚举EX (path, “*”, 真, &加入列表框 )index = 超级列表框1. 插入表项 (-1, , , , , )超级列表框1. 置标题 (index, 0, filename )超级列表框1. 置标题 (index, 1, 文件_取尺寸 (filepath, 真))
补充内容 (2020-6-6 18:21):
信息框提示 驱动加载失败 |
|