• Sábado 11 de Julio de 2020, 17:37

Autor Tema:  Problemas con Textbox (Validación)  (Leído 961 veces)

SandraP

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Problemas con Textbox (Validación)
« en: Lunes 7 de Agosto de 2017, 03:34 »
0
Hola, tengo un Textbox que:

1. Solo debe aceptar números con rango entre cero y 36 (00-36)
2. Que solo acepte 2 caracteres numéricos
3. Cuando escribe el segundo carácter numérico el foco se me vaya al siguiente texbox sin necesidad de la tecla enter,
4. Si presiona Enter estando el textbox vacio no se mueva.

Me esta funcionando, pero cuando escribe el primer carácter en textbox y borra se me va al siguiente textbox

Este es mi código:

Private Sub TextNumero_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextNumero.KeyPress
        If Char.IsNumber(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If

        If Asc(e.KeyChar) = 13 And (Val(TextNumero.Text) <> 0) Or Len(TextNumero.Text) = 1 Then
            TextNumero.BackColor = Color.White
            Textmonto.BackColor = Color.Yellow
            Textmonto.Focus()

        Else
            TextNumero.BackColor = Color.Yellow
            TextNumero.Focus()
        End If
    End Sub

Pues eso...espero me den luces...

Saludos