Question

vb中combo的additem添加的条目怎样做到不重复？

要做到在combo下拉列表中的内容都不重复
而且新添加的在上面

Answer 1

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call Command1_Click
End Sub

Private Sub Command1_Click()
With Combo1
If .Text = "" Then Exit Sub

Dim i As Integer, s As String
s = .Text
For i = 0 To .ListCount - 1
If s = .List(i) Then .RemoveItem i: Exit For
Next i
.AddItem s, 0
End With
End Sub

追问

测试你的代码发现问题：如果从下拉列表中选择一个条目作当前条目，点击command1，当前的条目变成空的了

Answer 2

添加新条目时先遍历已有条目，若已存在要添加的条目时则跳出过程。

追问

新添加的保留，而把以前添加的与新添加的相重复的删除。而不是跳出。请写个代码

追答

组合框为Combo1，单击按钮Command1添加条目则：
Private Sub Command1_Click()
Dim a As Integer
For a = 0 To Combo1.ListCount - 1
If Combo1.List(a) = Combo1.Text Then Exit For
Next
If a Combo1.ListCount Then '若a为Combo1.ListCount则说明已遍历Combo1。list且未发现有相同的条目
Combo1.RemoveItem (a)
End If
Combo1.AddItem (Combo1.Text)
End Sub

追问

可用。但新添加的在列表的最下面，能让新添加的在列表最上面吗？让下拉列表从上到下是按从新到旧排列的。

追答

最后的Combo1.AddItem (Combo1.Text)
改为
Combo1.AddItem (Combo1.Text , 0 )

追问

你看这个怎样，它的原理是当前的如果与列表的重复，则不添加，而不是删除。从下拉列表中选择当前条目时，添加不会删除。
Dim exist As Boolean
exist = False
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(i) Then
exist = True
Exit For
End If
Next
If exist = False Then Combo1.AddItem Combo1.Text

追答

目测为可行，多用了个变量而已。
这样就没有让Combo1.list中的条目按最近使用时间由上至下排列的功能。使用这段代码把Combo1的将 Sorted 属性设置为 True，使条目按字母顺序排列在条目较多时方便查找。