Question

vb中如何让LISTBOX不能添加相同的数据

vb中如何让LISTBOX不能添加相同的数据 谢谢请帮我一下

Answer 1

你可以用代码控制。
在list1.additem str前现对str进行判断，看已添加的item中是否已经有str项，若无则添加，若有则提示。
list控件说明：
list（index）：取索引值为index的item项的值
listindex：当前选择的item项的索引值
ListCount：返回当前list控件中的item数量
RemoveItem(Index)：从list中删除索引号为index的item项
clear：删除所有item项。

通过上面的属性说明，我想你动下脑筋就可以实现你想要的效果了。

具体思路：先设置一个全局布尔变量表示是否能够添加。然后利用循环将listcount个list（index）值与str比较，若出现相等的情况则返回false。

按照这个思路你先自己编了看。

我把源码下载下面【这里用函数的方法表示】：

新建一个标准程序，添加分别一个list，textbox，两个command。

将如下代码复制进去：

Function CheckItem(str As String) As Boolean
Dim i As Integer
For i = 0 To List1.ListCount - 1
If str = List1.List(i) Then
CheckItem = False '有重复项，不可添加
GoTo e_n_d
End If
Next
CheckItem = True '无重复项，可添加
e_n_d:

End Function

Private Sub Command1_Click()
Dim str As String

str = Text1.Text
If CheckItem(str) Then
List1.AddItem str
Else
MsgBox "存在重复项，无法添加！", , App.EXEName
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Answer 2

a= "123"
for i = 0 tu list.listcount-1
if a<> list1.list(i) then
exit for
elseif i=list1.listcount-1 and a<> list1.list(i) then
list1.additem a
end if
next