Como validar que campos es el que se encuentra vacio y colorear

Question

Yo se que para validar algun textbox pueda estar vacio se hace:

If Textbox1.Text.Trim().Length = 0 Or
   Textbox2.Text.Trim().Length = 0 Or
   Textbox3.Text.Trim().Length = 0 Or
   Textbox4.Text.Trim().Length = 0 Or
   Textbox5.Text.Trim().Length = 0 Or
   Textbox6.Text.Trim().Length = 0 Or
   ComboBox1.Text.Trim().Length = 0 then
   MsgBox("Complete los campos")
   Exit Sub
End If

pero si tengo muchos datos supongamos 100 textbox entre combobox en un solo formulario y se me hace dificil ubicarlos la idea es pinte los que me hayan queda vacios como puedo validar eso?

Saludos

Answer 1

"Javier Rocco" preguntó:

> ... pero si tengo muchos datos supongamos 100 textbox entre combobox en un
> solo formulario y se me hace dificil ubicarlos la idea es pinte los que me
> hayan queda vacios como puedo validar eso?

Recorriendo la colección de controles del formulario y estableciendo el valor que desees a la propiedad BackColor del control cuya propiedad Text sea una cadena de longitud cero, tal y como muestra el siguiente ejemplo, el cual sería recomendable que lo insertaras en un Module a fin de que pudiera estar disponible para cualquier formulario de tu proyecto de Windows Forms:

Friend Module NombreModulo

    Friend Sub ColorearTextBox(frm As Form, backColor As Color)

        For Each ctrl As Control In frm.Controls

            If ((TypeOf ctrl Is TextBox) OrElse (TypeOf ctrl Is ComboBox)) Then
                ' El control es del tipo TextBox o ComboBox.
                '
                If (ctrl.Text.Trim().Length = 0) Then
                    ' La propiedad Text del control es una cadena de longitud cero.
                    ctrl.BackColor = backColor

                Else
                    ' La propiedad Text tiene un valor válido.
                    ctrl.BackColor = Color.White

                End If

            End If

        Next

    End Sub

End Module

Y ahora, desde un formulario cualquiera lo llamarías ejecutando lo siguiente:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        NombreModulo.ColorearTextBox(Me, Color.AliceBlue)

    End Sub

¡Eso es todo! Adapta el ejemplo a tus necesidades.

Un saludo

---

Enrique Martínez Montejo
[MS MVP - Visual Studio y Tecnologías de Desarrollo]

Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción Option Strict.

Answer 2

No me lo pinta 

Answer 3

"Javier Rocco" escribió:

> No me lo pinta

¿Qué debo entender por "pintar"? Si por "pintar" te refieres a establecer un color determinado a la propiedad BackColor del control, el ejemplo que te he indicado cumple perfectamente con lo requerido. ¿Que a ti no te funciona? Pues vaya usted a saber lo que estás haciendo y cómo lo estás haciendo. Pero sin más detalles por tu parte, ignoro completamente el motivo para que el código no te funcione, o mejor dicho, no te "pinte" los controles. ;-)

---

Enrique Martínez Montejo
[MS MVP - Visual Studio y Tecnologías de Desarrollo]

Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción Option Strict.

Answer 4

¿Cuál es el contenedor primario de los controles?.

Si los controles se encuentran contenidos en un control como Panel, GroupBox, o cualquier otro contenedor, debes especificar el mismo como base de la colección a iterar, por ejemplo:

For Each ctrl As Control In Panel1.Controls

Si tienes varios contenedores o contenedores anidados entonces debes iterar por los contenedores de manera recursiva.

Answer 5

Para que no te suceda lo que te dice William que tiene mucha razon, deberias considerer el control error provider que a mi entender esta mas orientado a lo que deseas hacer, recuerda que no necesariamente en un formulario por obligacion se llenan todos los campos del mismo y el error provider te da una forma mas professional a mi entender de manejar este asunto de campos en blanco, exito

Answer 6

Si esta dentro de un GroupBox

Answer 7

"Javier Rocco" escribió:

> Si esta dentro de un GroupBox

Pues entonces, la referencia de ese control GroupBox es el que tienes que pasar al procedimiento ColorearTextBox. Pero para ello, primero tienes que modificar la firma de dicho procedimiento para que admita cualquier tipo de control contenedor: Form, GroupBox, Panel, etc.

Friend Module NombreModulo

    Friend Sub ColorearTextBox(parent As Control, backColor As Color)

        For Each ctrl As Control In parent.Controls

            If ((TypeOf ctrl Is TextBox) OrElse (TypeOf ctrl Is ComboBox)) Then
                ' El control es del tipo TextBox o ComboBox.
                '
                If (ctrl.Text.Trim().Length = 0) Then
                    ' La propiedad Text del control es una cadena de longitud cero.
                    ctrl.BackColor = backColor

                Else
                    ' La propiedad Text tiene un valor válido.
                    ctrl.BackColor = Color.White

                End If

            End If

        Next

    End Sub

End Module

En negrita las únicas modificaciones realizadas para que el procedimiento se adapte a cualquier control contenedor.

Y llamarías al método ColorearTextBox especificando el nombre del control GroupBox que contiene los controles TextBox y ComboBox que deseas "colorear", entendiendo por "colorear" el modificar el valor de la propiedad BackColor de dichos controles con un color determinado:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        NombreModulo.ColorearTextBox(GroupBox1, Color.Red)

    End Sub

---

Enrique Martínez Montejo
[MS MVP - Visual Studio y Tecnologías de Desarrollo]

Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción Option Strict.

Answer 8

Si funciono pero sombrea el textbox de busqueda y no lo que deben ser xD en fin lo hace no me salia porque no habia cambiado NombreModulo por el mio.

Bueno si sale nada mas que como dije toma a otro y no los que quiero sean justamente toma al que esta fuera del groupbox.

Ahora probando lo que indicas esta bien 

Gracias