Question

只是想知道是否有人知道如何从VB 6.0中的列表框中删除滚动条？因为我想添加一个全球性的＆＃39;多个列表框的滚动条。我在线搜索过，但所有解决方案都要求将代码放在列表框的click事件中。

Answer 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

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

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

1 个答案: