Question

我在VB.NET（使用.NET framework 2.0）中组合框的自动完成行为存在问题。

我使用组合框输入 numeric 值，并使用DropDown列表建议可能的 numeric 值。此列表按升序排序，例如{“10”，“92”，“9000”，“9001”}。

组合框属性设置如下：

AutoCompleteMode：SuggestAppend
AutoCompleteSource：ListItems
DropDownStyle：DropDown
排序：错误

DropDown列表就像这样填充：

myCombobox.Items.Add（ “10”）
myCombobox.Items.Add（ “92”）
myCombobox.Items.Add（ “9000”）
myCombobox.Items.Add（ “9001”）

当我没有输入任何内容时，DropDown列表的值顺序是正确的，原始/升序。但是，当我开始输入内容时，DropDown列表中的建议值会被排序（按字母顺序排列）：如果我输入“9”，建议列表将变为{“9000”，“9001”，“92”}。

我想阻止此行为以原始/升序获取列表的值。我无法弄明白......

可能的解决方法是用零填充列表中的值，例如： {“0010”，“0092”，“9000”，“9001”}但我想避免这种情况。

编辑：

正如bendataclear所建议的，可以使用列表框来显示建议。这适用于小型列表，但不能很好地扩展到大型列表。它可能对某些应用程序有用。根据bendataclear给出的代码，我以这种方式工作：

Private Sub ComboBox1_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp



    Dim cursorPos As Integer = ComboBox1.SelectionStart

    ListBox1.Items.Clear()

    For Each s In ComboBox1.Items
        If s.StartsWith(ComboBox1.Text) Then
            ListBox1.Items.Add(s)
        End If
    Next

    If ListBox1.Items.Count > 0 And ComboBox1.Text.Length > 0 Then
        ComboBox1.Text = ListBox1.Items(0)
        ComboBox1.SelectionStart = cursorPos
        ComboBox1.SelectionLength = 0
    End If

End Sub

Dim cursorPos As Integer = ComboBox1.SelectionStart ListBox1.Items.Clear() For Each s In ComboBox1.Items If s.StartsWith(ComboBox1.Text) Then ListBox1.Items.Add(s) End If Next If ListBox1.Items.Count > 0 And ComboBox1.Text.Length > 0 Then ComboBox1.Text = ListBox1.Items(0) ComboBox1.SelectionStart = cursorPos ComboBox1.SelectionLength = 0 End If End Sub

代码尚未经过全面测试并且可以改进，但主要的想法是存在的。

编辑2：

使用DataGridView可以提高性能;这对我来说已经足够了。谢谢flexataclear。

出于好奇，欢迎任何其他答案：）

Answer 1

组合框显示数据时似乎是一个问题，因为即使您设置了自定义来源，它也会按字母顺序重新排序：

ComboBox1.Items.Add("10")
ComboBox1.Items.Add("92")
ComboBox1.Items.Add("9000")
ComboBox1.Items.Add("9001")

ComboBox1.AutoCompleteCustomSource.Add("10")
ComboBox1.AutoCompleteCustomSource.Add("92")
ComboBox1.AutoCompleteCustomSource.Add("9000")
ComboBox1.AutoCompleteCustomSource.Add("9001")

ComboBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

我认为我能想到的唯一方法就是创建自己的自动完成功能（如未经测试）：

Dim cbotxt As String = ComboBox1.Text
Dim key As String

key = ChrW(e.KeyCode)


ListBox1.Items.Clear()

For Each i In ComboBox1.Items

    Dim s As String = i.ToString()

    If s.StartsWith(ComboBox1.Text & key) Then

        ListBox1.Items.Add(s)


    End If

Next

If ListBox1.Items.Count > 0 Then
    ListBox1.Visible = True
    ComboBox1.Text = ListBox1.Items(0)

End If

修改

许多项目的好方法（我在应用程序中使用10000+）：

首先从列表框更改为datagridview。然后声明一个字符串列表并填写您想要自动完成的值

Dim Numberlist as List<Of String> ' Fill List using Numberlist.Add("String")

然后在文本更改属性中：

Filter = NumberList.FindAll(AddressOf checkNum) DataGridView1.DataSource = Filter

添加函数以检查字符串。

Function checkNum(ByVal b As String) As Boolean If b.StartsWith(ComboBox1.Text) Then Return True Else Return False End If End Function

此方法在我的机器上运行，其速度比我输入的速度快10k。

VB.NET Combobox - 数值的自动完成行为

1 个答案: