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

lookaman

可以添加多个编辑框，想拖几个文件都会返回各文件路径
文件多于编辑框时，只显示与编辑框相同数量的路径
添加编辑框时，后添加组件可以放在上边


多文件拖放返回路径.e (4.14 KB, 下载次数: 46)

2023-2-28 17:28 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

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

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

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

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

路径总 ＝ 接收到的文件路径  ' 接收所有路径文本
路径分 ＝ 分割文本 (路径总, #换行符, )  ' 拆分成数组
路径数量 ＝ 取数组成员数 (路径分)  ' 取路径的数量
组件句柄 ＝ 寻找组件 (_启动窗口, , “编辑框”, , )  ' 在启动窗口里找所有 编辑框 组件句柄
组件数量 ＝ 取找到组件数目 (组件句柄)  ' 取所有 编辑框组件 的数量
计次循环首 (组件数量, 计次)  ' 清空所有编辑框
编辑框 ＝ 取所找到组件 (组件句柄, 组件数量 － 计次)  ' 通过句柄依次取回组件
编辑框.内容 ＝ “”
计次循环尾 ()
如果真 (路径数量 ＜ 组件数量)  ' 路径数量 少于 组件数量，组件数量等于路径数量
组件数量 ＝ 路径数量

计次循环首 (组件数量, 计次)  ' 把路径写到 编辑框内容
编辑框 ＝ 取所找到组件 (组件句柄, 计次 － 1)
编辑框.内容 ＝ “”
编辑框.内容 ＝ 路径分 [计次]
计次循环尾 ()
清除组件寻找句柄 (组件句柄)

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

.版本 2<br /> .支持库 edroptarget<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 路径总, 文本型<br /> .程序集变量 路径分, 文本型, , "0"<br /> .程序集变量 组件句柄, 整数型<br /> .程序集变量 组件数量, 整数型<br /> .程序集变量 计次, 整数型<br /> .程序集变量 编辑框, 编辑框<br /> .程序集变量 路径数量, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.注册拖放控件 (取窗口句柄 ())<br /> <br /> .子程序 _拖放对象1_得到文件, , , 只要你编辑框够多，多少文件都可以返回路径<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 路径总 ＝ 接收到的文件路径  ' 接收所有路径文本<br /> 路径分 ＝ 分割文本 (路径总, #换行符, )  ' 拆分成数组<br /> <br /> 路径数量 ＝ 取数组成员数 (路径分)  ' 取路径的数量<br /> <br /> 组件句柄 ＝ 寻找组件 (_启动窗口, , “编辑框”, , )  ' 在启动窗口里找所有 编辑框 组件句柄<br /> 组件数量 ＝ 取找到组件数目 (组件句柄)  ' 取所有 编辑框组件 的数量<br /> <br /> .计次循环首 (组件数量, 计次)  ' 清空所有编辑框<br />     编辑框 ＝ 取所找到组件 (组件句柄, 组件数量 － 计次)  ' 通过句柄依次取回组件<br />     编辑框.内容 ＝ “”<br /> .计次循环尾 ()<br /> <br /> .如果真 (路径数量 ＜ 组件数量)  ' 路径数量 少于 组件数量，组件数量等于路径数量<br />     组件数量 ＝ 路径数量<br /> .如果真结束<br /> <br /> .计次循环首 (组件数量, 计次)  ' 把路径写到 编辑框内容<br />     编辑框 ＝ 取所找到组件 (组件句柄, 计次 － 1)<br />     编辑框.内容 ＝ “”<br />     编辑框.内容 ＝ 路径分 [计次]<br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (组件句柄)

帅气与大侠

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件拖放	文件拖放
集_编辑框	编辑框	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 /> 调试输出 (横向位置, 纵向位置)

太阳GG

66666666666666666666666666666666666666666666666666666666666666666666666666666

wuqingg

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

深圳梦

感谢分享，很给力！~

mimae

好似很厉害

singlecolor

来看看

一指温柔

感谢分享，很给力！~

wjswzj0

感谢分享，很给力！~

kyo9766

可以学习一下 寻找组件，感谢分享