VB6 - Agregar un desplazamiento horizontal en ListBox

Bajo VB6, los cuadros de lista no tienen el desplazamiento horizontal y puede ser bastante angosto si la longitud de los textos es más larga que el ancho del cuadro de lista.

Esto requiere la expansión del listBox en proporciones que no son necesariamente deseadas para el diseño.
Estas pocas líneas de código generan un desplazamiento horizontal en ListBox.
Abre un nuevo proyecto.
Pegue el siguiente código en el módulo del formulario.

 Opción Explícita Privada Const LB_SETHORIZONTALEXTENT = & H194 Función Privada de Declaración SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Any) Como Long Private Sub Form_Lad / Jp, L como entero, Va como cadena, i como entero 'Remplir la lista avec des lignes longues pour la démo For i = 0 To 20 Va = Va & "Test" & i & "" List1.AddItem Va L = TextWidth (List1 .List (i)) Lg List1.Width Then HorizontalSrcoll List1, Lg End If End Sub 'Adapter le 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 (Ltd.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &) End Sub

Descargar proyecto: