如何使用箭头键在 ActiveX Combobox 的项目之间切换

Question

如何用方向键在ActiveX Combobox的item之间切换？我想通过鼠标悬停在项目上来实现这种行为。这样当我们按下箭头键或向上箭头键时，蓝色突出显示就会移动。

我知道应该在 CoboboxName_KeyDown 事件中完成。

Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 38 'up
        Case 40 'down
    End Select
End Sub

Answer 1

操纵TempCombo.ListIndex就是答案。 up arrow 键的示例：

Case 38  'Up
TempCombo.ListIndex = TempCombo.ListIndex - 1
Me.TempCombo.DropDown

使用它需要对列表中的第一项和最后一项进行错误处理。这是解决问题的提示：

如何使用箭头键在 ActiveX Combobox 的项目之间切换

How to switch between items of ActiveX Combobox with arrow keys

excel

vba

combobox

activex