Question

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

Answer 1

Private Sub Command1_Click()
Dim A, K
A = Text1.Text
For x = 0 To List1.ListCount - 1
If List1.List(x) = A Then
K = 1
End If
Next
If K = 0 Then List1.AddItem A
End Sub

Answer 2

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