在 ListBox 之中， 如何偵測滑鼠所在位置的選項？

我們可以利用 ListIndex 屬性得知 ListBox 的選項， 但是當滑鼠移到某一個選項上面(但還沒有選取)，如何得知此一選項呢？方法是對 ListBox 送出 LB_ITEMFROMPOINT 訊息， 細節如下：

1. API 的宣告：

Const LB_ITEMFROMPOINT = &H1A9
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

註：如果以上的宣告放在「一般模組」底下， 應在 Const 之前加上 Public 保留字， 並且將 Private 保留字去掉。

2. 呼叫例：(在表單上佈置一個 TextBox 及一個 ListBox， 然後利用 MouseMove 事件程序來偵測滑鼠所在位置的選項)

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim pos As Long, idx As Long
    
    pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
    idx = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal pos)
    ' idx 即等於滑鼠所在位置的選項
    
    If Idx < 65536 Then Text1.Text = List1.List(idx)
End Sub