una - Combobox VB.NET-Comportamiento de autocompletado para valores numéricos

insertar datos en combobox vb net

Question

Tengo un problema con el comportamiento de autocompletar de los cuadros combinados en VB.NET (con .NET framework 2.0).

Estoy usando un cuadro combinado para escribir valores numéricos , y su lista desplegable para sugerir posibles valores numéricos . Esta lista está ordenada en orden ascendente, por ejemplo {"10", "92", "9000", "9001"}.

Las propiedades del cuadro combinado se establecen de la siguiente manera:

• AutoCompleteMode: SuggestAppend
• AutoCompleteSource: ListItems
• DropDownStyle: DropDown
• Ordenado: Falso

La lista DropDown simplemente se llena de esta manera:

• myCombobox.Items.Add ("10")
• myCombobox.Items.Add ("92")
• myCombobox.Items.Add ("9000")
• myCombobox.Items.Add ("9001")

Cuando no escribo nada, el orden de los valores de la lista DropDown es correcto, en orden original / ascendente. Sin embargo, cuando empiezo a escribir algo, los valores sugeridos en la lista DropDown se ordenan (alfanuméricamente): si escribo "9", la lista de sugerencias se convierte en {"9000", "9001", "92"}.

Me gustaría evitar que este comportamiento obtenga los valores de la lista en el orden original / ascendente. No puedo entender cómo ...

Una posible solución sería rellenar con ceros los valores de la lista, por ejemplo {"0010", "0092", "9000", "9001"}, pero me gustaría evitar esto.

Editar:

Como lo sugiere bendataclear, uno puede usar un cuadro de lista para mostrar las sugerencias. Esto funcionará para listas pequeñas pero no escala bien a listas grandes. Puede ser útil para algunas aplicaciones. Basado en el código proporcionado por bendataclear, lo hice funcionar de esta manera:

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

El código no se ha probado exhaustivamente y se puede mejorar, pero la idea principal está ahí.

Editar 2:

Usar DataGridView conduce a un mejor rendimiento; fue suficiente para mí. Gracias bendataclear.

Solo por curiosidad, cualquier otra respuesta es bienvenida :)

Answer 1

Parece ser un problema cuando el cuadro combinado muestra los datos, ya que incluso si configura una fuente personalizada, reordena en orden alfabético:

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

Creo que la única forma en que puedo pensar es crear tu propio autocompletar algo así como (no probado):

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

Editar:

Un buen enfoque para muchos elementos (estoy usando más de 10000 en una aplicación):

Primero cambie de un cuadro de lista a una vista de cuadrícula de datos. A continuación, declare una lista de cadenas y complete los valores que desea autocompletar

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

Luego, en la propiedad de cambio de texto:

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

Y agregue la función para verificar las cadenas.

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

Este método se ejecuta en mi máquina con 10k elementos más rápido de lo que puedo escribir.