Tipp 0162 Längere Einträge als ToolTipText anzeigen
Autor/Einsender:
Datum:
  Angie
05.09.2003 (Update)
Entwicklungsumgebung:   VB 5
Beim Formulardesign kommt es häufig vor, dass man die Breite der ListBox zu schmal bemisst oder dies sogar aus Platzgründen notwendig ist. Dieses Beispiel zeigt, wie man die längeren, nicht lesbaren ListBox-Einträge als ToolTipText anzeigen kann.
 
Option Explicit

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_GETITEMHEIGHT = &H1A1

Private Sub Form_Load()
  Dim i As Long

  With List1
    .AddItem "Michael Schumacher - Ferrari"
    .AddItem "Ralf Schumacher - Williams BMW"
    .AddItem "David Coulthard - McLaren Mercedes"
    .AddItem "Kimi Räikkönen - McLaren Mercedes"
    .AddItem "Jarno Trulli - Renault"
    .AddItem "Fernando Alonso - Renault"
    .AddItem "Nick Heidfeld - SAUBER PETRONAS"
    .AddItem "H.-H. Frentzen - SAUBER PETRONAS"
    .AddItem "Giancarlo Fisichella - Jordan Ford"
    .AddItem "Zsolt Baumgartner - Jordan Ford"
    .ListIndex = 0
  End With
End Sub

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

  ListBoxToolTip List1, Y, "VB-Fun-Demo"
End Sub

Private Sub ListBoxToolTip(ByVal lst As ListBox, ByVal Y _
    As Single, Optional ByRef DefaultToolTip As String = "")

  Dim lstHeight As Long
  Dim lstItem As Long

  lstHeight = SendMessage(lst.hwnd, LB_GETITEMHEIGHT, 0&, 0&)
  lstItem = (Y \ Screen.TwipsPerPixelY) \ lstHeight

  lstItem = lstItem + lst.TopIndex
  If lstItem < lst.ListCount Then
    lst.ToolTipText = lst.List(lstItem)
  Else
    lst.ToolTipText = DefaultToolTip
  End If
End Sub
 
Weitere Links zum Thema
Eintrag unter Mauscursor ermitteln
Mehrzeiliger ToolTipp-Text

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,8 kB) Downloads bisher: [ 1656 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 6. August 2011