如何将外部文件拖放到我的 xojo 应用程序并返回路径

Posted 2023-03-30

【中文标题】如何将外部文件拖放到我的 xojo 应用程序并返回路径

【英文标题】：How do I drag and drop an external file to my xojo app and return the path

【发布时间】：2014-05-02 04:19:18

【问题描述】：

我想将一个文件（比如 abc.txt）拖到我的 xojo 程序中，让它写出被删除文件的路径，返回类似 C:\\mydata\abc.txt 的内容。

我该怎么做呢？我需要启用某些属性吗？

我无法从手册或论坛中找到任何有用的信息。

【参考方案1】：

首先，向您的项目添加一个文件类型集。最初将其命名为 FileTypes1，但最好将其重命名为“DropTypes”。向其中添加您喜欢接受的文件类型。要接受任何文件，请在 IDE 的文件类型集编辑器中单击这些按钮的中心：

选择特殊/任何。

接下来，将此行添加到应允许放置的控件或窗口的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