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

您可以使用DataGridView控件的ColumnHeaderMouseClick事件来实现拖拽一列进行排序，标题不动的效果。具体实现步骤如下：

1. 设置DataGridView控件的AllowUserToOrderColumns属性为True，允许用户拖拽列。

2. 在ColumnHeaderMouseClick事件中，判断用户是否点击了列标题。如果是，则将SortMode属性设置为Programmatic，禁止用户通过单击列标题进行排序。

3. 在ColumnHeaderMouseClick事件中，判断用户是否拖拽列。如果是，则获取当前列的索引和鼠标拖拽的位置，然后使用DoDragDrop方法进行拖拽操作。

4. 在DragEnter事件中，判断拖拽的数据是否是列的索引，如果是，则将Effect属性设置为Move，表示可以移动列。

5. 在DragDrop事件中，获取拖拽的列索引和目标列索引，然后交换两列的位置即可。

下面是示例代码：

Private Sub DataGridView1_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseClick
    ' 判断是否点击了列标题
    If e.Button = MouseButtons.Left AndAlso e.RowIndex = -1 Then
        ' 禁止用户通过单击列标题进行排序
        DataGridView1.Columns(e.ColumnIndex).SortMode = DataGridViewColumnSortMode.Programmatic
    End If
End Sub

Private Sub DataGridView1_ColumnHeaderMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseDoubleClick
    ' 恢复列排序功能
    DataGridView1.Columns(e.ColumnIndex).SortMode = DataGridViewColumnSortMode.Automatic
End Sub

Private Sub DataGridView1_ColumnHeaderMouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseMove
    ' 判断是否拖拽列
    If e.Button = MouseButtons.Left AndAlso e.RowIndex = -1 Then
        ' 开始拖拽操作
        Dim data As New DataObject(DataFormats.Text, e.ColumnIndex.ToString())
        DataGridView1.DoDragDrop(data, DragDropEffects.Move)
    End If
End Sub

Private Sub DataGridView1_DragEnter(sender As Object, e As DragEventArgs) Handles DataGridView1.DragEnter
    ' 判断拖拽的数据是否是列的索引
    If e.Data.GetDataPresent(DataFormats.Text) AndAlso Integer.TryParse(e.Data.GetData(DataFormats.Text).ToString(), Nothing) Then
        ' 可以移动列
        e.Effect = DragDropEffects.Move
    End If
End Sub

Private Sub DataGridView1_DragDrop(sender As Object, e As DragEventArgs) Handles DataGridView1.DragDrop
    ' 获取拖拽的列索引和目标列索引
    Dim sourceIndex As Integer = Integer.Parse(e.Data.GetData(DataFormats.Text).ToString())
    Dim targetIndex As Integer = DataGridView1.Columns.GetColumnIndexAtX(e.X)

    ' 交换两列的位置
    If sourceIndex <> targetIndex Then
        Dim sourceColumn As DataGridViewColumn = DataGridView1.Columns(sourceIndex)
        DataGridView1.Columns.RemoveAt(sourceIndex)
        DataGridView1.Columns.Insert(targetIndex, sourceColumn)
    End If
End Sub

注意：以上代码仅实现了拖拽一列进行排序，标题不动的功能。如果您需要实现更复杂的排序功能，可以参考DataGridView控件的Sort方法。