VB6 - Horisontaalisen vierityksen lisääminen ListBoxissa

VB6: ssa luetteloruuduissa ei ole vaakasuuntaista vierityspainiketta, ja se voi olla melko ilmeistä, jos tekstien pituus on pidempi kuin ListBoxin leveys.

Tämä edellyttää listaboxin laajentamista sellaisissa mittasuhteissa, joita ei välttämättä haluta suunnitteluun.
Nämä muutamat koodirivit luovat vaakasuuntaisen vierityksen ListBoxissa.
Avaa uusi projekti.
Liitä alla oleva koodi lomakkeen moduuliin.

 Vaihtoehto Selkeä Yksityinen Const LB_SETHORIZONTALEXTENT = & H194 Yksityinen ilmoitus Toiminto SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd niin pitkä, ByVal wMsg niin kauan, ByVal wParam niin kauan, lParam kuin mikä tahansa) Pitkä yksityinen alamuoto_Load () Dim Lg Integer, L kokonaislukuna, Va merkkijonoina, i Kokonaisarvona '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) Jos Lg List1.Width Sitten HorizontalScroll List1, Lg End Jos lopetetaan Sub 'Adapter les valeurs du scroll horisontaalisesti. Yksityinen Sub HorizontalSrcoll (Lt As Control, Lg As Integer) Dim Ret As Long Dim ScrollMax Kuten Pitkä ScrollMax = (Lg / Screen.TwipsPerPixelX) + 6 Ret = SendMessage (Lt.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &) Lopeta

Lataa projekti: