Question

我希望让这段代码在运行时更快，甚至可能构建得更好。如果你有想法，我很感兴趣。谢谢你。克劳德。

TextBox1.AutoCompleteCustomSource.Clear()

For i As Integer = 0 To ListBox2.Items.Count - 1
     TextBox1.AutoCompleteCustomSource.Add(ListBox2.Items(i))
Next

ListBox2 只包含排序后的唯一字符串，这让我不会在 TextBox1 文本框中写入重复的字符串。

Answer 1

将 AutoCompleteCustomSource 绑定到 AutoCompleteStringCollection：

    Dim strArr As String() = ListBox2.Items.OfType(Of String)().ToArray()
    Dim MySource As New AutoCompleteStringCollection()
    MySource.AddRange(strArr)
    TextBox1.AutoCompleteCustomSource = MySource
    TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
    TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

Answer 2

你可以试试这个：

for each i to listbox.items.count -1
TextBox1.AutoCompleteCustomSource.Add(ListBox2.Items(i))
next
end for

表单实时捕获 i 并添加列表 intem -1 然后转到另一行并终止 end

在 For Next 循环中更快地执行

2 个答案: