ComboBox

[Noa_]

Hola amigos, tnego una pequeña duda,
tengo un combobox con varios elementos dentro

quiero que cuando escribaalgo en la caja
se abran los elementos y me de las coincidencias mas cercanas

ejemplo

tengo en los elemenos

gato negro
perro negro
dinosaurio loco
lapiz rojo

si tecleo negro que me muestre
gato negro y perro negro

lo puedo hacer con el las propiedades
AutocompleteMode
AutoCompleteSorce

pero con esas propiedades solo son para buscar por la primera letra

bueno espero haberme explicadoo
Gracias.!!

[Aquaventus]

Hola Noa_ que lenguaje estas usando ?

[Noa_]

c# 2008 compañero ..

[Aquaventus]

yo tengo la funcionalidad que tu quieres pero con un textbox y un listbox. =/ voy a tratar de adaptar en combo. Saludos!

[Noa_]

ok y con textox como lo haces, tembien tengo textbox en mi formulario
te lo agradeceria

[Aquaventus]

el problema del textbox es que "simula tener un autocomplete" ya que el listbow lo alineo debajo del el de manera que si encuentra que liste sino que no se ponga visible, de todas maneras dame el tiempo de implementarlo en combo, si veo que no doy te brindo el code del textbox con listbox. Saludos! .

PDT: Por cierto los valores de tu textbox los agregas de una consulta a una BD? o son insertados manualmente?

[Aquaventus]

Noa_! Te dejo el enlace del textbox con listbox que te mencione para que lo vayas revisando, mientras lo complemento en un combo.

Autocomplete textbox and listbox

[Noa_]

los datos los meto de una tabla de una base de datos

[Aquaventus]

sin duda no me ah podido salir en un combo, creo que lo tendrias que hacer de esa manera del textbox para que haga la funcionalidad que dices. Saludos!.

[Carlojas]

Que tal Noa_, lo que tambien puedes hacer es ir llenando el combobox con los datos de tu BD al momento de escribir en el textbox, para ello programas tu código en el evento TextChanged del cuadro de texto. por ejemplo:

Código vb:

Try
    Dim dt as Datatable
    dt = New DataTable()
    Consulta = "SELECT * FROM TUTABLA WHERE elemento LIKE '%" + Trim(TUTEXTBOX.Text) + "%'"
    Dim adaptador As New SqlDataAdapter(Consulta, Conexion)
    adaptador.Fill(dt)
    For Each Row As DataRow In dt.Rows
         TUCOMBOBOX.Items.Add(Row("NOMBREELEMENTO").ToString)
    Next
Catch ex As Exception
    MessageBox.Show("Error consultando la base de datos - " + ex.Message)
End Try
 

Saludos.

[Noa_]

Muchas Gracias por la Informacion Carlos
te lo agradesco
asi es como lo hise

Gracias