二维码自动裁剪例程源码

.版本 2
.支持库 iext2
.支持库 edroptarget

.程序集 窗口程序集_启动窗口

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 返回路径, 文本型

动画框1.背景图片 ＝ 读入文件 (接收到的文件路径)
返回路径 ＝ 取文本左边 (接收到的文件路径, 倒找文本 (接收到的文件路径, “”, , 假))
.如果真 (组合框1.现行选中项 ＝ 0)
    图片框1.移动 (, , 184, 184)
    图片框1.图片 ＝ 动画框1.取区域图片 (108, 168, 184, 184, )
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 1)
    图片框1.移动 (, , 175, 175)
    图片框1.图片 ＝ 动画框1.取区域图片 (112, 239, 175, 175, )
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 2)
    图片框1.移动 (, , 182, 182)
    图片框1.图片 ＝ 动画框1.取区域图片 (109, 179, 182, 182, )
.如果真结束
写到文件 (返回路径 ＋ 组合框1.内容 ＋ “二维码.jpg”, 图片框1.图片)

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())

@NOCOL