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

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 29 行

下面是一个示例程序： 
    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 
<END>