怎样设置Listview为单列显示？

Question

奇怪，我的ListView只能多列（横向）显示（不能每行只是一条记录），而且没有滚动条？
设置哪些属性？谢谢。
添加项的代码如下
Set xItem = Me.ListView1.ListItems.Add(1, "engineccm:ccm1", "ccm1")
Set xItem = Me.ListView1.ListItems.Add(2, "engineccm:ccm2", "ccm2")

Answer 1

Private Sub Form_Load()
  Dim i As Integer
  Dim itmx As ListItem
  
  With Me.ListView1
    .View = lvwReport
    .GridLines = True
    
    .ColumnHeaders.Add , , "111"
    .ColumnHeaders.Add , , "222"
    .ColumnHeaders.Add , , "333"
    
    For i = 1 To 100
      Set itmx = Me.ListView1.ListItems.Add(, , i)
          itmx.SubItems(1) = i
          itmx.SubItems(2) = i
    Next i
  End With
End Sub

Answer 2

Private Sub Form_Load()
    Dim xItem
    Me.ListView1.ColumnHeaders.Clear
    Me.ListView1.ColumnHeaders.Add , , "Text"
    Me.ListView1.View = lvwReport
    
    Set xItem = Me.ListView1.ListItems.Add(1, "engineccm:ccm1", "ccm1")
    Set xItem = Me.ListView1.ListItems.Add(2, "engineccm:ccm2", "ccm2")End Sub

Answer 3

daisy8675(莫依) 
不好意思，没怎么看懂，也没时间试了
 fishzone(阿愚@脸上有疤) 
试过了，可以，谢谢！
另 ：
怎么没有滚动条？怎么出来？

Answer 4

多加一些项目，就是多一些
    Set xItem = Me.ListView1.ListItems.Add(2, "engineccm:ccm2", "ccm2")这样的语句，等所有项目的高度超过了listview的高度，滚动条就出来了。

Answer 5

listview 的高度不够了，就会有。

Answer 6

flatscrollbar=false OK
THANKS