關(guān)于組合框數(shù)據(jù)的提取求救

灰太郎

鼠標(biāo)只是放在組合框的選項(xiàng)上在沒(méi)有按下鼠標(biāo)的情況下，另一個(gè)文本框也同步得到下面選項(xiàng)條的數(shù)據(jù)顯示出來(lái)，是否能出來(lái)，望各位高手幫忙

灰太郎

Private Sub 用戶_List_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  '用戶數(shù)量在20個(gè)時(shí)
   Dim hoverIndex As Long
    Dim hoverValue As String
    Dim textheight
    textheight = 315 '315為組合框單條文本的高度
    ' 計(jì)算鼠標(biāo)懸停的選項(xiàng)索引
    If Y < textheight Then
    hoverIndex = 0
    ElseIf Y Mod 300 = 0 Then
     hoverIndex = Int(Y / 300) - 1
    Else
    hoverIndex = Int(Y / 300)
    End If
   
    If hoverIndex >= 0 And hoverIndex < Me.用戶_List.ListCount Then
        ' 獲取懸停選項(xiàng)的值
        hoverValue = Me.用戶_List.ItemData(hoverIndex)
        ' 將值顯示在文本框中
        Me.txtUser.Value = hoverValue
    End If
End Sub

灰太郎

不知還有沒(méi)其他方法