Visual Basic > Forms

Show and Hide Listbox Scroll Bars at Runtime

Show and Hide Listbox Scroll Bars at Runtime

The following routines show and hide listbox scroll bars at runtime:

Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

'Purpose     :  Hides/Shows the Horizontal Scroll bar on a list box
'Inputs      :  lbListBox               Listbox to alter
'               bShow                   If True shows Horizontal Scroll bar,
'                                       else hides bar.
'Outputs     :  N/A


Sub ListBoxHorScroll(lbListBox As ListBox, bShow As Boolean)
    Const SB_HORZ = 0, SB_CTL = 2, SB_BOTH = 3
    
    If bShow Then
        Call ShowScrollBar(lbListBox.hwnd, SB_HORZ, 1&)
    Else
        Call ShowScrollBar(lbListBox.hwnd, SB_HORZ, 0&)
    End If
End Sub

'Purpose     :  Hides/Shows the Vertical Scroll bar on a list box
'Inputs      :  lbListBox               Listbox to alter
'               bShow                   If True shows Vertical Scroll bar,
'                                       else hides bar.
'Outputs     :  N/A


Sub ListBoxVertScroll(lbListBox As ListBox, bShow As Boolean)
    Const SB_VERT = 1, SB_CTL = 2, SB_BOTH = 3
    
    If bShow Then
        Call ShowScrollBar(lbListBox.hwnd, SB_VERT, 1&)
    Else
        Call ShowScrollBar(lbListBox.hwnd, SB_VERT, 0&)
    End If
End Sub