VB6 - Dodavanje vodoravnog pomicanja u ListBoxu

Pod VB6 popisni okviri nemaju vodoravno pomicanje i može biti prilično neznačajno ako je duljina teksta dulja od širine ListBoxa.

To zahtijeva širenje popisa u razmjerima koji nisu nužno potrebni za dizajn.
Ovih nekoliko redaka koda generira horizontalni pomak u ListBoxu.
Otvorite novi projekt.
Zalijepite donji kôd u modul obrasca.

 Opcija Eksplicitna Privatna Konst, L As Integer, Va As String, i As Integer 'Zamijenite popis s dugim nizovima za i = 0 do 20 Va = Va & "Test" & Listu "" List1.AddItem Va L = TextWidth (List1) .List (i)) Ako Lg Lista1.Širina zatim HorizontalniSrcoll Popis1, Završi ako završi Sub 'Adapter les valeurs du scroll horizontal. Privatni sub HorizontalSrcoll (Lt kao kontrola, Lg kao cijeli broj) Dim Povucite kao dugo Dim ScrollMax kao dugo

Preuzmite projekt: