VB 6.0 从列表框中删除滚动条答案

【问题标题】：VB 6.0 remove scroll bar from listboxVB 6.0 从列表框中删除滚动条
【发布时间】：2016-01-12 19:37:22
【问题描述】：

只是想知道是否有人知道如何在 VB 6.0 中从列表框中删除滚动条？因为我想为多个列表框添加一个“全局”滚动条。我在网上搜索过，但是所有的解决方案都需要将代码放在列表框的点击事件中。

【问题讨论】：

标签： vb6

【解决方案1】：

您可以使用 Windows API 隐藏滚动条。这是一个示例项目，可帮助您入门。在表单中添加一个ListBox（List1）并添加如下代码：

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

Private Const SB_VERT = 1

Private Sub HideVertScrollBar(LB As ListBox)
    Call ShowScrollBar(LB.hwnd, SB_VERT, 0&)
End Sub

Private Sub Form_Load()
    Dim i As Integer

    For i = 1 To 25
        List1.AddItem "Item " & i
    Next

    HideVertScrollBar List1

End Sub

Private Sub List1_Click()

    HideVertScrollBar List1

End Sub

如果您只在Form_Load 中调用HideVertScrollBar，当您手动滚动（使用箭头键）时，滚动条会再次出现。我们也通过在List1_Click 中调用HideVertScrollBar 来解决此问题。

【讨论】：