当在组合框中输入某一值时，下拉列表框中若有与它相同的表项将删除

编号：QA004377
建立日期: 2001年8月29日 最后修改日期：2001年8月29日
所属类别：

Visual Basic - 标准控件

dipeili:
    我用的是Windows2000,VB6.0
    请问：当用户在组合框中输入某一值时，单击“删除”，下拉列表框中若有与它相同的表项将删除，当单击“清除”，将清除列表框中所有内容。

回答:

     下面是一个示例程序：
    Private Sub cmdClear_Click() '清除按钮按下
     Combo1.Clear
    End Sub
    
    Private Sub cmdDel_Click() '删除按钮按下
     Dim i As Long
     For i = 0 To Combo1.ListCount - 1
     If Combo1.List(i) = Combo1.Text Then
     Combo1.RemoveItem i
     Combo1.Text = ""
     Exit For
     End If
     Next
    End Sub
    
    Private Sub Form_Load()
     With Combo1
     .AddItem "01234"
     .AddItem "12345"
     .AddItem "23456"
     .AddItem "34567"
     .AddItem "45678"
     .AddItem "56789"
     .AddItem "67890"
     .Text = "45678"
     End With
    End Sub

此问题由贺兴伟回答。

把这个问题推荐给朋友         您的意见类别 更好的答案 希望得到进一步解释 我有有关代码可以提供给网友 链接错误 文字错误 其他 您的名字 您的电子邮件 您的建议(请尽可能详细)