关于combobox控件的REMOVEITEM用法

Question

被绑定到 Data 控件的 ListBox 或 ComboBox 不支持 RemoveItem 方法

Answer 1

我的值是用ADDITEM加上去的，我没有绑定DATA控件

Answer 2

bookid=bid.text 
If MsgBox("操作成功,还要继续输入图书吗？", vbOKCancel, "提示！") = vbOK Then
            bid.removeitem bookid        Else
            Unload Me
        End If

Answer 3

object.RemoveItem index
bookid=bid.listindex 
If MsgBox("操作成功,还要继续输入图书吗？", vbOKCancel, "提示！") = vbOK Then
            bid.removeitem bookid        Else
            Unload Me
        End If 

Answer 4

 removeitem combo1.listindex 

Answer 5

如果我只知道要删除的值，而不知道值所对应的LISTINDEX呢
那该怎么操作。

Answer 6

对了想起来了有一个TOPINDEX属性

Answer 7

也可以这么做
i=combo1.listindex
combo1.removeitem i
if combo1.list>0 then
   combo1.listindex=i-1
else
   combo1.listindex=0
end if

Answer 8

大家说的我在帮助里都看得到，可是我是根据TEXT的值来删除的，我怎么得到该值所对应的LISTINDEX？请指教！

Answer 9

Public Function findindex(combo As ComboBox, txt As String) As Integer
Dim i As Integer
Do While Not Combo1.List(i) = txt
    i = i + 1
Loop
findindex = i
End Function