UC知道vb 删除某一行哪里错了
来源：百度知道 编辑：UC知道 时间：2024/05/05 18:50:46
Dim i1 As Integer
For i1 = ListView1.Items.Count To 1 Step -1
If ListView1.Items.Item(i1).Checked = True Then
ListView1.Items.Remove(ListView1.Items.Itemi1).Index)
End If
Next
怎么办
1楼那个说的是 但是说的是笔误 抱歉
我这个说integer不能传化为“”类型
For i1 = ListView1.Items.Count To 1 Step -1
If ListView1.Items.Item(i1).Checked = True Then
ListView1.Items.Remove(ListView1.Items.Itemi1).Index)
End If
Next
怎么办
1楼那个说的是 但是说的是笔误 抱歉
我这个说integer不能传化为“”类型
ListView1.Items.Remove(ListView1.Items.Itemi1).Index) 这句里面 少了个左括号 ，应该是ListView1.Items.Remove(ListView1.Items.Item(i1).Index)
应该是ListView1.Items.Remove(ListView1.Items.Item(i1))
还有i1应该是 ListView1.Items.Count-1 To 0
如果还有错那么设置 listview1的CheckBoxes属性为true 或者将If ListView1.Items.Item(i1).Checked要改为If ListView1.Items.Item(i1).Selected
Dim i1 As Integer
For i1 = ListView1.Items.Count To 1 Step -1
If ListView1.Items.Item(i1).Checked = True Then
ListView1.Items.Remove(ListView1.Items.Item(i1))
End If
Next
'这样测试通过
Dim i1 As Integer
For i1 = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems.Item(i1).Checked = True Then
ListView1.ListItems.Remove ListView1.ListItems.Item(i1).Index
End If
Next