很简单的一个问题：关于控件

Question

我想找一个这样的控件：同时具有水平和垂直滚动条，而且能想listbox一样，能用鼠标点击选择其中的任一项？listbox能不能同时添加这两种滚动条，该怎么添加，谢谢

Answer 1

Option Explicit 
     
    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 Const LB_SETHORIZONTALEXTENT = &H194 
     
    Private Sub Command1_Click() 
     List1.AddItem "Line 1" 
     List1.AddItem "a big Line 2 some text some text" 
     List1.AddItem "Line 3" 
     addHorScrlBarListBox List1 
    End Sub 
     
    Public Sub addHorScrlBarListBox(ByVal refControlListBox As Object) 
     ' 加横向滚动条 
     
     Dim nRet As Long 
     Dim nNewWidth As Integer 
     
     nNewWidth = refControlListBox.Width + 100 ' 新宽度，以像素为单位。 
     nRet = SendMessage(refControlListBox.hwnd, _ 
     LB_SETHORIZONTALEXTENT, nNewWidth, ByVal 0&) 
    End Sub 

Answer 2

Me.List1.Columns = 3
 当list 在你的控件显示不了的时候自动增加垂直和水平滚动条

Answer 3

ListBox控件的垂直滚动条是自动增加的，而水平滚动条得需要用API来添加，方法如bbhere(阿忠)所给出的

Answer 4

再问一个问题，listbox显示能不能换行，谢谢