VB Combo控件的问题 求高人指教

来源：百度知道 编辑：UC知道 时间：2024/06/03 18:01:34
我想做一个小东西 就是往Combo控件加入数据 可是不能和Combo已经输入的其他数据一样 求高人解决下

Dim T
T = Int(Rnd() * 10 + 0.5) '这里输入你自己的数据
If Combo1.ListCount = 0 Then
Combo1.AddItem T
Else
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = T Then Exit For
Next i
If i = Combo1.ListCount Then Combo1.AddItem T
End If

因为数据已经存在了，数据和索引是一一对应的。
你想，如果你编程指定了Combo的数据，它会指向哪一个索引呢？

Private Sub Command1_Click()
Dim i As Integer
b = False
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(i) Then
MsgBox "数据以存在"
Exit Sub
End If
Next i
Combo1.AddItem Combo1.Text
MsgBox "数据以添加"
End Sub

Private Sub Form_Load()
Dim i As Integer
Combo1.Text = ""
Command1.Caption = "添 加"
'向COMBO添加数据
For i = 0 To 100
Combo1.AddItem i
Next i
End Sub