SoloCodigo

Hola, estoy dando mis primeros pasos en VB y la duda que tengo es

En un TexBox ingreso datos para realizar una división, lo pude hacer pero si durante la ejecución ingreso letras me las toma y luego da error

Como hago para que solo admita numeros ?

Para evitar la división por 0 puse este código,

ElseIf TxtTalla = 0 Then
MsgBox "No se puede dividir por 0", vbCritical, "Recuerda que"
TxtTalla.SetFocus
Exit Sub

Si hay otra forma les agradecería el dato


Gracias

Como hago para que solo admita numeros ?

  bueno es basicamente como dijo RadicalEd solo que esa rutina que ha posteado tiene un problema y es que no acepta la tecla BACKSPACE es decir si te equivocas y quieres borrar el dato no puedes hacerlo aqui posteo la forma en que eso se corrige,   cj_sw tienes que poner esta subrutina para cada textbox al que le quieras restringir la entrada de otros caracteres que no sean numeros


ojo si estas usando numeros con punto decimal tienes que modificar este codigo para que acepte el punto decimal (que en realidad es la coma, es numero 44)

saludos  

Código: Text

1. Private Sub text1_keypress(keyascii As Integer)
2. If keyascii = 8 Then '8 es la tecla backspace
3.  GoTo salir
4. End If
5.  If (keyascii < 48 Or keyascii > 57) Then
6.    keyascii = 0
7.  End If
8. salir:
9. End Sub
10.  

saludos  

Puede reacomodar tú código de esta manera sin tantos If

Buenas.

Aqui te dejo un codigo para validar entrada de datos.
En caso de que quieras admitir mas caracteres, los agregas a la variable letras y le cambias el tamaño segun la cantidad de caracteres que almacena


Dim Letras As String * 11 'La variable que contendra los caracteres admitidos
Dim Car As String 'La variable que recuperara el caracter ingresado

Private Sub Form_Load()
  Letras = "0123456789" & vbBack 'Se guardan los valores admitidos en la variable
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Car = Chr(KeyAscii) 'Se guarda el caracter ingresado, Chr convierte un valor en su
                                 'respectivo caracter
 
  If InStr(1, Letras, Car) = 0 Then 'Si el caracter no se encuentra dentro de los
    KeyAscii = 0                            'admitidos
  End If
End Sub


Siempre es bueno usar la propiedad .text para comparar, cambiar o recuperar datos porque sino haces referencia al control en si y no a su contenido, asi como usar las comillas ya que sino, estaras comparando una cadena de texto con un numero, que aveces puede traer problemas

If txtTalla.text = "0" then
...


Bueno, eso es todo, espero te sirva de algo
Saludos

'//Quisiera hacer mi aportacion
'//Este código tambien limita a que no se pueda introducir texto que no sea numeros aun  a traves del comando pegar (CTRL+V) o click derecho Pegar porque en los demas codigos si lo permite

'//Lo aporto a sus concideraciones cualquier correccion bienvenida !

Private Sub Text1_Change()
Dim ls_texto As String
Dim c As Integer

ls_texto = Trim(Me.Text1)

For c = 1 To Len(ls_texto)
  If Not IsNumeric(Mid(ls_texto, c, 1)) Then
    ls_texto = Mid(ls_texto, 1, Len(ls_texto) - 1)
  End If
Next c

Me.Text1 = ls_texto
Me.Text1.SelStart = Len(ls_texto)
End Sub

Saludos
Mexicali B.C.

Cita de: "RadicalEd"

Puede reacomodar tú código de esta manera sin tantos If

Código: Text

1. Private Sub text1_keypress(keyascii As Integer)
2. If (keyascii < 48 Or keyascii > 57) And KeyAscii == 8 Then
3.    keyascii = 0
4.  End If
5. salir:
6. End Sub
7.  

ademas de que hay un signo igual (=) extra, lo probe y no acepta la tecla BACKSPACE porque deberia ser asi:

Código: Text

1. Private Sub text1_keypress(keyascii As Integer)
2. If (keyascii < 48 Or keyascii > 57) And KeyAscii <> 8 Then
3.    keyascii = 0
4.  End If
5. salir:
6. End Sub
7.  

Sorry     Es que estoy jugando con Python y me estoy apegando a su sintaxis  

podras ver que tecla presionaste, y no te digo el codigo qeu utilizo ya que con los que escribieron arriba esta mas que completo y esta el qeu yo uso jajaja.
salu2 del sorrino