Question

易语言拖放文件时怎么取文件图标到图片框

还有一个 拖放文件在编辑框里取文件名字

Answer 1

.版本 2
.支持库 edroptarget
.支持库 iext2
.子程序 __启动窗口_创建完毕
拖放对象1.接收文件 ＝ 真
拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 字节集, 字节集
编辑框1.内容 ＝ 取文件名 (接收到的文件路径)
字节集 ＝ 建空图片组 (32, 32)
' 注：加入图片组后的图片会被转为BMP格式！
' 只支持EXE或图标库DLL文件提取图标，如其它格式的可通过取关联获得图标路径和序号，太麻烦了，我就不写了！
.如果真 (提取加入图片 (字节集, 接收到的文件路径, , ) ≠ -1)
图片框1.图片 ＝ 取图片组图片 (字节集, 0, )
.如果真结束

.子程序 取文件名, 文本型
.参数 文件路径, 文本型
.参数 带后缀, 逻辑型, 可空, 可空，默认为真
.局部变量 文件名, 文本型
文件名 ＝ 取文本右边 (文件路径, 取文本长度 (文件路径) － 倒找文本 (文件路径, “\”, , 假))
.如果真 (是否为空 (带后缀) 或 带后缀)
返回 (文件名)
.如果真结束
返回 (取文本左边 (文件名, 倒找文本 (文件名, “.”, , 假) － 1))

追问

名字可以取，不过图标不能啊

追答

你要取什么格式文件的图标啊？
源码中有说明你有没有看？

追问

我想取快捷方式和EXE的文件 能不能把完整的源码给我啊？谢谢

Answer 2

用 拖放对象 组件
启动时候注册拖放对象
还有拖放对象需要设置接收文件为真

=========代码==============
.版本 2
.支持库 edroptarget
.子程序 __启动窗口_创建完毕
拖放对象1.接收文件 ＝ 真
拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
编辑框1.内容 ＝ 接收到的文件路径

‘需要一个拖放对象和一个编辑框组件

追问

我说的不是这个= =
这个我知道
我问的是 把文件拖进去后 一个编辑框里显示这个文件的名称 不是路径
还有一个就是把文件拖进去后 一个图片框的图片是这个文件的图标

追答

不是已经接收到路径了嘛
你用这句代码：
取文本右边（接收到的文件路径，取文本长度（接收到的文件路径） - 倒找文本（接收到的文件路径），“\”，，））

应该是这样的，取出后的文本就是名称了，但这个名称会有后缀。如果不需要你可以在重复上面的操作，不过这次就应该是取文本左边了

取文本左边（接收到的文件路径，倒找文本（接收到的文件路径），“.”，，））

Answer 3

.版本 2.支持库 edroptarget
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
.子程序 _拖放对象1_得到文件.参数 接收到的文件路径, 文本型
编辑框1.内容 ＝ 接收到的文件路径