VS2022中VB.NET如何从拖拽Sender对象获取控件Tag属性

要直接获取被拖拽控件的Tag属性，核心是在拖拽启动时传递整个控件对象，而非仅传递文本。以下是具体实现步骤：

1. 在拖拽源控件的MouseDown事件中启动拖拽并传递控件实例 #

为所有需要被拖拽的Label绑定MouseDown事件，在事件中通过DoDragDrop传递控件本身：

Private Sub DraggableLabel_MouseDown(sender As Object, e As MouseEventArgs) Handles Label4.MouseDown, Label1.MouseDown
    ' 将sender转换为Label类型
    Dim draggedLabel As Label = DirectCast(sender, Label)
    ' 传递整个Label对象，指定允许的拖拽效果
    draggedLabel.DoDragDrop(draggedLabel, DragDropEffects.Copy Or DragDropEffects.Move)
End Sub

2. 在目标控件的DragDrop事件中获取控件并读取Tag属性 #

在目标Label的DragDrop事件里，从e.Data中提取传递的Label对象，直接访问其Tag属性：

Private Sub Label1_DragDrop(sender As Object, e As DragEventArgs) Handles Label1.DragDrop
    ' 验证数据是否为Label类型
    If e.Data.GetDataPresent(GetType(Label)) Then
        ' 提取被拖拽的Label对象
        Dim draggedLabel As Label = DirectCast(e.Data.GetData(GetType(Label)), Label)
        ' 获取Tag属性（可根据需求转换为对应类型）
        Dim draggedTagValue As Object = draggedLabel.Tag
        ' 示例：输出Tag值
        MessageBox.Show($"被拖拽控件的Tag：{draggedTagValue}")
    End If
End Sub

3. 可选：在DragEnter事件中验证拖拽合法性 #

为提升交互体验，可在目标控件的DragEnter事件中设置允许的拖拽效果：

Private Sub Label1_DragEnter(sender As Object, e As DragEventArgs) Handles Label1.DragEnter
    If e.Data.GetDataPresent(GetType(Label)) Then
        ' 设置允许的拖拽效果
        e.Effect = DragDropEffects.Copy
    Else
        ' 不允许非Label控件的拖拽
        e.Effect = DragDropEffects.None
    End If
End Sub

扩展：支持任意控件的拖拽 #

如果需要拖拽不同类型的控件，可将代码中的Label替换为基类Control，兼容所有WinForms控件：

• MouseDown事件：

Dim draggedControl As Control = DirectCast(sender, Control)
draggedControl.DoDragDrop(draggedControl, DragDropEffects.Copy)

• DragDrop事件：

If e.Data.GetDataPresent(GetType(Control)) Then
    Dim draggedControl As Control = DirectCast(e.Data.GetData(GetType(Control)), Control)
    Dim draggedTagValue As Object = draggedControl.Tag
End If

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