VB.NET中如何在ComboBox滚动时获取项的索引？

在VB.NET中，ComboBox的SelectedIndex仅在用户点击选中项或通过键盘选择时才会更新，鼠标悬停滚动下拉列表时不会自动变更，因此VB6的定时器轮询方法不再适用。以下是两种可行的实现方案：

方案一：鼠标移动时实时获取索引 #

通过MouseMove事件结合IndexFromPoint方法，直接根据鼠标坐标获取当前指向的项索引：

1. 先定义变量记录上一次的悬停索引，避免重复触发：

Private lastHoveredIndex As Integer = -1

2. 处理ComboBox的MouseMove事件：

Private Sub ComboBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles ComboBox1.MouseMove
    If ComboBox1.DroppedDown Then
        ' 将鼠标屏幕坐标转换为ComboBox控件内的相对坐标
        Dim clientPoint As Point = ComboBox1.PointToClient(Cursor.Position)
        ' 获取鼠标指向的项索引
        Dim hoveredIndex As Integer = ComboBox1.IndexFromPoint(clientPoint)
        
        ' 索引有效且与上一次不同时，执行结果更新
        If hoveredIndex >= 0 AndAlso hoveredIndex <> lastHoveredIndex Then
            lastHoveredIndex = hoveredIndex
            ' 替换为你的结果展示逻辑
            UpdateResult(ComboBox1.Items(hoveredIndex).ToString())
        End If
    Else
        lastHoveredIndex = -1
    End If
End Sub

3. 处理下拉列表关闭事件，重置索引：

Private Sub ComboBox1_DropDownClosed(sender As Object, e As EventArgs) Handles ComboBox1.DropDownClosed
    lastHoveredIndex = -1
End Sub

方案二：结合定时器兼容滚动条操作 #

如果需要支持用户滚动下拉列表时（鼠标未移动）也能实时更新，可添加定时器定期检查鼠标位置：

1. 先添加一个Timer控件，设置Interval=250，初始Enabled=False。

2. 处理下拉展开和关闭事件，启停定时器：

Private Sub ComboBox1_DropDown(sender As Object, e As EventArgs) Handles ComboBox1.DropDown
    Timer1.Enabled = True
End Sub

Private Sub ComboBox1_DropDownClosed(sender As Object, e As EventArgs) Handles ComboBox1.DropDownClosed
    Timer1.Enabled = False
    lastHoveredIndex = -1
End Sub

3. 定时器Tick事件中执行索引检查：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If ComboBox1.DroppedDown Then
        Dim clientPoint As Point = ComboBox1.PointToClient(Cursor.Position)
        Dim hoveredIndex As Integer = ComboBox1.IndexFromPoint(clientPoint)
        If hoveredIndex >= 0 AndAlso hoveredIndex <> lastHoveredIndex Then
            lastHoveredIndex = hoveredIndex
            UpdateResult(ComboBox1.Items(hoveredIndex).ToString())
        End If
    End If
End Sub

通用结果展示方法 #

示例中用到的UpdateResult方法可根据需求自定义，比如将内容显示到Label：

Private Sub UpdateResult(itemText As String)
    Label1.Text = $"当前选中项：{itemText}"
End Sub

注意：确保ComboBox的DropDownStyle设置为DropDownList（适配选择已知输入的场景）。

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