VB6 - Lägga till en horisontell rullning i ListBox

Under VB6 har listrutorna inte den horisontella rullningen, och det kan vara ganska annorlunda om längden på texterna är längre än ListBox bredd.

Detta kräver utvidgningen av listanBox i proportioner som inte nödvändigtvis är önskvärda för design.
Dessa få rader med kod genererar en horisontell rullning i ListBox.
Öppna ett nytt projekt.
Klistra in koden nedan i modulen i formuläret.

 Alternativ Explicit Private Const LB_SETHORIZONTALEXTENT = & H194 Privat Declare Funktion SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd Så länge, ByVal wMsg så länge, ByVal wParam så länge, lParam som någon) Så länge Privat Subform_Load () Dim Lg som heltal, L som helhet, Va som sträng, jag som helhet "Remplir la lista avec des lignes longues pour la démo För i = 0 Till 20 Va = Va &" Test "& I &" "List1.AddItem Va L = TextWidth (List1 .List (i)) Om Lg List1.Width Sedan HorizontalSrcoll List1, Lg End Om End Sub 'Adapter les valeurs du bläddrar horisontellt. Privat Sub HorizontalSrcoll (Lt som kontroll, Lg som heltal) Dim Ret så länge Dim ScrollMax så länge ScrollMax = (Lg / Screen.TwipsPerPixelX) + 6 Ret = SendMessage (Lt.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &) End Sub

Ladda ner projektet: