Question

vb 判断是否重复，不重复的文字记录

有一个text 和一个列表 然后在text中输入字符，判断是否与列表中的重复，不重复自动添加到列表，重复的提示。

Answer 1

'检查重复的函数，主程序调用这个函数来检查是否重复
Private Function findRepeat(str As String)
For i = 0 To List1.ListCount
If str = List1.List(i) Then
findRepeat = True
Exit Function
End If
Next
findRepeat = False
End Function

'点击按钮，检查重复，如果不重复就添加
Private Sub Command1_Click()
Dim r
r = findRepeat(Text1.Text)
If Not r Then
List1.AddItem (Text1.Text)
End If
End Sub

Answer 2

用循环+instr函数了
Private Sub Command1_Click()
Dim cz As Boolean
If List1.ListCount > -1 Then
cz = False
For n = 0 To List1.ListCount - 1
If InStr(List1.List(n), Text1.Text) > 0 Then
'instr只要包含也算重复，如果你打算用=这句可以省略为if List1.List(n)=Text1.Text then
cz = True
Exit For
End If
Next
If cz = False Then
List1.AddItem Text1.Text
End If
End If

End Sub

Answer 3

两个text好做一点，真的。加一个按键，代码如下。
if instr(text1,text2)=0 then text2=text2 & text1 & vbcrlf
这么就OK了啊。
刚刚好像写错了。
应该是
if instr(text2,text1)=0 then text2=text2 & text1 & vbcrlf