• Viernes 29 de Marzo de 2024, 08:29

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - SandraP

Páginas: [1]
1
VB .NET / Problemas con Textbox (Validación)
« en: Lunes 7 de Agosto de 2017, 03:34 »
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

Páginas: [1]