Question

VB怎样清除listbox的空项?

Answer 1

For i = List1.ListCount - 1 To 0 Step -1
If List1.List(i) = "" Then List1.RemoveItem i
Next

Answer 2

i = List1.ListCount - 1
Do While i >= 0
If List1.List(i) = vbNullString Then List1.RemoveItem i
i = i - 1
Loop