VB6 - Hinzufügen eines horizontalen Bildlaufs in ListBox

Unter VB6 haben die Listboxen keinen horizontalen Bildlauf und es kann ziemlich langweilig werden, wenn die Länge der Texte länger als die Breite der ListBox ist.

Dies erfordert die Erweiterung der ListBox in Proportionen, die für das Design nicht unbedingt erwünscht sind.
Diese wenigen Codezeilen erzeugen einen horizontalen Bildlauf in ListBox.
Öffne ein neues Projekt.
Fügen Sie den folgenden Code in das Modul des Formulars ein.

 Option Explicit Private Const LB_SETHORIZONTALEXTENT = & H194 Private Deklarierungsfunktion SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd So lange, ByVal wMsg So lange, ByVal wParam So lange, lParam So lange, L As Integer, Va As String, i As Integer Die Liste mit den angegebenen Längen für i = 0 bis 20 wird angezeigt. Va = Va & "Test" & i & "" List1.AddItem Va L = TextWidth (List1 .List (i)) If Lg List1.Width Then HorizontalSrcoll List1, Lg End If End Sub 'Adapter für den horizontalen Bildlauf. Private Sub HorizontalSrcoll (Lt als Steuerelement, Lg als Ganzzahl) Dim Ret As Long ScrollMax As Long ScrollMax = (Lg / Screen.TwipsPerPixelX) + 6 Ret = SendMessage (Lt.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &) End Sub

Projekt herunterladen: