我想删除多行列表框,我试过了
For teller = 0 To 170 Step 1
ListBox1.Items.Remove(teller)
Next但这并不管用。如何删除列表框中的前170行?:)
发布于 2011-11-19 10:01:37
问题是,当您删除项目时,您的列表将变得更短,因此您将耗尽项目。因此,只需在每次遍历中删除第一条记录:
更新以反映minitech的评论
For teller = 0 To 169
ListBox1.Items.RemoveAt(0)
Next发布于 2011-11-19 10:02:08
因为从列表中删除一个项目会向上移动其余的项目,所以只需多次删除第一个项目:
For i As Integer = 1 To 170
Me.ListBox1.Items.RemoveAt(0)
Next您还使用了Remove而不是RemoveAt,后者按引用而不是按索引删除项。
发布于 2011-11-19 10:05:51
尝尝这个
Dim count as Integer
count = ListBox1.Items.Count ''Or 170
For teller = 1 To count Step 1
ListBox1.Items.RemoveAt(0)
Next编辑正如minitech所说,如果你想清空前X个项目的列表或网格或任何其他集合,那么删除第一个项目总是一个好主意。
https://stackoverflow.com/questions/8191287
复制相似问题