Visual Basic - Validacion

Tengo la siguiente función en un módulo para validar que no se digite sino números en un textbox en visual basic..

Public Sub Validar_Numeros(tecla As Integer)
Select Case tecla
Case Is < 32
Case 48 To 57
Case Else
tecla = 0
End Select
End Sub

Lo que necesito es que se pueda escribir en el textbox por decir 10,11,12,13, ya que con la función que tengo actualmente solo me deja escribir de 0 a 9

Muchas gracias

Hola el siguiente ejemplo lo he sacado de :

http://www.recursosvisualbasic.com.ar/htm/tutoriales/control_text_box.htm

Y funciona muy bien, el textbox solo admite numeros, el punto y la coma , el retroceso y el enter nada mas, que creo que es lo que quieres.

En un formulario pon un textbox y dentro el siguiente codigo para el ejemplo:

'-----------------------------------------------------------------------------------------------------'
Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Verificar_Tecla(KeyAscii)
End Sub

Function Verificar_Tecla(Tecla_Presionada)


Dim Teclas As String


'Acepta todos los números, la tecla Backspace, _
la tecla Enter, la coma y el punto

Teclas = "1234567890.," & Chr(vbKeyBack)

If InStr(1, Teclas, Chr(Tecla_Presionada)) Then

Verificar_Tecla = Tecla_Presionada
Else
' Si no es ninguna de las indicadas retorna 0
Verificar_Tecla = 0
End If


End Function

'--------------------------------------------------------------------------------------------------------'

salu2

esto es mas facil

pon esto en un modulo

Public Function valor_numerico(ByVal x As String) As Boolean
If IsNumeric(x) = True Then
valor_numerico = True
Else
valor_numerico = False
End If
End Function

luego esto en el evento change o en el keypress de la caja de texto

If valor_nonumerico(text1.Text) = False Then
MsgBox "SOLO NUMEROS"
text1 = ""
text1.SetFocus
End If

asi la funcion queda disponible en modulo y lo puedes llamar desde cualquier formulario solo cambiando el nombre de la caja de texto como aparece en la funcion que va en los eventos de la caja

saludos

perdon corrijo

If valor_nonumerico(text1.Text) = False Then

debe ser

If valor_numerico(text1.Text) = False Then

Perdona Alfonso pero en el codigo anteriorde A.H.H tambien se puede poner la function dentro de un modulo.

*Ademas permite la tecla retroceso por si el usuario se confunde al introducir un numero en la caja de texto.(EN EL TUYO NO).

*Tambien permite el punto y la coma por si el usuario quisiera introducir decimales u otro valor.(EN EL TUYO NO).

*Por no decir que permite el enter para validar lo introducido en la caja de texto.(EN EL TUYO NO).

*Y no saca ningun msgbox diciendo 'solo numeros', simplemente no admite letras(EN EL TUYO NO).

En definitiva el otro codigo es mas completo.

entonces si el otro codigo es mas completo usalo y da las gracias por tomarme el tiempo de reponder algo tan simple que deberias saber si estas programando

sin intencion de molestar

saludos colega

Alfonso yo no soy el que pregunte nada
solo lei los 2 codigos
y di mi opinion no quise ofenderte
salu2

la pregunta la hizo un@ tal sandi

ok no hay problema
pero tu comentario deberia haber sido
algo asi como

te recomiendo que uses el primer ejemplo ya que el segundo es un poco mas basico

creo que la gente nos entiende de la manera que nos expresamos, y la mejor manera de hacer que las cosas no se mal interpreten es tratando de tener un poco de tino y tacto para decir las cosas

bueno en fin

saludos y este foro es para ayudarse

Que es Validacion, dedatosdeentradas en programas interactivos y que es validacion de datos en programas con procesamiento en lotes