VB6 - Een horizontale schuif in ListBox toevoegen

Onder VB6 hebben de keuzelijsten niet de horizontale schuif en kan het behoorlijk irritant zijn als de lengte van de teksten langer is dan de breedte van de ListBox.

Dit vereist de uitbreiding van de lijstbox in verhoudingen die niet noodzakelijkerwijs gewenst zijn voor ontwerp.
Deze paar coderegels genereren een horizontale scroll in ListBox.
Open een nieuw project.
Plak de onderstaande code in de module van het formulier.

 Optie Expliciete private const LB_SETHORIZONTALEXTENT = & H194 Private Declare Functie SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam as Any) As Long Private Sub Form_Load () Dim Lg As Integer, L As Integer, Va As String, i As Integer 'Remplir la list avec des lignes longues pour la démo For i = 0 Tot 20 Va = Va & "Test" & i & "" Lijst1.AddItem Va L = TextWidth (Lijst1 .List (i)) Als Lg Lijst1.breedte Dan HorizontalSrcoll Lijst1, Lg End If End Sub 'Adapter les valeurs du scroll horizontal. Private Sub HorizontalSrcoll (Lt As Control, Lg As Integer) Dim Ret As Long Dim ScrollMax As Long ScrollMax = (Lg / Screen.TwipsPerPixelX) + 6 Ret = SendMessage (Lt.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &) End Sub

Download project: