Visual Basic - No #

lo que quiero es que un text no me acepte numeros.
Gracias

creas estas funciones en la global
Function Es_letra(VALOR As String) As Integer
If VALOR >= Asc("A") Or VALOR >= ("a") And VALOR <= Asc("Z") Or VALOR >= ("z") Or VALOR = 32 Then
Es_letra = True
Else
Es_letra = False
End If
End Function
Function Es_Control(VALOR As Integer) As Integer
If VALOR = 13 Or VALOR = 8 Then
Es_Control = True
Else
Es_Control = False
End If
End Function


y luego en el text colocas lo siguiente en el evento keypress

Private Sub in_usuario_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii))) 'transformas a mayuscula
If Not (Es_letra(Str(KeyAscii))) And Not (Es_Control(KeyAscii)) Then
Beep
KeyAscii = 0
Exit Sub
End If
If KeyAscii <> 13 Then
Exit Sub
End If
If Len(Trim(in_usuario)) = "" Then
MsgBox "Ingrese el identificaciòn del Usuario", 16, "Error en Ingreso de Datos"
in_clave.SetFocus
in_usuario.SetFocus
Exit Sub
End If
in_clave.SetFocus
Exit Sub

End Sub

Para que tanto rollo :D jejejeje (sin ofender), lo podemos resumir así, a mi me ha funcionado, :D jejejej me gusta depurar y reducir mis códigos pa que sean mas chiquitos :D y ocupen menos memoria :D

'-----------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
'El cuadro de Texto 'Text1' aceptara solo Caracteres fuera del rango entre 48 -Valor 0- y 57 -Valor 9-.
'Asignandole el valor NULL -Ascii 0- en el caso de ser un número
If ((KeyAscii >= 48) Or (KeyAscii <= 57)) Then KeyAscii = 0

'Ahora, si queremos hacer algo cuando sea la Tecla ENTER, o bien
'Tecla ESCAPE, hacemos la siguiente decisión multiple...

Select Case KeyAscii
Case 27 'Si es Escape, cerrar el cuadro de dialogo...
Unload Me
Case 13 'Si es ENTER, colocar el Foco en el siguiente control, por ejemplo si se tratase de un Text2
Text2.SetFocus
End Select
End Sub
'-----------------------------------

Pues bien, aquí esta el código sencillito :D para incluirlo en tu evento KeyPress de cualquier TextBox que tengas, nomas que si lo incluyes en otro text diferente, trata de cambiar el nombre de Text1 en el codigo, por el que tiene tu Text actual para que funcione a la perfeccion.

Ok, espero te haya servido, me dices :D okas ?.

Atte: XcUiDi. ([email protected]) <---- toy conectado al Messenger todos los días despues de las 10:30 pm Hora México para cualquier duda o sugerencia sobre programación :D