CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Abligar A Que Ponga "-" En Un Textbox

(1/2) > >>

Sagma:
hola amigos, tendro dos consultas:

1. como puedo hacer para obligar, en un textbox, que el cuarto caracter, sea si o si, "-" un guion, por ejemplo "AAA-111 a".

2. como le hago o en que evento pongo para que cuando digite la tecla enter o el tab, para ir al otro textbox, este controle que si el campo es nulo, me salga un mensaje.

por que yo lo pongo en el boton, de guardar, y es esperar mucho, sino que cuando pase ese textbox, salte el mensaje.

gracias  :comp:

Cajami:
Bueno si no me equivoco ps en el evento Gotfocus de los TextBox que se desencadena cuando pierde el cursor, y si no me equivoco ps debes poner asi:

If Mid(TextBox1. Text, 4,1) = "-" Then
 TextBox2. Focus
Esle
 e.Handles = True
End If

Bueno probaría eso que te he dado pero he formateado mi maquina y aun no le instala el visual, espero que sea ese :D  :hola:

Tumbes - Perú

lencho:
Aqui te va otra ayuda, pero con el evento KeyPress.

--- Código: Text ---     Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress        If TextBox1.Text.Length = 3 Then            If e.KeyChar = "-" Then                MsgBox("ta correcto")            Else                MsgBox("ta INcorrecto")                e.Handled = True            End If        End If    End Sub  
Ojala y te sirva.

BYTE.

lencho:

--- Citar ---CODE
   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If TextBox1.Text.Length = 3 Then
           If e.KeyChar = "-" Then
               MsgBox("ta correcto")
           Else
               MsgBox("ta INcorrecto")
               e.Handled = True
           End If
       End If
   End Sub
[/CODE]
--- Fin de la cita ---

solo que hay un problema.

Cuando estamos en el cuarto caracter y queremos volver pa atras, con la tecla (<--), que no se que se llama, lo toma como un caracter no correcto.

trata de acomodar

--- Citar ---                e.Handled = True
--- Fin de la cita ---
poniendole un If antes de ejecutar esa funcion, verificando si es esa tecla.

BYTE.

Sagma:
gracias amigo, lo pruebo y les aviso  :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente