我看过一些东西不知道是不是listbox control..一个list 里面有栏 ,是怎么实现的,还是别的控件?

解决方案 »

  1.   

    谢谢cooly 不过好象我不能象listbox 一样的additem...
      

  2.   

    设置ListView1.View = 3Dim itmX As ListItem
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.ClearListView1.ColumnHeaders.Add , , "1"
    ListView1.ColumnHeaders.Add , , "2"
    ListView1.ColumnHeaders.Add , , "3"
    ListView1.ColumnHeaders.Add , , "4"Set itmX = ListView1.ListItems.Add()
    itmX.Text = "项目1"
    itmX.SubItems(1) = "说明2"
    itmX.SubItems(2) = "说明3"
    itmX.SubItems(3) = "说明4"Set itmX = ListView1.ListItems.Add()
    itmX.Text = "项目2"
    itmX.SubItems(1) = "说明2"
    itmX.SubItems(2) = "说明3"
    itmX.SubItems(3) = "说明4"Set itmX = ListView1.ListItems.Add()
    itmX.Text = "项目3"
    itmX.SubItems(1) = "说明2"
    itmX.SubItems(2) = "说明3"
    itmX.SubItems(3) = "说明4"
      

  3.   

    ListView不同于List,没有AddItem方法。Private Sub Form_Load()
       ListView1.ColumnHeaders. _
       Add , , "Author", ListView1.Width / 3
       ListView1.ColumnHeaders. _
       Add , , "Author ID", ListView1.Width / 3, _
       lvwColumnCenter
       ListView1.ColumnHeaders. _
       Add , , "Birthdate", ListView1.Width / 3
       ' Set View property to Report.
       ListView1.View = lvwReport
     Dim itmX As ListItemFor i = 0 To 20
        Set itmX = ListView1.ListItems. _
          Add(, , "Author" & i)   ' Author.Next
    End Sub
      

  4.   

    To Cooly(☆回答问题不要分儿☆) :你的等级为什么是星星啊?我们的为什么是三角形???From [email protected]