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 "ToolTipText"):
With List1
.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
           
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.