VB下拉列表递减代码？

来源：百度知道 编辑：UC知道 时间：2024/05/22 13:14:03
一个下拉列表(combo1)，下面输进去了很多了名称，为了使用方便，最好是能在同样一个功能的下一个(combo2)把（combo1）里面输入名称的减去.
大哥 能不能直接在COMOBO2里面减去，在comobo1里面的数？

Private Sub Combo2_LostFocus()
Dim you As Boolean
you = False
For i = 0 To Combo1.ListCount - 1
If Combo2.Text = Combo1.List(i) Then
Combo2.Text = ""
you = True
MsgBox "另一组合框里已经有了！"
Exit For
End If
Next i
If Not you Then Combo2.AddItem Combo2.Text
End Sub

Private Sub Form_Load()
For i = 0 To 9
Combo1.AddItem i
Next i
End Sub

运行时，在combo2输入后要在别处（窗体和combo2之外的地方）点以下