EzipV1.1拖放原码放出!
首先放个拖放组件.....然后跟代码:
.版本 2
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.如果 (接收到的文件路径 ＝ “”)
返回 ()
.否则
.判断开始 (寻找文本 (接收到的文件路径, “.zip”, 0, 假) ＞ -1)
编辑框2.内容 ＝ 接收到的文件路径
.默认
编辑框1.内容 ＝ 接收到的文件路径
.判断结束
.如果结束
.版本 2
.支持库 edroptarget
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
拖放对象1.接收文件 ＝ 真
由于我要得到2个.一个是ZIP.一个是其他格式.所以用了判断语句来判断到底是哪个获得地址
页:
[1]