VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在 ListBox 之中, 如何检测鼠标所在位置的选项
发表评论(0)作者:, 平台:, 阅读:9661, 日期:2000-03-12
在 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