实现DataGridView拖拽时Label跟随光标 拖拽结束后自动隐藏

原代码的核心问题 #

• DoDragDrop是阻塞方法，会等到拖拽操作完全结束后才执行后续代码，所以你设置label1.Text和followcursor = True的逻辑会延迟到拖拽完成后才触发，导致Label在鼠标释放后才出现。
• 仅监听Form1_MouseMove，当鼠标移动到按钮、面板等子控件上时，窗体不会收到MouseMove事件，因此Label无法跟随光标移动。

修正后的实现方案 #

关键调整点 #

1. 将Label的显示逻辑提前到DoDragDrop之前，避免阻塞导致延迟。
2. 使用全局鼠标消息监听，确保鼠标在任何控件上移动时都能更新Label位置。
3. 拖拽结束后立即隐藏Label并清理状态。

完整VB代码 #

Imports System.Windows.Forms

Public Class Form1
    Implements IMessageFilter

    ' 全局鼠标移动消息常量
    Private Const WM_MOUSEMOVE As Integer = &H200

    Private followCursor As Boolean = False
    Private dragSourceRow As Integer = -1

    Public Sub New()
        InitializeComponent()
        ' 注册全局消息过滤器，监听鼠标移动
        Application.AddMessageFilter(Me)
    End Sub

    ''' <summary>
    ''' 监听全局鼠标移动消息，更新Label位置
    ''' </summary>
    Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
        If followCursor AndAlso m.Msg = WM_MOUSEMOVE Then
            ' 将屏幕坐标转换为窗体客户端坐标
            Dim screenPos As Point = Control.MousePosition
            Dim clientPos As Point = Me.PointToClient(screenPos)
            ' 偏移Label位置，避免光标覆盖文本
            Label1.Location = New Point(clientPos.X + 10, clientPos.Y + 10)
        End If
        ' 返回False不拦截消息，保证其他控件正常工作
        Return False
    End Function

    ''' <summary>
    ''' 源DataGridView的鼠标按下事件，启动拖拽
    ''' </summary>
    Private Sub DataGridView1_MouseDown(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDown
        Dim hitTestResult = DataGridView1.HitTest(e.X, e.Y)
        ' 确保点击的是有效行
        If hitTestResult.RowIndex >= 0 Then
            dragSourceRow = hitTestResult.RowIndex
            ' 先设置Label内容并显示
            Label1.Text = $"正在拖拽第 {dragSourceRow + 1} 行"
            Label1.Visible = True
            followCursor = True

            ' 启动拖拽操作，此方法会阻塞直到拖拽结束
            DataGridView1.DoDragDrop(dragSourceRow, DragDropEffects.Copy)

            ' 拖拽结束后清理状态
            followCursor = False
            Label1.Visible = False
        End If
    End Sub

    ''' <summary>
    ''' 目标DataGridView的拖拽进入事件，设置允许的拖拽效果
    ''' </summary>
    Private Sub DataGridView2_DragEnter(sender As Object, e As DragEventArgs) Handles DataGridView2.DragEnter
        If e.Data.GetDataPresent(GetType(Integer)) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub

    ''' <summary>
    ''' 目标DataGridView的拖拽完成事件，处理行复制逻辑
    ''' </summary>
    Private Sub DataGridView2_DragDrop(sender As Object, e As DragEventArgs) Handles DataGridView2.DragDrop
        If e.Data.GetDataPresent(GetType(Integer)) Then
            Dim sourceRowIndex = CInt(e.Data.GetData(GetType(Integer)))
            Dim sourceRow = DataGridView1.Rows(sourceRowIndex)
            ' 复制源行的单元格值到目标DataGridView
            DataGridView2.Rows.Add(sourceRow.Cells.Cast(Of DataGridViewCell).Select(Function(cell) cell.Value).ToArray())
        End If
    End Sub

    ''' <summary>
    ''' 窗体关闭时移除消息过滤器，避免内存泄漏
    ''' </summary>
    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        Application.RemoveMessageFilter(Me)
    End Sub
End Class

代码说明 #

• 全局消息过滤器：通过实现IMessageFilter接口，监听系统的WM_MOUSEMOVE消息，无论鼠标在哪个控件上，都能捕捉到移动事件并更新Label位置。
• 拖拽逻辑顺序：先设置Label显示状态，再调用DoDragDrop，解决了阻塞导致的Label延迟显示问题。
• 拖拽结束清理：DoDragDrop完成后立即隐藏Label并重置状态，确保拖拽结束后Label消失。

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