拖拽多个文件到超级列表框的问题

wh1234567

关于拖拽多个文件到超级列表框的问题：
用鼠标将多个文件同时拖拽到超级列表框组件上时，自动取这些文件的完整路径分别按行插入到超级列表框第二列里，第一列是序号。
然后点击按钮1，自动逐行读取并填入到编辑框1里，求例子

是可可吖

是这样吧？

test.e (1 MB, 下载次数: 40, 售价: 1 枚 精币)

2025-2-11 00:43 上传

点击文件名下载附件

xiaoyu1986

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

拖放对象1.接收文件 ＝ 真
拖放对象1.注册拖放控件 (取窗口句柄 ())

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

变量名	类 型	静态	数组	备 注
分割	文本型		0
计次变量	整数型

超级列表框.全部删除 ()
分割 ＝ 分割文本 (接收到的文件路径, #换行符, )
计次循环首 (取数组成员数 (分割), 计次变量)
超级列表框.插入表项 (, 到文本 (计次变量), , , , )
超级列表框.置标题 (超级列表框.取表项数 () － 1, 1, 分割 [计次变量])
计次循环尾 ()

i支持库列表	支持库注释
edroptarget	拖放支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 edroptarget<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.接收文件 ＝ 真<br /> 拖放对象1.注册拖放控件 (取窗口句柄 ())<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 计次变量, 整数型<br /> <br /> 超级列表框.全部删除 ()<br /> 分割 ＝ 分割文本 (接收到的文件路径, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), 计次变量)<br />     超级列表框.插入表项 (, 到文本 (计次变量), , , , )<br />     超级列表框.置标题 (超级列表框.取表项数 () － 1, 1, 分割 [计次变量])<br /> .计次循环尾 ()

是可可吖

这不是很简单吗？

高先生

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
拖放文件名	文本型
路径名	文本型
图片号
图片组	字节集
文件名	文本型
路径	文本型	0

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

拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
拖放对象1.接收文件 ＝ 真
图片组 ＝ 超级列表框1.图片组

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
项目

如果真 (超级列表框1.现行选中项 ＝ -1) ' 避免有项目/没项目时，运行项目出错
返回 ()
如果真 (超级列表框1.取表项数 () ≥ 1) ' 有项目时才能运行
项目 ＝ 超级列表框1.取表项数值 (超级列表框1.现行选中项)
执行 (, 路径 [项目], , )

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

变量名	类 型	静态	数组	备 注
文件后缀名	文本型
文件名1	文本型		0
后缀名	文本型

文件名1 ＝ 分割文本 (接收到的文件路径, #换行符, 1)
拖放文件名 ＝ 文件名1 [1]
路径名 ＝ 拖放文件名
文件后缀名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “.”, , 假))
后缀名 ＝ 文件后缀名
如果 (后缀名 ＝ “exe”)
图片号 ＝ 提取加入图片 (图片组, 拖放文件名, , )
图片号 ＝ 提取加入图片 (图片组, 查询快捷方式 (拖放文件名), , )
超级列表框1.图片组 ＝ 图片组
文件名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “\”, , 假))
文件名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 4)
加入成员 (路径, 路径名)
如果 (图片号 ≠ -1)
超级列表框1.插入表项 (-1, 文件名, 图片号, , , 取数组成员数 (路径))
超级列表框1.插入表项 (-1, 文件名, 0, , , 取数组成员数 (路径))

.程序集 窗口程序集1<br /> .程序集变量 拖放文件名, 文本型<br /> .程序集变量 路径名, 文本型<br /> .程序集变量 图片号<br /> .程序集变量 图片组, 字节集<br /> .程序集变量 文件名, 文本型<br /> .程序集变量 路径, 文本型, , "0"<br /> .子程序 __启动窗口_创建完毕<br /> 拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())<br /> 拖放对象1.接收文件 ＝ 真<br /> 图片组 ＝ 超级列表框1.图片组<br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 项目<br /> .如果真 (超级列表框1.现行选中项 ＝ -1) ' 避免有项目/没项目时，运行项目出错<br /> 返回 ()<br /> .如果真结束<br /> .如果真 (超级列表框1.取表项数 () ≥ 1) ' 有项目时才能运行<br /> 项目 ＝ 超级列表框1.取表项数值 (超级列表框1.现行选中项)<br /> 执行 (, 路径 [项目], , )<br /> .如果真结束<br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 文件后缀名, 文本型<br /> .局部变量 文件名1, 文本型, , "0"<br /> .局部变量 后缀名, 文本型<br /> 文件名1 ＝ 分割文本 (接收到的文件路径, #换行符, 1)<br /> 拖放文件名 ＝ 文件名1 [1]<br /> 路径名 ＝ 拖放文件名<br /> 文件后缀名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “.”, , 假))<br /> 后缀名 ＝ 文件后缀名<br /> .如果 (后缀名 ＝ “exe”)<br /> 图片号 ＝ 提取加入图片 (图片组, 拖放文件名, , )<br /> .否则<br /> 图片号 ＝ 提取加入图片 (图片组, 查询快捷方式 (拖放文件名), , )<br /> .如果结束<br /> 超级列表框1.图片组 ＝ 图片组<br /> 文件名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “\”, , 假))<br /> 文件名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 4)<br /> 加入成员 (路径, 路径名)<br /> .如果 (图片号 ≠ -1)<br /> 超级列表框1.插入表项 (-1, 文件名, 图片号, , , 取数组成员数 (路径))<br /> .否则<br /> 超级列表框1.插入表项 (-1, 文件名, 0, , , 取数组成员数 (路径))

xiaoyu1986

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i

编辑框1.加入文本 (超级列表框.取标题 (i, 1) ＋ #换行符 )
i ＝ i ＋ 1

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, , 静态<br /> <br /> 编辑框1.加入文本 (超级列表框.取标题 (i, 1) ＋ #换行符)<br /> i ＝ i ＋ 1

高先生

额  我发现个问题 为什么我不能拖放呢。。。

是可可吖

高先生 发表于 2025-2-11 00:46
额  我发现个问题 为什么我不能拖放呢。。。

你得先注册拖放控件，才能进行拖放

高先生

是可可吖 发表于 2025-2-11 00:47
你得先注册拖放控件，才能进行拖放

注册也不能拖放。。
我这奇怪了。代码没问题啊

是可可吖

高先生 发表于 2025-2-11 00:51
注册也不能拖放。。
我这奇怪了。代码没问题啊

拖放对象1.接收文件=真

或者这样