|
楼主 |
发表于 2012-3-28 09:44:37
|
显示全部楼层
江苏省泰州市
.版本 2
.支持库 shell
.程序集 窗口程序集1
.子程序 _按钮2_被单击
通用对话框1.过滤器 = “图片文件(*.jpg)|*.jpg”
通用对话框1.默认文件后缀 = “*.jpg”
.如果真 (通用对话框1.打开 ())
.如果真结束
编辑框1.内容 = 通用对话框1.文件名
.子程序 _按钮3_被单击
编辑框2.内容 = 取运行目录 () + “\imgs”
.子程序 _按钮1_被单击
a = 倒找文本 (通用对话框1.文件名, “\”, , 假)
.如果 (自定义进度复制文件 (编辑框2.内容, 编辑框1.内容))
图片框1.图片 = 读入文件 (编辑框2.内容 + “/” + 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) - a))
图片框1.左边 = 0
图片框1.顶边 = 0
图片框1.高度 = 取屏幕高度 ()
图片框1.宽度 = 取屏幕宽度 ()
写到文件 (取运行目录 () + “\imgs” + “\” + 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) - a), 图片_后台区域截图 (图片框1.取窗口句柄 (), 图片框1.左边, 图片框1.顶边, 图片框1.高度, 图片框1.宽度))
信息框 (“复制成功!”, 0, )
.否则
信息框 (“失败!请选择文件,不是目录!”, 0, )
.如果结束
执行 (#打开文件, “重命名.bat”, , 取运行目录 () + “\imgs”, #隐藏窗口)
.子程序 _按钮4_被单击
通用对话框2.过滤器 = “图片文件(*.jpg)|*.jpg”
通用对话框2.默认文件后缀 = “*.jpg”
通用对话框2.初始目录 = 取运行目录 () + “\imgs”
.如果真 (通用对话框2.打开 ())
.如果真结束
编辑框3.内容 = 通用对话框2.文件名
.子程序 _按钮5_被单击
.如果 (删除文件 (编辑框3.内容))
信息框 (“照片已成功删除”, 0, )
.否则
信息框 (“删除失败请重试”, 0, )
.如果结束
执行 (#打开文件, “重命名.bat”, , 取运行目录 () + “\imgs”, #隐藏窗口)
|
|