Question

VB的combobox控件实现代码

2、编写代码实现如下的功能：当在文本框输入一个字母，并点击"添加到组合框"按钮时，如果组合框中已经存在该字母，就显示"该字母已经存在"，不将该字母添加到组合框中；否则将该字母添加到组合框中。
或者说
如何逐个提取combobox的列表list中的数据。
能实现这个功能也可以。

Answer 1

Private Sub Command1_Click()
Dim i As Integer, S As String
For i = 0 To Combo1.ListCount - 1
If InStr(1, Combo1.List(i), Combo1.Text, vbTextCompare) > 0 Then '如果组合框中已经存在该字母
MsgBox "该字母已存在!", , "提示"
Exit Sub
End If
Next
Combo1.AddItem Combo1.Text '否则追加数据到列表尾部
End Sub

'另：逐个提取combobox的列表list中的数据的代码如下：
Dim i As Integer, S As String
For i = 0 To Combo1.ListCount - 1
s= Combo1.List(i)
msgbox "第" & i & "条记录是：" s
End If
Next

Answer 2

For t = 0 To Combo1.ListCount - 1
If Text1.Text = Combo1.List(t) Then
MsgBox "该字母已存在!", , "提示"
Exit Sub
End If
Next
Combo1.AddItem Text1.Text