[SOURCE] HListScrollAdd7913 Funcion para agregar Scroll horizontal a un ListBox

[79137913]

HOLA!!!

Como lo dice el titulo, agrega un scrollbar horizontal al ListBox, yo la usaria con Call, pero le puse para que devolviera false en el caso que no resultara.

Código (vb) [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Function HListScroll7913Add(ListX As ListBox) As Boolean
On Error GoTo Err:
Dim X As Long
Dim new_len As Long
Dim max_len As Long
   HListScrollAdd7913 = True
   For X = 0 To ListX.ListCount - 1
       new_len = 10 + ScaleX(TextWidth(ListX.List(X)), ScaleMode, vbPixels)
       If max_len < new_len Then max_len = new_len
   Next
   SendMessage ListX.hwnd, &H194, max_len, 0
Err:
   HListScrollAdd7913 = False
End Function

GRACIAS POR LEER!!!

[seba123neo]

es igual que esto:

Agregar ScrollBar horizontal a un ListBox

yo igual declararia la constante que le estas pasando ahi que es "&H194", que corresponde a:

Código (vb) [Seleccionar] Expandir

Private Const LB_SETHORIZONTALEXTENT = &H194

porque sino no se sabe que es ese valor....

otra forma es esta:

Código (vb) [Seleccionar] Expandir

Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Const SB_BOTH = 3

Private Sub Form_Load()
ShowScrollBar List1.hwnd, SB_HORZ, True
End Sub

saludos.