VB6 - Vízszintes görgetés hozzáadása a ListBox-ban

A VB6 alatt a lista dobozok nem rendelkeznek a vízszintes görgetéssel, és meglehetősen mondható, ha a szöveg hossza hosszabb, mint a ListBox szélessége.

Ez megköveteli a listabox kiterjesztését olyan arányokban, amelyek nem feltétlenül szükségesek a tervezéshez.
Ezek a kódok néhány sora vízszintes görgetést generál a ListBox-ban.
Nyisson meg egy új projektet.
Illessze be az alábbi kódot az űrlap moduljába.

 Opció Explicit Private Const LB_SETHORIZONTALEXTENT = & H194 Privát Jelentés Funkció SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg mint hosszú, byVal wParam mint hosszú, lParam mint bármi) Olyan hosszú, mint privát alformátum, L, mint integer, Va, mint karakterlánc, i, mint integer 'Remplir la list avec des lignes longues pour la démo i = 0 - 20 Va = Va & "Test" & i & "" List1.AddItem Va L = TextWidth (Lista1 .List (i) Ha Lg List1.Width Ezután HorizontalScrc List1, Lg End Ha vége Sub 'Adapter les valeurs du scroll vízszintes. Privát Sub HorizontalSrcoll (Lt mint vezérlés, Lg mint integer) Dim Ret mint hosszú Dim ScrollMax mint hosszú ScrollMax = (Lg / Screen.TwipsPerPixelX) + 6 Ret = SendMessage (Lt.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &) Vége Sub

Projekt letöltése: