输入时列表框跳转项

Question

可能这很容易，但我已经搜索了一个帖子或某人有同样的问题没有财富。 我在 Vb Net 中有一个列表框，其中包含一个名称列表。 在 vb6 中，在列表框中键入时，所选项目会根据键入的字母自动更改，直到完成，但我找不到在 VS 中重复相同事情的方法，因为它让我做的唯一事情就是只识别第一个在列表框中键入的一个字母。 因此，如果在列表中有两个相似的名称，如 Autocarro 或汽车，如果在“A”之后输入“U”，则 cursor 将移动到“Urban”的“U”。 谁能帮我找到一个不使用文本框的解决方案？ 提前致谢

Answer 1

您可以使用ComboBox并将DropDownStyle设置为Simple 。 这将显示一个与ListBox组合的TextBox （因此名称为 Combo Box）。

要使其自动生成 select 条目，您可以使用以下代码添加TextChanged事件处理程序：

private void ComboBox1_TextChanged(object sender, EventArgs e)
{
    int inputLength = comboBox1.Text.Length;
    if (inputLength > 0) {
        int index = comboBox1.FindString(comboBox1.Text);
        if (index >= 0) {
            comboBox1.SelectedIndex = index;
            comboBox1.Focus();
            comboBox1.SelectionStart = inputLength;
            comboBox1.SelectionLength =
                ((string)comboBox1.Items[index]).Length - inputLength;
        }
    }
}

但是请注意，编辑文本框部分变得有点困难，因为每次编辑文本时都会启动选择机制。 例如，使用Dellete或Backspace删除文本效果不佳，因为自动选择会立即恢复文本。 您可以通过键入Ctrl - A 、 Delete来删除整个文本。

ComboBox输入"cl"后：

Answer 2

试试这个（适用于文本框和 combobox，不确定它是否直接在列表框中工作，你可以试试这个石灰），你可以做的是在列表框顶部添加文本框并运行第二个代码以将数据添加到文本框作为建议

ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend

或者这个

    Dim iddata As New AutoCompleteStringCollection()
    Dim idtable As New DataTable
    idtable = (your datatable source)
    For Each r As DataRow In idtable.Rows
        iddata.Add(r("id").ToString)
    Next

    With Textbox1
        .AutoCompleteCustomSource = iddata
        .AutoCompleteMode = AutoCompleteMode.Suggest
        .AutoCompleteSource = AutoCompleteSource.CustomSource
    End With