如何避免VB.NET应用阻塞Windows源文件夹线程以支持后续拖放操作

你的DragDrop事件在UI线程中同步执行耗时的PerformMyLongRunningProcess方法，导致拖放操作一直无法完成——Windows会认为拖放流程未结束，因此锁定源资源管理器窗口，直到该事件执行完毕。

可以通过队列+Timer的方式，让DragDrop事件快速完成以释放资源管理器，再利用UI线程的空闲时间处理文件：

1. 定义队列存储待处理文件路径，同时添加标志位防止处理重入：

Private ReadOnly pendingFiles As New Queue(Of String)
Private isProcessing As Boolean = False

2. 修改DragDrop事件，仅完成文件路径收集并启动Timer：

Private Sub Form_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter
  e.Effect = DragDropEffects.Copy
End Sub
           
Private Sub Form_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
  Dim Complete_PathFilenames() As String = e.Data.GetData("FileDrop", False)
  For Each ThisScriptFile As String In Complete_PathFilenames
    pendingFiles.Enqueue(ThisScriptFile)
  Next
  processTimer.Start() ' 启动Timer触发文件处理
End Sub

3. 添加Timer控件（命名为processTimer），设置Interval为100（可按需调整），编写Tick事件处理逻辑：

Private Sub processTimer_Tick(sender As Object, e As EventArgs) Handles processTimer.Tick
  ' 仅当无正在处理的文件且队列非空时执行
  If pendingFiles.Count > 0 AndAlso Not isProcessing Then
    isProcessing = True
    Dim currentFile = pendingFiles.Dequeue()
    PerformMyLongRunningProcess(currentFile)
    isProcessing = False
  ElseIf pendingFiles.Count = 0 Then
    processTimer.Stop() ' 队列为空时停止Timer
  End If
End Sub

效果说明 #

• DragDrop事件会立即执行完毕，Windows会判定拖放流程结束，资源管理器可正常进行后续拖放或操作。
• 文件处理在Timer的Tick事件中执行（仍处于UI线程），应用自身UI会暂时卡住，但资源管理器的锁定问题已解决。

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