多文件拖放，多个编辑框返回不同路径示例 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
路径总	文本型
路径分	文本型	0
组件句柄	整数型
组件数量	整数型
计次	整数型
编辑框	编辑框
路径数量	整数型

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

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

子程序名	返回值类型	公开	备注
_拖放对象1_得到文件			只要你编辑框够多，多少文件都可以返回路径
参数名	类型	参考	可空	数组	备注
接收到的文件路径	文本型

路径总＝接收到的文件路径  ' 接收所有路径文本
路径分＝分割文本 (路径总, #换行符, )  ' 拆分成数组
路径数量＝取数组成员数 (路径分)  ' 取路径的数量
组件句柄＝寻找组件 (_启动窗口, , “编辑框”, , )  ' 在启动窗口里找所有编辑框组件句柄
组件数量＝取找到组件数目 (组件句柄)  ' 取所有编辑框组件的数量

计次循环首 (组件数量, 计次) ' 清空所有编辑框

编辑框＝取所找到组件 (组件句柄, 组件数量－计次) ' 通过句柄依次取回组件

编辑框.内容＝ “”

计次循环尾 ()

如果真 (路径数量＜组件数量) ' 路径数量少于组件数量，组件数量等于路径数量

组件数量＝路径数量

计次循环首 (组件数量, 计次) ' 把路径写到编辑框内容

编辑框＝取所找到组件 (组件句柄, 计次－ 1)

编辑框.内容＝ “”

编辑框.内容＝路径分 [计次]

计次循环尾 ()
清除组件寻找句柄 (组件句柄)

i支持库列表	支持库注释
edroptarget	拖放支持库

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
文件拖放	文件拖放
集_编辑框	编辑框	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	特殊功能支持库