多文件拖放，多个编辑框返回不同路径示例

wuqingg

怎么那么巧，我今天刚好遇到拖放失效的问题，正好在研究这个

太阳GG

66666666666666666666666666666666666666666666666666666666666666666666666666666

帅气与大侠

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件拖放	文件拖放
集_编辑框	编辑框	0
集_当前编辑框	编辑框
集_得到的文件	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型
x	整数型
y	整数型
w	整数型
h	整数型

x ＝ 编辑框1.左边
y ＝ 编辑框1.顶边
w ＝ 编辑框1.宽度
h ＝ 编辑框1.高度
重定义数组 (集_编辑框, 假, 20)
计次循环首 (取数组成员数 (集_编辑框), i)
复制窗口组件 (编辑框1, 集_编辑框 [i])
如果真 (x ＋ w ≥ 取用户区宽度 ())
y ＝ y ＋ h ＋ 2
x ＝ 编辑框1.左边

集_编辑框 [i].移动 (x, y, , )
集_编辑框 [i].可视 ＝ 真
x ＝ x ＋ w ＋ 2
计次循环尾 ()
文件拖放.拖放对象_注册 (取窗口句柄 (), &_拖放对象1_得到文件)

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

' 调试输出 (集_当前编辑框.左边, 集_当前编辑框.顶边)
集_得到的文件 ＝ 接收到的文件路径

子程序名	返回值类型	公开	备 注
_编辑框1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

集_当前编辑框 ＝ 取事件组件 ()
如果真 (集_得到的文件 ≠ “”)
集_当前编辑框.内容 ＝ 集_得到的文件
集_得到的文件 ＝ “”
调试输出 (横向位置, 纵向位置)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件拖放, 文件拖放<br /> .程序集变量 集_编辑框, 编辑框, , "0"<br /> .程序集变量 集_当前编辑框, 编辑框<br /> .程序集变量 集_得到的文件, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 w, 整数型<br /> .局部变量 h, 整数型<br /> <br /> x ＝ 编辑框1.左边<br /> y ＝ 编辑框1.顶边<br /> w ＝ 编辑框1.宽度<br /> h ＝ 编辑框1.高度<br /> <br /> 重定义数组 (集_编辑框, 假, 20)<br /> .计次循环首 (取数组成员数 (集_编辑框), i)<br />     复制窗口组件 (编辑框1, 集_编辑框 <i>)<br />     .如果真 (x ＋ w ≥ 取用户区宽度 ())<br />         y ＝ y ＋ h ＋ 2<br />         x ＝ 编辑框1.左边<br />     .如果真结束<br /> <br /> <br />     集_编辑框 <i>.移动 (x, y, , )<br />     集_编辑框 <i>.可视 ＝ 真<br />     x ＝ x ＋ w ＋ 2<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> 文件拖放.拖放对象_注册 (取窗口句柄 (), &_拖放对象1_得到文件)<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> ' 调试输出 (集_当前编辑框.左边, 集_当前编辑框.顶边)<br /> 集_得到的文件 ＝ 接收到的文件路径<br /> <br /> <br /> .子程序 _编辑框1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 集_当前编辑框 ＝ 取事件组件 ()<br /> <br /> .如果真 (集_得到的文件 ≠ “”)<br />     集_当前编辑框.内容 ＝ 集_得到的文件<br />     集_得到的文件 ＝ “”<br /> .如果真结束<br /> 调试输出 (横向位置, 纵向位置)