horizontal scroll bar in a list box?

[firemonke5]

is it possible to add a horizontal scroll bar to my listbox, because sometimes the items in it get quite lengthly.

[kinjalgp]

No friend, i don't think so it is possible to add a horizontal scroll bar to a list box.



kinjal

[MartinLiss]

Go to http://www.mvps.org/vbnet/ and do a search for "listbox horizontal" and you'll find your answer.

[BruceG]

In case you haven't found it, here's the code. (To run this example, put a listbox with the default name List1 on your form, then paste this code into the form.)

Option Explicit
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

Private Sub Form_Load()
   List1.AddItem "Line 1"
   List1.AddItem "a big Line 2 some text some text"
   List1.AddItem "line 2"
   List1.AddItem "Line 3"
   addHorScrlBarListBox List1
End Sub


Public Sub addHorScrlBarListBox(ByVal refControlListBox As Object)
   Dim nRet As Long
   Dim nNewWidth As Integer
   nNewWidth = 400 ' new width in pixels
   nRet = SendMessage(refControlListBox.hwnd, _
    LB_SETHORIZONTALEXTENT, nNewWidth, ByVal 0&)
End Sub