listbox的水平伸展

Question

listbox好像没有水平伸展是不是阿？当里面的内容的宽度超过一开始的设定以后，超出的部分就看不见了。也没有办法滚动一些吗？在垂直方向上面是有这个功能的。那位大哥知道怎么能让listbox在水平方向上面也可以伸展。多谢。

Answer 1

'新建一个工程，放个按钮和LISTBOX(用缺省名字)，粘贴下面代码进去
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 LongPrivate Sub Command1_Click()
SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, 800, 0
'800 is the new width
End SubPrivate Sub Form_Load()
    For i = 1 To 99
        List1.AddItem i
    Next
End Sub