vbalistview怎么加滚动条

可以使用ScrollBars属性来添加滚动条，可设置的可选属性有：none、horizontal、vertical、both。如果想要添加横向和纵向滚动条，可以使用下面的语句：

ListView1.ScrollBars = fmScrollBarsBoth

以前有人问过这个问题,下面是答案:

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

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()

For i = 1 To 20

List1.AddItem String(100, "0") &i

Next

SendMessage List1.hwnd, &H194, 999, ByVal 0 '999是滚动条的宽度范围，单位为象素

End Sub

=============================================================

更优的代码

'计算出列表框内最长的项目有多少象素的宽度，这样可以使列表框的滚动条调整到一个合适的范围，因为列表框的内容很可能是会变动的，如果生硬的加一个很大的滚动条，同样会使你的程序显得很不专业，所以这一段是更优的代码！

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long

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_SETHORIZONTALEXTENT = &H194

Const DT_CALCRECT = &H400

Public Function ListTextWidth(ByRef lstThis As ListBox) As Long

Dim i As Long

Dim tR As RECT

Dim lW As Long

Dim lWidth As Long

Dim lHDC As Long

With lstThis.Parent.Font

.Name = lstThis.Font.Name

.Size = lstThis.Font.Size

.Bold = lstThis.Font.Bold

.Italic = lstThis.Font.Italic

End With

lHDC = lstThis.Parent.hdc

'便历所有的列表项以找到最长的项

For i = 0 To lstThis.ListCount - 1

DrawText lHDC, lstThis.List(i), -1, tR, DT_CALCRECT

lW = tR.Right - tR.Left + 8

If (lW >lWidth) Then lWidth = lW

Next i

'返回最长列表项的长度（像素）

ListTextWidth = lWidth

End Function

'调用代码

Private Sub Command1_Click() '点击Command1会使列表框按当前内容中最长项目的宽度来设置滚动条的范围

'列表框内容有变化时，可以调用这行代码，随时改变滚动条的范围

SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, ListTextWidth(List1), 0

'写在这里是为了让你看清楚列表框滚动条的变化

End Sub

'测试数据

Private Sub Form_Load()

Command1.Caption = "点我"

For i = 1 To 100

'添加很长的项目给列表框

List1.AddItem String(i, "0")

Next

End Sub

谁说没用，亲测可以

xml布局里写：

<HorizontalScrollView

      android:layout_width="200dp"

      android:layout_height="fill_parent">

<ListView

android:layout_width="400dp"

android:layout_height="fill_parent"

android:footerDividersEnabled="false"

android:headerDividersEnabled="false"

android:scrollingCache="false"

/>

</HorizontalScrollView>

一个横向滚动且纵向滚动的listView不就出来了

---