Rubrik: Controls · ListBox | VB-Versionen: VB4, VB5, VB6 | 30.06.06 |
Anzahl sichtbarer Einträge einer ListBox ermitteln Mit ein wenig API lässt sich die Anzahl der sichtbaren Einträge einer ListBox schnell ermitteln. | ||
Autor: Dieter Otter | Bewertung: | Views: 16.844 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
In manchen Situationen ist es wichtig zu wissen, wieviele Zeilen sichtbar in einem ListBox-Control angezeigt werden. Beispielsweise dann, wenn man den Standard-Scrollbalken durch einen eigenen ersetzen will.
Mit der universellen API-Funktion "SendMessage" bekommt man die Anzahl der sichtbaren Einträge sehr schnell heraus.
Fügen Sie hierzu nachfolgenden Code in ein Modul ein:
Option Explicit ' Benötigte API-Deklarationen Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Const LB_GETITEMHEIGHT = &H1A1
' Anzahl der sichtbaren Einträge eines ListBox-Control ermitteln Public Function LB_ScreenRows(ListBox As Object) As Long Dim nItemHeight As Long Dim nCount As Long With ListBox ' Ermitteln der Item-Zeichenhöhe nItemHeight = SendMessage(.hwnd, LB_GETITEMHEIGHT, 0, 0) ' Anzahl sichtbarer Einträge On Error Resume Next nHeight = .Parent.ScaleY(.Height, .Container.ScaleMode, vbPixels) - 4 If Err.Number <> 0 Then nHeight = .Parent.ScaleY(.Height, .Parent.ScaleMode, vbPixels) - 4 End If nCount = Int(nHeight / nItemHeight) On Error GoTo 0 If nHeight Mod nItemHeight <> 0 Then nCount = nCount + 1 End With LB_ScreenRows = nCount End Function
Beispiel für den Aufruf:
Dim nRows As Long nRows = LB_ScreenRows(List1)