图片比例缩放源码

.版本 2
.支持库 edroptarget

.程序集 窗口程序集_窗口1
.程序集变量 集_默认宽度, 整数型
.程序集变量 集_默认高度, 整数型

.子程序 _窗口1_创建完毕

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

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

图片框1.图片 ＝ 读入文件 (接收到的文件路径)  ' 格式判断就不加了 你们随意
集_默认宽度 ＝ 图片_取宽度 (图片框1.图片)
编辑框1.内容 ＝ 到文本 (集_默认宽度)
集_默认高度 ＝ 图片_取高度 (图片框1.图片)
编辑框2.内容 ＝ 到文本 (集_默认高度)

.子程序 _编辑框1_内容被改变

.如果真 (选择框1.选中 且 编辑框1.可有焦点 ())
    编辑框2.内容 ＝ 到文本 (到整数 (编辑框1.内容) × 集_默认高度 ÷ 集_默认宽度)
.如果真结束


.子程序 _编辑框2_内容被改变

.如果真 (选择框1.选中 且 编辑框2.可有焦点 ())
    编辑框1.内容 ＝ 到文本 (到整数 (编辑框2.内容) × 集_默认宽度 ÷ 集_默认高度)
.如果真结束


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

图片框1.图片 ＝ 图片_缩放 (图片框1.图片, 到整数 (编辑框1.内容), 到整数 (编辑框2.内容), 真)

@MS_晨星天宇