菜鸟问题：如何使一个listbox具有垂直滚动条？？

Question

'不知道是不是这样的效果？
'在form上放个list
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 200
List1.AddItem Str(i * 2)
Next i
End Sub

Answer 1

向它发一个LB_SETHORIZONTALEXTENT的消息

Answer 2

当listbox的内容足够多是，它就自动添加一个垂直滚动条，不需要你管它

Answer 3

发一个LB_SETHORIZONTALEXTENT的消息

Answer 4

垂直滚动条Item多了自然也就有了，
至于水平的：
Private Const LB_SETHORIZONTALEXTENT = &H194
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any _
    ) As Long
Private Sub Form_Load()
    Dim I As Integer
    For I = 0 To 50
        List1.AddItem "This is a Test!This is a Test!This is a Test!"
    Next I
    Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT, 250, ByVal 0&)
End Sub

Answer 5

http://www.csdn.net/expert/topic/521/521202.xml?temp=.188656
主　　题：  List控件能有水平滚动条吗？