Restringir entrada en el TextBox
Hola.
Por favor si alguien me ayuda, a restringir la entrado de datos en el textbox, es decir que solo me permita el ingreso de letras.
Y con estos datos en otro textbox, generar una clave.
Gracias por la ayuda.
Por favor si alguien me ayuda, a restringir la entrado de datos en el textbox, es decir que solo me permita el ingreso de letras.
Y con estos datos en otro textbox, generar una clave.
Gracias por la ayuda.
Para lo que tú pretendes es mejor que utilices el control Masked Edit, que te permite establecer una máscara de entrada y si quieres un formato de salida, al perder el foco el control. Pero si aún asà quieres seguir utilizando el textbox el código serÃa:
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Si no es un caracter,incluida la ñ y la Ñ o un
'intro que no lo incluya:
If Not ((KeyAscii >= 65 And KeyAscii <= 90) Or _
(KeyAscii >= 97 And KeyAscii <= 122) Or _
KeyAscii = 164 Or KeyAscii = 165 Or KeyAscii = 13) Then
KeyAscii = 0
End If
End Sub
Para generar la clave, añádele un else y pon el código.
Espero que te sirva
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Si no es un caracter,incluida la ñ y la Ñ o un
'intro que no lo incluya:
If Not ((KeyAscii >= 65 And KeyAscii <= 90) Or _
(KeyAscii >= 97 And KeyAscii <= 122) Or _
KeyAscii = 164 Or KeyAscii = 165 Or KeyAscii = 13) Then
KeyAscii = 0
End If
End Sub
Para generar la clave, añádele un else y pon el código.
Espero que te sirva
