VB.NET从 DataGridView 选定的多个单元格的数据复制到其他选中的单元格，详细举例说明事件

假设有一个 DataGridView 名为 dgv1，其中有多个单元格被选中。现在需要将这些选中的单元格中的数据复制到其他选中的单元格中。以下是一个详细的实现过程：

1. 在 Form_Load 事件中添加以下代码，启用 DataGridView 的多选模式：

dgv1.MultiSelect = True
dgv1.SelectionMode = DataGridViewSelectionMode.CellSelect

2. 在 DataGridView 的 CellMouseDown 事件中添加以下代码，用于记录下选中的单元格的位置信息：

Private selectedCells As New List(Of DataGridViewCell)

Private Sub dgv1_CellMouseDown(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgv1.CellMouseDown
    If e.Button = MouseButtons.Left AndAlso e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
        selectedCells.Clear()
        For Each cell As DataGridViewCell In dgv1.SelectedCells
            selectedCells.Add(cell)
        Next
        selectedCells.Add(dgv1(e.ColumnIndex, e.RowIndex))
    End If
End Sub

3. 在 DataGridView 的 CellMouseUp 事件中添加以下代码，用于将选中的单元格中的数据复制到其他选中的单元格中：

Private Sub dgv1_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgv1.CellMouseUp
    If e.Button = MouseButtons.Left AndAlso e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 AndAlso selectedCells.Count > 1 Then
        Dim sourceCell As DataGridViewCell = dgv1(e.ColumnIndex, e.RowIndex)
        If selectedCells.Contains(sourceCell) Then
            selectedCells.Remove(sourceCell)
            For Each cell As DataGridViewCell In selectedCells
                cell.Value = sourceCell.Value
            Next
        End If
    End If
End Sub

以上代码中，我们首先判断是否按下了左键并且选中了至少两个单元格，然后获取当前鼠标点击的单元格作为源单元格。如果源单元格也在选中的单元格中，则将其从列表中移除，然后遍历其他选中的单元格，将源单元格中的数据复制到它们中。

这样就实现了从 DataGridView 选定的多个单元格的数据复制到其他选中的单元格的功能。