UC知道vb中listview的使用疑问
来源：百度知道 编辑：UC知道 时间：2024/05/19 05:25:02
我建了一个From1其中有一个command1与listview1两个控件，下面是一段程序，可是无运行，无论怎么给Subitems(N)赋值都提示“无效的属性值”，不知到是怎么回事啊？
Private Sub Command1_Click()
Dim list As ListItem
Set list = Me.ListView1.ListItems.Add()
list.SubItems(1) = 222 '无效的属性值，实时错误 ‘380’
End Sub
Private Sub Command1_Click()
Dim list As ListItem
Set list = Me.ListView1.ListItems.Add()
list.SubItems(1) = 222 '无效的属性值，实时错误 ‘380’
End Sub
Private Sub Command1_Click()
Dim lst As ListItem
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "111", 2000
ListView1.ColumnHeaders.Add , , "333", 2000
Set lst = Me.ListView1.ListItems.Add(, , "txt")
With lst
.SubItems(1) = "222" '无效的属性值，实时错误 ‘380’
End With
End Sub