[求助]关于ComboBox的RemoveItem方法

Threaten

在ComboBox1选中并点击其中一个Item后将此Item加入到ListBox1的同时在ComboBox1中也删除此Item

Private Sub ComboBox1_Change()
      ListBox1.AddItem ComboBox1.Text
      ComboBox1.RemoveItem ComboBox1.ListIndex
End Sub

请问在ComboBox中删除一个Item是不是用Removeitem方法？为什么Excel会提示：无效参数

Excel的Help中找不到ComboBox的RemoveItem方法的具体示例，能否给予答复？

谢谢

Threaten

没有答复吗?

方漠

上传一个附件也许别人帮你的时候可以节省一些时间.

Threaten

问题的所在是当运行ComboBox1.RemoveItem ComboBox1.ListIndex时会再次激活ComboBox1_Change(),然后ComboBox1.ListIndex就变成了"-1",所以会出错! 请问有什么方法可以避免?

我使用了一个很笨的办法,如下:

Dim IfTwice As Boolean

Private Sub ComboBox1_Change()
If IfTwice = True Then
   IfTwice = False
   Exit Sub
End If
If ComboBox1 <> "" Then
   ListBox1.AddItem ComboBox1.Text
   IfTwice = True
   ComboBox1.RemoveItem ComboBox1.ListIndex
   ComboBox1 = ""
End If
End Sub


有其他办法吗?

还有就是在ListBox1中双点击会删除ListBox1中的Item,可是如何在删除后将此Item再加回到ComboBox1中呢?代码如下:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem ListBox1.ListIndex
End Sub


请帮我看看吧,谢谢了

[此贴子已经被作者于2006-6-27 16:57:43编辑过]

Threaten

等待赐教~~~

谢谢

方漠

见附件,是你想要的效果吗? 用错了触发事件,应当用CLICK而不是CHANGE. 至于从LISTBOX加回COMBOX比较简单,但要保持原来的LISTINDEX则需要去对SHEET名进行一个判断才可以.

Threaten

感谢,感谢,再感谢[em01]