Combobox y validacion problema Mayusculas y minusculas vb.net winform

[damid3]

Wenas a todos de nuevo

tengo un combobox el cual cargo con código:

Código vb:

Private Sub cargarfamilia()
        query = "SELECT familia FROM familias"
        dr = conec.consulta(query)
        While dr.Read
            cbfamilia.Items.Add(dr.GetValue(0).ToString)
        End While
    End Sub
 

la propiedades del combobox están en:

autocompletemode: append
autocompletesource:listitems
dropdownstyle: dropdown

cuando sale del combobox lo valido para ver si esta en el mismo

Código vb:

Private Sub cbfamilia_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbfamilia.Leave
        Dim a As String
        a = cbfamilia.Text
        If cbfamilia.Items.Contains(a).ToString Then
        Else
            MsgBox("Elija una familia valida")
            cbfamilia.Focus()
        End If
    End Sub
 

el tema es que si yo tengo cargado la familia ejemplo " Madera " y en el combobox escribo " madera " no me lo reconoce con mi validación es decir como no tiene la M mayúscula.

Otra cosa podría cargar las familias a mayúsculas y cuando compruebo transformar el contenido del combobox a mayúsculas pero la idea es no hacerlo

¿existe alguna forma ?

Si necesitan mas información por favor pedírmela aunque creo que no me deje nada

Como siempre desde ya Muchas Gracias

Saludos

[Aquaventus]

Hola damid3, revisa el siguiente enlace Autocomplete Combobox. Saludos!.

[damid3]

hola aqua lo e leído pero no me sirve o por lo menos no veo la forma de que me sirva el tema es que lo tengo puesto bien pero con mi validación por código no puedo hacer que no distinga mayúsculas y minúsculas
gracias por la info = esta super completo

Saludos

[BalamKhai]

Hola, convierte todo a mayúsculas en durante la ejecución, así:

Private Sub cbfamilia_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbfamilia.Leave
Dim a As String
a = cbfamilia.Text.ToUpper 'convierte a mayúsculas
If cbfamilia.Items.Contains(a).ToString.ToUpper Then 'comparas mayúsculas con mayúsculas
Else
MsgBox("Elija una familia valida")
cbfamilia.Focus()
End If
End Sub

Espero te sirva, saludos

[damid3]

Hola BalamKhai se me ocurrio eso tambien pero me lanza el error MsgBox("Elija una familia valida") como si no lo encontrara


Saludos

[Aquaventus]

Ok, ya te entendí. Pero no es necesario que traigas todo a mayusculas desde la BD, sería mejor si lo haces por código, ya sea a minúscula(ToLower) o mayúscula(ToUpper). :

Código vb:

Private Sub cbfamilia_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbfamilia.Leave
 
        Dim a As String
        a = cbfamilia.Text.ToLower()
        If busqueda(a) Then
        Else
            MsgBox("Elija una familia valida")
            cbfamilia.Focus()
        End If
    End Sub
 
    Public Function busqueda(ByVal parametro As String) As Boolean
        Dim result As Boolean = False
 
        For i As Integer = 0 To cbfamilia.Items.Count - 1
            If cbfamilia.Items(i).ToString.ToLower().Equals(parametro) Then
                result = True
                Exit For
            End If
        Next
 
        Return result
 
    End Function
 

Saludos!.

[damid3]

Perfecto ahora si funciona y veo porque

si esta claro que me conviene pasarlo a mayúsculas o a minúsculas pero es una cuestión de hacer las cosas como quiero mas que nada porque si se me da el problema en algún lado saber como solucionarlo

me explico ?

lo e modificado un poco porque uso mucho la validación de combobox de la siguiente forma lo pongo como una funciona de mi modulo de funciones para cualquier combobox

Código vb:

Public Function busqueda(ByVal parametro As String, ByVal cb As ComboBox) As Boolean
        Dim result As Boolean = False
 
        For i As Integer = 0 To cb.Items.Count - 1
            If cb.Items(i).ToString.ToLower().Equals(parametro) Then
                result = True
                Exit For
            End If
        Next
 
        Return result
 
    End Function
 

con suerte le sirve al que mire le post

Muchas Gracias como Siempre

Saludos