VB listview用法

来源：百度知道 编辑：UC知道 时间：2024/06/07 02:55:36
我新建了一个listview控件名为LV1
现在求源码==>>在lv1中添加4列，分别为：序号，时间，日期，备注
并且添加两行内容，分别为：1，00:00:00，2008-01-01，(无)
2，00:00:01，2008-01-01，(无)

哪位大虾帮忙写源码~~~，小弟感谢啊！
总体效果：
序号，时间，日期，备注
1，00:00:00，2008-01-01，(无)
2，00:00:01，2008-01-01，(无)

代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
LV1.View = lvwReport
LV1.ColumnHeaders.Add , , "序号"
LV1.ColumnHeaders.Add , , "时间"
LV1.ColumnHeaders.Add , , "日期"
LV1.ColumnHeaders.Add , , "备注"
LV1.ListItems.Add , , "1"
LV1.ListItems(1).SubItems(1) = "00:00:00"
LV1.ListItems(1).SubItems(2) = "2008-01-01"
LV1.ListItems(1).SubItems(3) = "(无)"
LV1.ListItems.Add , , "2"
LV1.ListItems(2).SubItems(1) = "00:00:01"
LV1.ListItems(2).SubItems(2) = "2008-01-01"
LV1.ListItems(2).SubItems(3) = "(无)"
End Sub

aa=lv1.listitems.add("1")
aa.subitems.add("00:00:00")
aa.subitems.add("2008-01-01")
aa=lv1.listitems.add("2")
aa.subitems.add("00:00:00")
aa.subitems.add("2008-01-01")

大概就是这样,我没试是否正确,很久前做过,你了解了原理