图片旋转工具源码

.版本 2
.支持库 BmpOperate
.支持库 eImgConverter
.支持库 shell
.支持库 edroptarget

.程序集 窗口程序集_启动窗口
.程序集变量 a, 位图

.子程序 _按钮1_被单击

.如果真 (通用对话框2.打开 ())
    转换到BMP (通用对话框2.文件名, 取特定目录 (#临时文件目录) ＋ “1.bmp”)
    a.载入文件 (取特定目录 (#临时文件目录) ＋ “1.bmp”)
    图片框1.图片 ＝ a.取位图数据 ()
.如果真结束


.子程序 _按钮2_被单击

.如果真 (通用对话框1.打开 ())
    写到文件 (通用对话框1.文件名, a.取位图数据 ())
.如果真结束


.子程序 _按钮3_被单击

a ＝ a.旋转 (到数值 (编辑框1.内容), #白色)
图片框1.图片 ＝ a.取位图数据 ()

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

通用对话框2.初始目录 ＝ 取特定目录 (#系统桌面)
拖放对象1.注册拖放控件 (图片框1.取窗口句柄 ())

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

转换到BMP (接收到的文件路径, 取特定目录 (#临时文件目录) ＋ “1.bmp”)
a.载入文件 (取特定目录 (#临时文件目录) ＋ “1.bmp”)
图片框1.图片 ＝ a.取位图数据 ()

@xiaoludong5200