Question

vb中的listbox控件有没有横向滚动条啊 检举|2006-07-12 09:19蚊香草| 分类：VB| 浏览2002次 控件中的信息

vb中的listbox控件有没有横向滚动条啊
检举|2006-07-12 09:19蚊香草| 分类：VB| 浏览2002次
控件中的信息太长了，看不全呀，只知道listbox控件纵向滚动条必要时会自动出来，可是没有横向的呀，哪位大虾知道我该怎么办？
您说有，哪在哪个位置啊，请大神指教

Answer 1

有呀！很简单的。只要设置List1.Columns = 2（大于0的值就可以）
Columns 属性：返回或设置一个值，以决定 ListBox 控件是水平还是垂直滚动、以及如何显示列中的项目。如果水平滚动，则 Columns 属性决定显示多少列。
语法：object.Columns [= number]
其中，
Object，对象表达式，其值是“应用于”列表中的一个对象。
Number，一个整型值，指定控件如何滚动、以及列中的项目如何排列，“设置值”中有详细描述。
number 的设置值为：
0 （缺省值），项目安排在一列中、且 ListBox 竖直滚动。
1到 n，项目安排在多个列中，先填第一列，再填第二列，等等。 ListBox 水平滚动并显示指定数目的列。
说明：对于水平滚动的 ListBox 控件，列宽等于 ListBox 宽度除以列的个数。
该属性不能设置为 0，在运行时也不能从 0 改变 －也就是说，不能在运行时，将多列 ListBox 变为单列 ListBox 或将单列 ListBox 变为多列 ListBox 。
这就是说，必须在属性窗口中，设置Columns为大于0

Private Sub Form_Load()
List1.Columns = 2
For i = 0 To 30
List1.AddItem i
Next
End Sub

Answer 2

'可以通过API 函数来设置。如：
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
 Const LB_FINDSTRING = &H18F
 Const LB_SETHORIZONTALEXTENT = &H194
Private Sub Form_Load()
    List1.AddItem "软件"
    List1.AddItem "电脑游戏"
    List1.AddItem "电视机"
    List1.AddItem "电视台"
    List1.AddItem "电脑"
    List1.AddItem "电脑游戏软件"
    '下一句为列表框添加水平滚动条
    SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, 250, 0
End Sub

'请参考采纳！谢谢！