|
发表于 2013-10-20 21:26:28
|
显示全部楼层
四川省南充市
[e]
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 文件名, 文本型
.局部变量 文件后缀名, 文本型
.局部变量 文件名前, 文本型
通用对话框1.打开 ()
文件名 = 通用对话框1.文件名
文件后缀名 = 取文本中间 (文件名, 倒找文本 (文件名, “.”, , 假) + 1, 取文本长度 (文件名) - 倒找文本 (文件名, “.”, , 假))
文件名前 = 子文本替换 (文件名, “.” + 文件后缀名, “”, , , 真)
.如果真 (寻找文本 (“jpg,jpeg,bmp,png,gif,ico”, 文件后缀名, , 假) = -1)
信息框 (“请打开图片。”, 0, )
返回 ()
.如果真结束
a = 载入图片 (文件名)
画板1.清除 (, , , ) ' 让画板清空。
_启动窗口.宽度 = 画板1.取图片宽度 (a) + 40
_启动窗口.高度 = (画板1.取图片高度 (a) + 40) × 1.5
画板1.宽度 = 画板1.取图片宽度 (a) ' 重定义画板宽度为载入图片宽度
画板1.高度 = 到整数 (画板1.取图片高度 (a) × 1.5) ' 重定义画板高度为图片高度的 1.5倍。这里可以自行修改需要的大小 比如 增加10% 就乘以1.1
画板1.刷新显示 ()
画板1.画图片 (a, 0, 0, , , 1) ' 在画板上画图。使用 拷贝方式。位置可以自行定义
写到文件 (文件名前 + 到文本 (取随机数 (1000, 9999)) + “.” + 文件后缀名, 画板1.取图片 (, )) ' 保存图片。 这里的第一个参数就是写到的文件名称。自行修改
' 窗口上 放置一个画板。 名称为 画板1. 大小随意。每画一张图都会重定义。
[/e] |
|