Validaciones (ErrorProvider) - Programación en Visual Basic. Net con Visual Studio 2013 (11-25)

Curso completo de Visual Basic.Net desde cero, En esta entrada se detalla el uso del control errorprovider para mostrar iconos de validación y errror en el lenguaje de programación Visual Basic, crearemos una pequeña aplicación para mostrar dichas validaciones de string validaciones Double y validaciones int32 en Visual Basic. Net.

Pueden consultar toda la documentación respectiva (Diapositivas, textos, vídeos, códigos fuentes, librerías, etc.) de este conjunto de posts.

Pueden ver los vídeos directamente en youtube:

https://www.youtube.com/watch?v=33uPg7kEPic&list=PLZPrWDz1MoloGD4irFB-YMIKvUYNu1i3m&index=1

Visita nuestro canal en youtube donde encontrarás cursos completos de Desarrollo de software y aprende a diseñar sistemas informáticos totalmente gratis:
www.youtube.com/jcarlosad7

Validaciones Mensajes de Ayuda (ErrorProvider, ToolTip)

ErrorProvider

Proporciona una Interfaz de Usuario para indicar al usuario que el control de un formulario tiene un error asociado.

Problema 9

Crear un programa que permita ingresar de manera obligatoria los nombres, la edad y el salario de una persona; además todos los campos de texto deben de tener un mensaje emergente que ayude al usuario final con el contenido que debe ingresar.

Formulario

Código Fuente

Código del Botón Enviar

Private Sub btnenviar_Click(sender As Object, e As EventArgs) Handles btnenviar.Click

        Try

            If Me.ValidateChildren And txtnombres.Text <> String.Empty And Val(txtedad.Text) - Int(Val(txtedad.Text)) = 0 And txtsalario.Text <> String.Empty Then

                MessageBox.Show("Datos Registrados Correctamente", "Registro de Usuarios", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

            Else

                MessageBox.Show("Ingrese correctamente algunos Datos remarcados", "Registro de Usuarios", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

Validando las cajas de texto

  Private Sub txtnombres_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtnombres.Validating

        If DirectCast(sender, TextBox).Text.Length > 0 Then

            Me.erroricono.SetError(sender, "")

        Else

            Me.erroricono.SetError(sender, "Ingrese el nombre del usuario, este dato es obligatorio")

        End If

    End Sub

    Private Sub txtedad_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtedad.Validating

        If Val(txtedad.Text) - Int(Val(txtedad.Text)) = 0 Then

            Me.erroricono.SetError(sender, "")

        Else

            Me.erroricono.SetError(sender, "Ingrese la edad del usuario, este dato es obligatorio")

        End If

    End Sub

    Private Sub txtsalario_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtsalario.Validating

        If DirectCast(sender, TextBox).Text.Length > 0 Then

            Me.erroricono.SetError(sender, "")

        Else

            Me.erroricono.SetError(sender, "Ingrese el salario del usuario, este dato es obligatorio")

        End If

    End Sub

Error provider Validaciones (11-25) Programación Visual Basic. Net con Visual Studio 2013

Saludos Imperio un abrazo a la distancia!!!