.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.版本 2
.支持库 edroptarget
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
拖放对象1.接收文件 = 真
.子程序 _图片框2_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框2.获取焦点 ()
.子程序 _拖放对象1_得到文本
.参数 接收到的图片, 文本型
.如果真 (图片框2.可有焦点 () = 真)
图片框2.图片 = 读入文件 (接收到的图片)
.如果真结束
.如果真 (图片框1.可有焦点 () = 真)
图片框1.图片 = 读入文件 (接收到的图片)
.如果真结束
.子程序 __启动窗口_获得焦点
_启动窗口.激活 ()
.子程序 _图片框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框1.获取焦点 ()
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.版本 2
.支持库 edroptarget
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
拖放对象1.接收文件 = 真
.子程序 _图片框2_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框2.获取焦点 ()
.子程序 _拖放对象1_得到文本
.参数 接收到的图片, 文本型
.如果真 (图片框2.可有焦点 () = 真)
图片框2.图片 = 读入文件 (接收到的图片)
.如果真结束
.如果真 (图片框1.可有焦点 () = 真)
图片框1.图片 = 读入文件 (接收到的图片)
.如果真结束
.子程序 __启动窗口_获得焦点
_启动窗口.激活 ()
.子程序 _图片框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框1.获取焦点 ()