我想将一个文件(例如abc.txt)拖到我的xojo
程序中,然后让它写出删除文件的路径,返回C:\\mydata\abc.txt
之类的内容。
我该怎么做呢?我需要启用一些属性吗?
我无法从手册或论坛中找到任何有用的内容。
答案 0 :(得分:4)
首先,将文件类型集添加到项目中。它最初将被命名为FileTypes1,但最好将其重命名为“DropTypes”。向其中添加您要接受的文件类型。要接受任何文件,请在IDE的文件类型集编辑器中单击这些按钮的中心:
选择 special / any 。
接下来,将此行添加到应允许丢弃的控件或窗口的Open
事件中:
me.AcceptFileDrop DropTypes.All
然后将此代码添加到控件或窗口的DropObject
事件中:
if obj.FolderItemAvailable then
dim f as FolderItem = obj.FolderItem
' Now you have the file reference in f.
' Get the path:
dim path as String = f.NativePath ' (in older RB versions, use *f.AbsolutePath* instead)
' Show the path:
MsgBox path
end