不是ListView1.Items.SubItems
而是ListView1.Items(序号).Subitems
首先ListView1.Items是一个集合。
ListView1.Items(序号)表示集合内的一个个体,即ListViewItem
所以应该是这样
Dim litem As New ListViewItemlitem.Text = Fico
litem.SubItems.Add(Fname)
litem.SubItems.Add(Ftype)
litem.SubItems.Add(Fpath)
ListView1.Items.Add(litem)
这里把你的Fico当作了String,如果要显示图标,应该配合ImageList添加。
Dim clmX As ColumnHeader '为 ColumnHeader 对象创建对象变量。Set clmX = ListView1.ColumnHeaders.Add(, , "列名", ListView1.Width / 3) '建立三列
Set clmX = ListView1.ColumnHeaders.Add(, , "user_mm", ListView1.Width / 3)
Set clmX = ListView1.ColumnHeaders.Add(, , "user_Tx", ListView1.Width / 3)
Private Sub Command1_Click()
Dim item As ListItem
Set item = ListView1.ListItems.Add(, , Text1)
item.SubItems(1) = Text2
item.SubItems(2) = Text3
item.SubItems(3) = Text4
End Sub
Private Sub Form_Load()
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "a"
.ColumnHeaders.Add , , "b"
.ColumnHeaders.Add , , "c"
.ColumnHeaders.Add , , "d"
End With
End Sub
这个列表我也是刚学,只弄懂了怎么添加,列表的第一列是主项,通过ListItems.Add添加,其它列是该项目下子项,通过该主项的子项数组SubItems赋值,下标从1开始。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)