vb把一个组合框内容添加到文本框时，如何限定只添加不重复的内容？

来源：百度知道 编辑：UC知道 时间：2024/07/04 07:57:29
点击按钮command1把一个组合框combo1.text的内容添加到一个文本框text1中时，如何限定只添加不重复的内容？比如，第一次点击按钮command1把一个组合框combo1.text的内容“aaaaaa”添加到文本框text1中。第二次又点击按钮command1把组合框combo1.text的相同内容“aaaaaa”向文本框text1添加时，自动忽略，不添加。

Private Sub Command1_Click()
Dim Arr
Dim i As Integer

Arr = Split(Text1.Text, vbCrLf)

For i = 0 To UBound(Arr)
If Combo1.Text = Arr(i) Then
MsgBox "内容已存在！"
Exit Sub
End If
Next i

Text1.Text = Text1.Text & Combo1.Text & vbCrLf
End Sub

Private Sub Form_Load()
Dim i As Integer

For i = 1 To 10
Combo1.AddItem "第" & i & "条信息"
Next i
End Sub

---------------------------------------
这个需要把text1设置成允许多行，每输入一条信息后自动换行
---------------------------------------
Private Sub Command1_Click()
Dim i As Integer

If InStrRev(Text1.Text, Combo1.Text) Then
MsgBox "内容已存在！"
Exit Sub
Else
Text1.Text = Text1.Text & Combo1.Text
End If
End Sub

Private Sub Form_Load()
Dim i As Integer

For i = 1 To 10
Combo1.AddItem "第"