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

Question

1、List增加一行text的时候，怎么保证它跟已有的不重复呢？2、List具体的某一行，怎么表示，比方说，我要List的第3行的text，该怎么写？

Answer 1

1、重复判断一下，不过效率不太高。2、用List1.List(n)
Option ExplicitPrivate Sub Command1_Click()
List1.AddItem "apple"
List1.AddItem "banana"
List1.AddItem "orange"Debug.Print List1.List(1)End Sub第一行以0坐下标。

Answer 2

1。同意楼上
Private Sub Command1_Click()
t = add2list(Text1, List1)    ‘用法
End SubPrivate 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 Function2.list1.list(2)    表示第三项