VB.NET实现自定义窗体拖拽本地文件至SOLIDWORKS的技术咨询

我用VB.NET开发了一款自定义文件浏览应用，想实现点击PictureBox_Icon并拖拽到SOLIDWORKS时，像Windows资源管理器拖拽文件一样直接导入文件。目前通过PictureBox的Name提取文件名并获取完整路径strFullPath，但只能打开资源管理器选中文件，无法实现拖拽导入功能，需要指导正确的实现思路。

当前代码：

Sub DynamicButton_StartDrag(ByVal sender As PictureBox, ByVal e As System.Windows.Forms.MouseEventArgs)

    'Set variables
    strFilename = Split(sender.Name, "_")(2)
    strFilenameWithoutExtension = IO.Path.GetFileNameWithoutExtension(strFilename)
    strFullPath = Directory_PartsAndAssembliesLibrary & strComponentsCategory & "\" & strFilename

    Process.Start("explorer.exe", "/select," & strFullPath)

End Sub

Sub DynamicButton_whileDragging(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)

End Sub

Sub DynamicButton_EndDrag(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

要实现标准的文件拖拽，核心是利用.NET的DoDragDrop方法，将文件路径以Windows系统识别的格式传递给目标应用（SOLIDWORKS），具体步骤如下：

• 开启控件拖拽支持：确保你的PictureBox控件的AllowDrop属性设置为True（可在设计时属性面板设置，或初始化代码中设置）。
• 传递标准文件格式数据：在拖拽开始事件中，用DataObject包装文件路径，指定格式为DataFormats.FileDrop，然后调用DoDragDrop启动拖拽操作。
• 移除无效代码：原代码中打开资源管理器的Process.Start无需保留，替换为拖拽逻辑。

修改后的代码：

Sub DynamicButton_StartDrag(ByVal sender As PictureBox, ByVal e As System.Windows.Forms.MouseEventArgs)
    ' 获取文件完整路径
    strFilename = Split(sender.Name, "_")(2)
    strFullPath = Path.Combine(Directory_PartsAndAssembliesLibrary, strComponentsCategory, strFilename)
    
    ' 验证文件是否存在（可选但推荐）
    If File.Exists(strFullPath) Then
        ' 包装文件路径为系统识别的拖拽格式
        Dim filePaths() As String = {strFullPath}
        Dim dataObj As New DataObject(DataFormats.FileDrop, filePaths)
        
        ' 启动拖拽操作，设置允许的拖拽效果（SOLIDWORKS通常接受复制）
        sender.DoDragDrop(dataObj, DragDropEffects.Copy)
    End If
End Sub

' 若没有额外拖拽中/结束的逻辑，这两个空方法可以删除
' Sub DynamicButton_whileDragging(...)
' Sub DynamicButton_EndDrag(...)

补充说明：

• 使用Path.Combine拼接路径比直接字符串连接更安全，能自动处理路径分隔符问题。
• 添加文件存在验证可避免传递无效路径导致的错误。
• DragDropEffects.Copy符合Windows资源管理器的拖拽习惯，SOLIDWORKS会识别该格式并执行导入操作。

内容的提问来源于stack exchange，提问作者Eduards