Question

vb怎样不清空列表框中的所有内容

用list1.clear会清空list1中的所有内容，请问怎样不清空列表框中的所有内容，只保留list1中的前三行，前三行我已经固定好了

Answer 1

Private Sub Command1_Click()
For i = List1.ListCount - 1 To 3 Step -1
List1.RemoveItem i
Next i
End Sub

Private Sub Form_Load()
List1.AddItem "11111"
List1.AddItem "22222"
List1.AddItem "33333"
List1.AddItem "12345"
List1.AddItem "12345"
List1.AddItem "12345"
End Sub

追问

For i = List1.ListCount - 1 To 3 Step -1
List1.RemoveItem i
Next i
请问这步的目的是什么？

追答

删除条目啊，这都看不懂？

追问

初学者，知道是删除条目，但不知道具体是怎样工作的，能不能解释详细一点？

追答

查查英语字典就知道了

Answer 2

Private Sub Command1_Click()
Dim I As Integer
For I = List1.ListCount - 1 To 3 Step -1
List1.RemoveItem I
Next I
End Sub