请加入一个“拖入添加”功能

edisonzhu

源代码是网上朋友分享的。
觉得不错，想优化一下。

现在面临问题，想加入一个“拖入添加”功能，无奈水平不够，请大家帮忙了。



DIY电脑工具箱.7z (1.82 MB, 下载次数: 6)

2020-9-10 17:06 上传

点击文件名下载附件

qq793359277

DIY电脑工具箱.zip (604.13 KB, 下载次数: 10)

2020-9-10 17:50 上传

点击文件名下载附件

shane

找的网上的 我看了下里面可以实现你要的功能 依葫芦画瓢
里面的皮肤模块去掉命令就不需要了

qq793359277

  

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

变量名	类 型	静态	数组	备 注
真实路径	文本型

高级表格1.插入行 (到文本 (高级表格1.行数), )
调试输出 (高级表格1.行数)
如果真 (取文本右边 (接收到的文件路径, 4) ＝ “.lnk”)
接收到的文件路径 ＝ 系统_取桌面快捷方式 (接收到的文件路径)

高级表格1.置数据 (高级表格1.行数 － 1, 1, #表格常量 .文本型, 文件_取文件名 (接收到的文件路径, ))
高级表格1.置数据 (高级表格1.行数 － 1, 2, #表格常量 .文本型, 接收到的文件路径)
高级表格1.发送信息 (277, 7, 0)  ' 滚动条移动到最底

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 真实路径, 文本型<br /> <br /> <br /> 高级表格1.插入行 (到文本 (高级表格1.行数), )<br /> 调试输出 (高级表格1.行数)<br /> <br /> .如果真 (取文本右边 (接收到的文件路径, 4) ＝ “.lnk”)<br />     接收到的文件路径 ＝ 系统_取桌面快捷方式 (接收到的文件路径)<br /> .如果真结束<br /> <br /> 高级表格1.置数据 (高级表格1.行数 － 1, 1, #表格常量.文本型, 文件_取文件名 (接收到的文件路径, ))<br /> 高级表格1.置数据 (高级表格1.行数 － 1, 2, #表格常量.文本型, 接收到的文件路径)<br /> <br /> 高级表格1.发送信息 (277, 7, 0)  ' 滚动条移动到最底

edisonzhu

qq793359277 发表于 2020-9-10 17:07

感谢回复

下载后效果不错