标题: 关于TooltipText属性的使用 [打印本页] 作者: yanyi66 时间: 2009-9-15 23:07 标题: 关于TooltipText属性的使用 当鼠标放到列表框的某一条目时，如果该条目的长度超过了列表框的宽度，则通过
TooltipText属性来显示该条目的详细内容。
我从网上抄了一段代码，但是用于VB上的，放在VBA里发现不行。
请各位多多指教！
问题如图：作者: 方漠 时间: 2009-9-16 09:33
UserForm加宽一点， 将LISTBOX拉宽，第一列宽度设宽一些即可。
代码中的问题应该出在MouseMove没能准确的捕捉到当前移到了哪行上。作者: yanyi66 时间: 2009-9-16 12:42 2#方漠
图片中的代码复制如下：
Private Sub Listbox1_MouseMove
(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Ypos As Integer, iOldFontSize As Integer
iOldFontSize = Me.Font.Size
Me.Font.Size = Listbox1.Font.Size
Ypos = Y \ Me.TextHeight("Xyz") + Listbox1.TopIndex
Me.Font.Size = iOldFontSize
If Ypos < Listbox1.ListCount Then
Listbox1.ToolTipText = Listbox1.List(Ypos)
Else
Listbox1.ToolTipText = ""
End If
End Sub