获取组合框下拉列表中突出显示的项的值？ Excel VBA

Question

The mouseover event of a combobox on my form triggers a label to become visible and show details of the currently selected combobox value. When the user clicks the down arrow to show the combobox list items available for selection, I want the label to update with details of the currently highlighted item in the dropdownlist without having to actually select it as the combobox value.

In other words, as the user moves the mouse over the items and the highlighted item changes, I want the details in the label to update for the highlighted value.

So far, I have found nothing on how to do this. Excel obviously knows which item is highlighted, but how to access this information programmatically eludes me.

Any ideas?

Answer 1

If the combobox is a control then you could use the MouseMove event to get the current highlighted item.

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If ComboBox1.TopIndex > -1 Then
        Dim curIndex As Integer
        curIndex = ComboBox1.TopIndex + Application.WorksheetFunction.RoundDown(Y / 13.5, 0)
        curValue = ComboBox1.List(curIndex)
    End If
End Sub

then show the tooltip.
Note: 13.5 is, by my tests, the height of an item in dropdown...