vb Combo的问题

Question

Private Sub Form_Load() 
Dim A As Integer 
A = 0 
Combo1.AddItem "111111" 
Combo1.AddItem "222222" 
Combo1.AddItem "333333" 
Combo1.AddItem "444444" 
Combo1.AddItem "" 
Combo1.AddItem "" 
Combo1.AddItem "555555" 
Combo1.AddItem "666666" 
Combo1.AddItem "777777" 
A = Combo1.ListCount 
For B = 0 To A - 1 
If Combo1.List(B) = "" Then 
Combo1.RemoveItem B 
End If 
Next B 
End Sub 它老是说参数或者过程无效。是怎么回事

Answer 1

今天上来，本来想提问的，我的问题就是：Combo的关键字为什么不能是以数字开头的字符串？居然，一进社区就碰楼主遇到了同样的问题....真巧啊..........

Answer 2

你在AddItem的时候还有一个参数是Index，这样你才可以Remove的时候用这个Index

Answer 3

打错了，应该是ListView
ListItems.Add id, "111", "111"     //Wrong
ListItems.Add id, "A111", "A111"    //ok

Answer 4

我的意思就是把Combo里面的空项删掉。执行到Combo1.RemoveItem B就提示了。不知道怎么回事。

Answer 5

因为你删掉一个之后，combo1的listcount数就变了啊所以最后一项就不存在了才报错的

Answer 6

删除ListBox，ComBox控件的item应该从后向前删，要不然很容易错，也很容易漏过要删除的itemA = Combo1.ListCount 
For B = A - 1  To 0 step -1
If Combo1.List(B) = "" Then 
Combo1.RemoveItem B 
End If 
Next B 
End Sub

Answer 7

这是一个小小的技巧，但是一定要记牢
类似的控件还有很多呢，涉及到循环删除item的时候都要注意这个问题
呵呵

Answer 8

那listview的问题，大家能不能帮帮忙阿？？
谢了

Answer 9

Silo(炽天之翼),你这是借鸡生旦啊!