在vb中，如何通过一个按钮把一个文本框的内容添加列表框中时,但是列表框中的内容不重复

在vb中，如何通过一个按钮把一个文本框的内容添加列表框中时,但是列表框中的内容不重复

思路是在添加前加判断，是否存在
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount -1
If List1.List(i)=TextBox1.Text Then
MessageBox "此内容已经添加过了，不能重复添加!"
Exit Sub
End If
Next
List1.AddItem TextBox1.Text

End Sub

楼上153333的基本是正确的，只是 List1.AddItem TextBox1.Text 这一句，应该写在Next后面，不是在前面。

'在添加前加判断，是否存在 Private Sub Command1_Click() Dim i As Integer For i = 0 To List1.ListCount -1 If List1.List(i)=TextBox1.Text Then MessageBox "不能重复添加!" Exit Sub End If Next List1.AddItem TextBox1.Text End Sub PS:小李无刀 -:)

private sub command1_click() dim f as boolean,i as integer f=true for i=0 to combo1.listindex-1 if text1.text=combo1.list(i) then f=false:exit for next if f then combo1.additem text1.text end sub