vb6写的一个 listbox 列表控件去重函数

看到经常有群友抱怨 ai 不好用，其实大多数时候是自己的构词技巧不够，其实只要构词合适，简单的问题一次提问就可以得到满意答案，我经常有复杂的问题都是拆解了多个步骤，多次连续的交互提问，就能满足最终目的。

某次在vb群里有个群友问道 listbox 控件内容如何去重，我用 ai 问了一个代码，我是这样构词的

把ai给的代码复制到 vb的ide里面无需任何修改，直接可使用，这种简单问题，通过ai完全可以解决。

Private Sub Form_Load()
    ' 示例数据
    List1.AddItem "Apple"
    List1.AddItem "Banana"
    List1.AddItem "Apple"
    List1.AddItem "Orange"
    List1.AddItem "Banana"
    List1.AddItem "Grape"
    
    ' 去重
    RemoveDuplicatesFromListBox List1
End Sub

Private Sub RemoveDuplicatesFromListBox(lstBox As ListBox)
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim i As Integer
    For i = 0 To lstBox.ListCount - 1
        ' 如果字典中没有该项，则添加到字典
        If Not dict.Exists(lstBox.List(i)) Then
            dict.Add lstBox.List(i), Nothing
        End If
    Next i
    
    ' 清空 ListBox
    lstBox.Clear
    
    ' 将字典中的项重新添加到 ListBox
    Dim key As Variant
    For Each key In dict.Keys
        lstBox.AddItem key
    Next key
End Sub

Views: 40