VALIDACIÓN EN VISUAL BASIC

Validación EN VISUAL BASIC

Amigos de hola Pos BAÑO ESTE les muestro de Como Validar o Controlar los Ingresos de Información en los TextBox de Visual Basic.

Al final, les Dejare Vínculo se sí del Fichero estafa ESTAS Formas de Validar, ademas de Otras Formas de Validar. 

Validar LOS NÚMEROS: EVENTO CLAVE DE PRENSA

Private Sub txtname_KeyPress (sender As Object, e As KeyPressEventArgs) Maneja txtname.KeyPress

        Si (Asc (e.KeyChar)> = 48) Y (Asc (e.KeyChar) <= 57) A continuacion,

            MessageBox.Show ("de de de de No se permiten Numeros", "No Numeros")

            e.Handled = True

        End If

        Si Asc (e.KeyChar) = 13 Y

            txtape.Focus ()

        End If

End Sub

Validar LAS LETRAS: EVENTO CLAVE DE PRENSA

Private Sub txtape_KeyPress (sender As Object, e As KeyPressEventArgs) Maneja txtape.KeyPress

        Si (Asc (e.KeyChar)> = 48) Y (Asc (e.KeyChar) <= 57) A continuacion,

            MessageBox.Show ("de de de de No se permiten Numeros", "No Numeros")

            e.Handled = True

        End If

        Si Asc (e.KeyChar) = 13 Y

            txtssueldo.Focus ()

        End If

End Sub

Validar EL PUNTO DECIMAL: EVENTO CLAVE DE PRENSA

Private Sub txtssueldo_KeyPress (sender As Object, e As KeyPressEventArgs) Maneja txtssueldo.KeyPress

        Numero Dim As Decimal

        Dim Cadena As String = ""

        Intentar

            Cadena = txtssueldo.Text

            numero = Convert.ToDecimal (e.KeyChar.ToString)

        Catch ex As Exception

            Si e.KeyChar <> "." e.KeyChar.Equals O (vbBack) Entonces

                e.Handled = True

            Más

                Si (cadena.LastIndexOf (".")> 0) entonces

                    e.Handled = True

                End If

            End If

        End Try

 End Sub

DESCARGAR PARA EL Fichero HAS CLIC SOBRE LA IMAGEN