.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 文件名, 文本型
.子程序 _按钮1_被单击
文件名 = 寻找文件 (编辑框1.内容 + “\*.” + 编辑框2.内容, )
调试输出 (文件名)
.如果 (文件名 = “”)
画板1.文本颜色 = #红色
画板1.滚动写行 (“所有txt文件已删完”)
画板1.文本颜色 = #白色
返回 ()
.否则
.如果结束
.如果 (删除文件 (编辑框1.内容 + “\” + 文件名) = 真)
画板1.滚动写行 (“删除成功: ” + 文件名)
.判断循环首 (文件名 ≠ “”)
文件名 = 寻找文件 (, )
调试输出 (文件名)
.如果 (删除文件 (编辑框1.内容 + “\” + 文件名) = 真)
画板1.滚动写行 (“删除成功: ” + 文件名)
.否则
.如果结束
.如果真 (文件名 = “”)
画板1.文本颜色 = #红色
画板1.滚动写行 (“所有” + 编辑框2.内容 + “文件已删完”)
画板1.文本颜色 = #白色
.如果真结束
.判断循环尾 ()
.否则
.如果结束
调试输出 (文件名)
.子程序 _按钮3_被单击
画板1.清除 (, , , )
.子程序 _编辑框2_获得焦点
.如果 (编辑框2.文本颜色 = #灰色)
编辑框2.文本颜色 = #黑色
编辑框2.内容 = “”
.否则
.如果结束
.子程序 _编辑框2_失去焦点
.如果 (编辑框2.内容 = “”)
编辑框2.文本颜色 = #灰色
编辑框2.内容 = “*为删除所有文件,后缀格式:txt,exe,zip等”
.否则
.如果结束
.子程序 _编辑框1_获得焦点
编辑框1.文本颜色 = #黑色
.子程序 _标签3_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框2.文本颜色 = #黑色
编辑框2.内容 = “exe”
.子程序 _标签4_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框2.文本颜色 = #黑色
编辑框2.内容 = “txt”
.子程序 _标签5_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框2.文本颜色 = #黑色
编辑框2.内容 = “zip”
.子程序 __启动窗口_创建完毕