VB6 - Tilføjelse af en vandret rulle i ListBox

Under VB6 har listefelterne ikke den vandrette rulle, og det kan være ganske angrende, hvis tekstenes længde er længere end ListBoxs bredde.

Dette kræver udvidelsen af listenBox i proportioner, som ikke nødvendigvis er ønskede for design.
Disse få linjer kode genererer en vandret rulle i ListBox.
Åbn et nyt projekt.
Indsæt koden nedenfor i modulet i formularen.

 Alternativ Eksplicit Privat Const LB_SETHORIZONTALEXTENT = & H194 Privat Deklar Funktion SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd så lang, ByVal wMsg så lang, ByVal wParam så lang, lParam som enhver) Så lang Privat Sub Form_Load () Dim Lg Som helhed, L Som helhed, Va som streng, jeg som helhed 'Remplir la list avec des lignes longues pour la démo For i = 0 til 20 Va = Va & "Test" & I & "" List1.AddItem Va L = TextWidth .List (i)) Hvis Lg List1.Width Then HorizontalSrcoll List1, Lg End Hvis End Sub'Adapter les valeurs du scroll vandret. Private Sub HorizontalSrcoll (Lt Som Control, Lg Som Integer) Dim Ret så langt Dim ScrollMax så langt ScrollMax = (Lg / Screen.TwipsPerPixelX) + 6 Ret = SendMessage (Lt.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &) End Sub

Download projekt: