[LØST]ToolTip over hver enkelt item på en listbox

[Richard87]

Kossen kan eg få opp en custom tooltip der muse e?

 

og kossen kan eg fina ut ka teksten under muså e i en listbox?

Endret 3. april 2005 av Richard87

[aadnk]

Du kan benytte SendMessage sammen med meldingen LB_ITEMFROMPOINT for å gjøre dette:

 

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 Const LB_ITEMFROMPOINT = &H1A9

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

   Dim lngY As Long
   Dim lngX As Long
   Dim lIndex As Long

   ' Fortsett kun dersom brukeren holder musen over listboksen
   If Button = 0 Then
   
       ' Klargjør informasjonen vi skal sende til API-kallet
       lngX = CLng(X / Screen.TwipsPerPixelX)
       lngY = CLng(Y / Screen.TwipsPerPixelY)
   
       With List1
       
           ' Be om å få elementet musepekeren ligger over
           lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((lngY * 65536) + lngX))
           
           ' Fortsett dersom dette elementet eksisterer i listboksen
           If (lIndex >= 0) And (lIndex <= .ListCount) Then
               .ToolTipText = .List(lIndex)
           Else
               .ToolTipText = ""
           End If
         
       End With
       
   End If

End Sub

[Richard87]

tusen takk, det virket perfekt...