VALIDACION PARA QUE ACEPTE NUMEROS

[CARRY-ON]

Como era para que un txt acepte solo numeros , y que acepte solo letras era algo con el ascci pero no recuerdo bien busque pero no pille nada

[zXxOsirisxXz]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then GoTo 1
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
1:
End Sub

Salu2

EDIT:

Este.. el 8 = Borrar [BackSpace] asi k si le das a borrar, no vuelve el Ascci en 0. Y ps nada mas k explicar k desde 48~57 estan los numeros del 0~9.

[CARRY-ON]

no entendi eso del bacspace y del  8 borrar?

[CARRY-ON]

y em tirra error por que le pusiste eso de keypress ascci


tengo que cambiarle el nombre alos txt que tengo


por que mi txt se llama

Private Sub Text1_Change()

End Sub

[APOKLIPTICO]

http://foro.elhacker.net/index.php/topic,183109.0.html

Esta 5 temas mas arriba...

Salu2

[zXxOsirisxXz]

CARRY-ON

No te pido k sepas todo.. pero LOL!

man, todos los elementos (Text, Labels, Commands B.) del VB tienen Eventos.. el evento k yo puse, es el evento "KeyPress", el k tiene por "Default" es el "Click". No mas cambialo.

Y sobre el 8, lo k pasa es k los Ascci son los caracteres de la PC nombrados por numeros como kien dice.. Y ps, el Numero 8 le pertenece al [BackSpace], asi como el Enter = 13. Y asi..

Salu2