Question

vb中如何删除combo中的数据

For i1 = 0 To 1
With Combo10(i1)
.AddItem "冰"
.AddItem "混"
.AddItem "睡"
.AddItem "毒"
.AddItem "物理"
.AddItem "风"
.AddItem "雷"
.AddItem "水"
.AddItem "火"
.AddItem "震慑"
.ListIndex = 0
End With
Next i1

代码如上，如果combo10(0)选中某项，那么combo10(1)中就删除此项。

比如：combo10(0)中选中冰，那么combo10(1)中就没有此项
combo10(0)中选中混，那么combo10(1)中就没有此项，但是有刚才的冰

Answer 1

combo10(1).clear
for i = 0 to combo10(0).ListCount-1
if i<>combo10(0).ListIndex then
combo10(1).AddItem combo10(0).list(i)
next i
next i