VB的List的用法的两个小问题，谢谢！

[getgoodgift]

1、List增加一行text的时候，怎么保证它跟已有的不重复呢？

2、List具体的某一行，怎么表示，比方说，我要List的第3行的text，该怎么写？

[goodname008]

1、重复判断一下，不过效率不太高。

2、用List1.List(n)


Option Explicit

Private Sub Command1_Click()
List1.AddItem "apple"
List1.AddItem "banana"
List1.AddItem "orange"

Debug.Print List1.List(1)

End Sub

第一行以0坐下标。

[captainivy]

1。同意楼上
Private Sub Command1_Click()
t = add2list(Text1, List1) ‘用法
End Sub

Private Sub Form_Load()
List1.AddItem "apple"
List1.AddItem "banana"
List1.AddItem "orange"

End Sub
Function add2list(ByVal s As String, ls As ListBox) As Boolean
For i = 0 To ls.ListCount
If ls.List(i) = s Then '有相同数据
add2list = False
Exit Function
End If
Next
ls.AddItem s
add2list = True
End Function

2.list1.list(2) 表示第三项