.版本 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.内容), 真)