VB ListBox 鼠标提示

来源：百度知道 编辑：UC知道 时间：2024/05/31 04:02:34
因为ListBox控件的没有横向滚动条，往往一行显示不了一条记录，向编一个程序，当鼠标指向哪一行时，就的鼠标上完整显示那一行的信息。

望告之，谢谢！！！

给你一段代码可以解决你的问题：vb6下编译通过！！

Option Explicit

Private 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

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)

If idx < 65536 Then List1.ToolTipText = List1.List(idx)

End Sub

你试一试吧，主要是掌握SendMessage函数的几种形式的用法！！！

直接显示我不会，不过单击后显示我倒有办法，很简单，就是利用listbox的tooltiptext属性，单击后，让listbox的该属性内容等于你指定的那一行的内容就可以了。