How do I disable the scroll bar in a listbox?

[peter_z]

Hey Guys,

I have a list box and I want to keep it the same size but for some reason one of the columns in the list box have a scroll bar which I want to get rid of even though the txt fits perfectly.

Does anyone have any code that disables the scroll bar?

Cheers for your help

 

[bensonsearch]

Hey Guys,

I have a list box and I want to keep it the same size but for some reason one of the columns in the list box have a scroll bar which I want to get rid of even though the txt fits perfectly.

Does anyone have any code that disables the scroll bar?

Cheers for your help

Hi,
Maybe try

' API declaration
Option Explicit
Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

'Constants
Private Const SB_HORZ = 0 'Horizontal Scrollbar
Private Const SB_VERT = 1 'Vertical Scrollbbar
Private Const SB_BOTH = 3 'Both ScrollBars



Private Sub Form_Load()

' True = Show ScrollBar
' Hide = Hides ScrollBar

ShowScrollBar List1.hwnd, SB_VERT, False

End Sub

 

[Norie]

Just make sure the column widths are set properly for each column.

One 'test' you could do try is to sum up the column widths and compare them to the width of the listbox.

 

[peter_z]

Hey guys thanks for your help so far, unfortunately none of these ideas work. I just need like an off switch for these scrollers as there is plenty of space for the data but for some reason this scroll bar just won't go away.

 

[peter_z]

bump

 

[Norie]

Where is this listbox located?

I can't create a listbox that has scroll bars for indiividual columns.

 

[peter_z]

Hi Norie,

It is made in the Eexcel -> Developer tab -> Insert -> Form Controls -> List Box

Cheers Peter

 

[Norie]

Peter

How exactly did you create this listbox?

I've tried various things and I can't even create a multicolumn listbox using a control from Form Controls.

 

[Norie]

Is this listbox actually a combobox and it's the dropdown that has the scrollbar?

 

[peter_z]

Giving up on this now, just can't figure it out. In the end made the whole thing way bigger than it needs to be to get rid of the scroller.