Anzeigen von langen ListBox-Einträgen als ToolTip

Anzeigen von langen ListBox-Einträgen als ToolTip via SendMessage
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LB_ITEMFROMPOINT = &H1A9
Diese Prozedur gilt nur für Excel (MouseMove oder
Private Sub Form_Load() Click zeigen keine Wirkung; außerdem gibt es keinen
With List1 "ToolTipText"):
.AddItem "Walter P.K. Smithworthy, III" Private Sub lstDrucken_DblClick(ByVal Cancel As _
.AddItem "Alicia May Sue McPerson-Pennington" MSForms.ReturnBoolean)
End With With lstDrucken
End Sub If (.ListIndex >= 0) Then
.ControlTipText = .List(.ListIndex)
Private Sub List1_MouseMove(Button As Integer, _ Else
Shift As Integer, X As Single, Y As Single) .ControlTipText = ""
Dim lxPoint As Long End If
Dim lyPoint As Long End With
Dim lIndex As Long End Sub
If Button = 0 Then
lxPoint = CLng(X / Screen.TwipsPerPixelX)
lyPoint = CLng(Y / Screen.TwipsPerPixelY)
With List1
lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((lyPoint * 65536) + lxPoint))
If (lIndex >= 0) And (lIndex <= .ListCount) Then
.ToolTipText = .List(lIndex)
Else
.ToolTipText = ""
End If
End With
End If
End Sub .

Mehr Tipps: Treeview Control programmieren

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt