vb.net DataGridView拖拽一列进行排序，标题不排序

您可以使用 DataGridView 的 ColumnHeaderMouseClick 事件来实现列的拖拽排序，同时保留标题不排序的功能。以下是实现的步骤：

1. 在 DataGridView 的 ColumnHeaderMouseClick 事件中判断是否为标题行，并且是否为鼠标左键点击事件。

2. 如果是标题行左键点击事件，则判断是否为标题单元格，如果是，则取消默认的排序行为。

3. 在事件中，获取鼠标点击的列索引，并使用该索引对 DataGridView 进行重新排序。

以下是示例代码：

Private Sub dataGridView1_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dataGridView1.ColumnHeaderMouseClick
    If e.Button = MouseButtons.Left AndAlso e.RowIndex = -1 Then ' 如果是标题行左键点击事件
        If TypeOf dataGridView1.Columns(e.ColumnIndex) Is DataGridViewTextBoxColumn Then ' 如果是文本列
            e.Handled = True ' 取消默认的排序行为
            dataGridView1.Sort(dataGridView1.Columns(e.ColumnIndex), System.ComponentModel.ListSortDirection.Ascending) ' 对 DataGridView 进行重新排序
        End If
    End If
End Sub