WinForms ListBox无法向下拖拽重排项 向下拖拽时程序崩溃报错

• 直接崩溃的核心诱因：ListBox1.IndexFromPoint() 方法在鼠标位置落在ListBox控件内最后一项下方的空白区域时，会返回-1，原代码未做边界判断就把-1传给Items.Insert()方法，直接触发System.ArgumentOutOfRangeException异常。向下拖拽时更容易碰到列表末尾空白区域，因此表现为向下拖就崩溃。
• 拖放逻辑存在索引计算错误：原代码采用「先插入新项、再删除原选中项」的顺序，但没有根据拖拽方向修正删除位置的索引：向上拖拽时插入位置在原选中项前，插入操作会让原选中项索引+1，此时直接取SelectedIndex删除会出现错位；向下拖拽时如果未触发-1边界问题，索引计算看似能跑，但逻辑不严谨，碰到边界场景必崩。
• 拖放触发逻辑无有效性校验：MouseDown事件中不管点击的是列表项还是空白区域都会触发拖放，点击空白时拖拽的文本为空值，也会引发异常。

按以下规则调整代码即可：

• 拖放时传递原项的索引而非文本，避免列表存在重复项时逻辑错乱
• 对IndexFromPoint的返回值做边界处理，返回-1时将目标索引设为列表项总数（即插入到列表末尾）
• 插入完成后，根据目标索引和原索引的大小关系，计算要删除的原项的正确索引
• 仅当鼠标左键点击在有效列表项上时才触发拖放操作

修复后的完整代码如下：

' 存储拖拽起始的原项索引
Dim dragSourceIndex As Integer = -1

Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
    ' 转换鼠标坐标为ListBox内部坐标
    Dim clientPoint As Point = ListBox1.PointToClient(New Point(e.X, e.Y))
    Dim targetIndex As Integer = ListBox1.IndexFromPoint(clientPoint)
    
    ' 处理拖到末尾空白返回-1的边界场景
    If targetIndex = -1 Then
        targetIndex = ListBox1.Items.Count
    End If

    ' 校验拖拽源索引有效性，同位置无需处理
    If dragSourceIndex < 0 OrElse dragSourceIndex >= ListBox1.Items.Count Then Return
    If targetIndex = dragSourceIndex OrElse targetIndex = dragSourceIndex + 1 Then Return

    ' 读取拖拽项内容，插入到目标位置
    Dim dragItem As Object = ListBox1.Items(dragSourceIndex)
    ListBox1.Items.Insert(targetIndex, dragItem)

    ' 计算原项真实删除位置：目标在原位置后删原索引即可，目标在原位置前原索引已后移1位
    Dim removeIndex As Integer = If(targetIndex > dragSourceIndex, dragSourceIndex, dragSourceIndex + 1)
    ListBox1.Items.RemoveAt(removeIndex)

    ' 重置拖拽标记
    dragSourceIndex = -1
End Sub

Private Sub ListBox1_DragOver(sender As Object, e As DragEventArgs) Handles ListBox1.DragOver
    ' 仅当拖拽内容为有效索引时显示移动效果
    If e.Data.GetDataPresent(GetType(Integer)) Then
        e.Effect = DragDropEffects.Move
    Else
        e.Effect = DragDropEffects.None
    End If
End Sub

Private Sub ListBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDown
    ' 仅左键点击有效列表项时触发拖放
    If e.Button = MouseButtons.Left Then
        dragSourceIndex = ListBox1.IndexFromPoint(e.Location)
        If dragSourceIndex <> -1 Then
            ListBox1.DoDragDrop(dragSourceIndex, DragDropEffects.Move)
        End If
    End If
End Sub

修复后支持向上、向下拖拽、拖拽到列表末尾等全场景操作，不会再出现索引越界崩溃问题，同时规避了重复项导致的拖放错位问题。

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