vb.net DataGridView拖拽一行进行排序

你可以通过以下步骤实现 DataGridView 中拖拽一行进行排序：

1. 设置 DataGridView 的 AllowUserToOrderColumns 属性为 True，允许用户拖拽列头进行排序。

2. 设置 DataGridView 的 AllowUserToResizeRows 属性为 False，禁止用户调整行高度。

3. 添加 DataGridView 的 MouseDown、MouseMove 和 MouseUp 事件，实现拖拽行的功能。

4. 在 MouseDown 事件中，获取当前鼠标所在行的索引，并将其保存到一个变量中。

5. 在 MouseMove 事件中，判断鼠标是否按下并移动，如果是，则将当前行拖拽到鼠标所在的位置。

6. 在 MouseUp 事件中，获取鼠标所在行的索引，并将其与之前保存的行索引进行比较，如果不同，则交换两行的位置。

下面是一个简单的示例代码：

Dim draggingRow As DataGridViewRow = Nothing

Private Sub DataGridView1_MouseDown(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDown
    If e.Button = MouseButtons.Left Then
        Dim hit As DataGridView.HitTestInfo = DataGridView1.HitTest(e.X, e.Y)
        If hit.Type = DataGridViewHitTestType.RowHeader Then
            draggingRow = DataGridView1.Rows(hit.RowIndex)
        End If
    End If
End Sub

Private Sub DataGridView1_MouseMove(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseMove
    If e.Button = MouseButtons.Left And draggingRow IsNot Nothing Then
        Dim mouseY As Integer = DataGridView1.PointToClient(MousePosition).Y
        Dim targetRow As Integer = DataGridView1.HitTest(0, mouseY).RowIndex
        If targetRow >= 0 And targetRow <> draggingRow.Index Then
            DataGridView1.Rows.Remove(draggingRow)
            DataGridView1.Rows.Insert(targetRow, draggingRow)
        End If
    End If
End Sub

Private Sub DataGridView1_MouseUp(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseUp
    draggingRow = Nothing
End Sub

在这个示例代码中，我们通过鼠标的按下、移动和释放事件来实现行的拖拽排序功能。当鼠标按下时，我们获取当前鼠标所在行的索引，并将其保存到变量 draggingRow 中。当鼠标移动时，我们判断鼠标是否按下并移动，如果是，则将当前行拖拽到鼠标所在的位置。当鼠标释放时，我们清空变量 draggingRow。