vb Listbox 鼠标滚动

[yz595959]

如何实现鼠标滚动

[king06]

本来就支持鼠标滚动啊,另
SendMessage List1.hwnd, &H194, 250, 0 '为列表框添加水平滚动条

[贝隆]

根本就不需要添加什么额外的代码啊，楼主可以试一试这个代码，看看滚动鼠标ListBox跟着滚动否。

Option Explicit

Private Sub Form_Load()
    Dim intP As Integer
    List1.Clear
    For intP = 1 To 1000
        List1.AddItem Right("000" & CStr(intP), 3)
    Next intP
End Sub