Scroll Bars in ListBox Control !

[ashky]

Hai,

How can i set both vertical and horizontal scroll bars in a listbox control.

There isn't any property during design time. However the horizontal scroll bars works as the number of items increases but not the vertical scroll bar.

Any idea / code highly appreciated ...,

ashky.

[YoungBuck]

Use the SendMessage API call with the LB_SETHORIZONTALEXTENT constant, ie......

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 Const LB_SETHORIZONTALEXTENT = &H194
 
Public Sub AllowHorizScroll(pList As ListBox, pTwips As Integer)
Dim iPix As Integer
    
    iPix = pTwips \ Screen.TwipsPerPixelX
    
    SendMessage pList.hwnd, LB_SETHORIZONTALEXTENT, iPix, &O0
 
End Sub
 
Private Sub Form_Load()
 AllowHorizScroll List1, List1.Width + 1000
End Sub

[ashky]

Dear YoungBuck,

Thank you very much for ur reply. It worked perfectly.

ashky.