Question

vb编程里 怎么去除list控件里重复的内容 比如list1里的内容是 111 111 222

vb编程里
怎么去除list控件里重复的内容

比如list1里的内容是
111
111
222
222
333
333

谢谢

Answer 1

这个方法很多的：都需要循环来完成
1，可以采用循环搜索比较，从上到下进行，一一排除。
2，也可以采用，读取到数组里，排除重复。
下面是方法一的代码。
Dim i As Integer
Dim j As Integer
i = 0
Do While i < List1.ListCount - 1
j = i + 1
Do While j <= List1.ListCount - 1
If List1.List(i) = List1.List(j) Then
List1.RemoveItem j
Else
j = j + 1
End If
Loop
i = i + 1
Loop

Answer 2

Private Sub Command1_Click()
Dim i As Single, j As Single
Dim ListArr() As String
Dim Repeat As Boolean
ReDim ListArr(0)
ListArr(0) = List1.List(0)
For i = 0 To List1.ListCount
    Repeat = False
    For j = 0 To UBound(ListArr)
        If List1.List(i) = ListArr(j) Then Repeat = True: Exit For
    Next
    If Repeat = False Then
        ReDim Preserve ListArr(UBound(ListArr) + 1)
        ListArr(UBound(ListArr)) = List1.List(i)
    End If
Next
List1.Clear
For i = 0 To UBound(ListArr)
    List1.AddItem ListArr(i)
Next
End Sub

添加这个过程即可

追问

谢谢晚上我试试看

Answer 3

不难

Answer 4

循环判断