VBA 获取COMBOBOX中鼠标当前项内容

[ayshi]

请教：如何在VBA中获取COMBOBOX中鼠标当前项内容，不是已经选择的text文本，是鼠标上下移动时下拉表的某一项内容。谢谢

[脆皮大雪糕]

在没有滚动条的情况下，可以试试我下面这段代码。 窗体上放一个按钮，一个comboBox 一个lable

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    On Error Resume Next
    Me.Label1.Caption = Me.ComboBox1.List(Int(Y / Me.ComboBox1.Font.Size))
End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To 10
        Me.ComboBox1.AddItem "item" & i
    Next
End Sub