我新建了一个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 (无)
现在求源码==>>在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 (无)
Option ExplicitPrivate Sub Form_Load()LV1.ColumnHeaders.Add , , "序号"
LV1.ColumnHeaders.Add , , "时间"
LV1.ColumnHeaders.Add , , "日期"
LV1.ColumnHeaders.Add , , "备注"Dim itm As ListItemSet itm = LV1.ListItems.Add(, , 1)
itm.SubItems(1) = "00:00:00"
itm.SubItems(2) = "2008-01-01"
itm.SubItems(3) = "(无)"Set itm = LV1.ListItems.Add(, , 2)
itm.SubItems(1) = "00:00:01"
itm.SubItems(2) = "2008-01-01"
itm.SubItems(3) = "(无)"LV1.View = lvwReport
LV1.FullRowSelect = TrueEnd Sub
ListView1.ColumnHeaders.Add , , "序号"
ListView1.ColumnHeaders.Add , , "时间"
ListView1.ColumnHeaders.Add , , "日期"
ListView1.ColumnHeaders.Add , , "备注"
ListView1.View = lvwReport
Set x = ListView1.ListItems.Add(, , "1")
Set x = ListView1.ListItems.Add(, , "2")Set x = ListView1.ListItems(1).ListSubItems.Add(, , "00:00:00")
Set x = ListView1.ListItems(1).ListSubItems.Add(, , "2008-01-01")
Set x = ListView1.ListItems(1).ListSubItems.Add(, , "(无)")
Set x = ListView1.ListItems(2).ListSubItems.Add(, , "00:00:01")
Set x = ListView1.ListItems(2).ListSubItems.Add(, , "2008-01-01")
Set x = ListView1.ListItems(2).ListSubItems.Add(, , "(无)")
End Sub