VB6 - Dodajanje vodoravnega drsnika v seznamski vrstici

Pod VB6 seznamska polja nimajo horizontalnega pomika in morda je precej spoznanje, če je dolžina besedila daljša od širine seznama.

To zahteva razširitev seznama v razmerjih, ki niso nujno zaželena za oblikovanje.
Ta nekaj vrstic kode generira vodoravno pomikanje v ListBoxu.
Odprite nov projekt.
Prilepite spodnjo kodo v modul obrazca.

 Možnost Eksplicitna zasebna konst., L kot celo število, Va kot niz, i kot celo število 'Za ponastavitev seznama najdete dolge dolžine za i = 0 do 20 Va = Va & "Test" & List & List ". .List (i)) Če je Lg List1.Width Potem HorizontalSrcoll List1, Lg End if End Sub 'Adapter les valeurs du scroll horizontal. Zasebni pod-vodoravniSrcoll (Lt kot nadzor, Lg kot celo število) Dim Ret kot dolg Dim ScrollMax kot dolg

Prenesi projekt: