asa
16 de Enero del 2004

nesesito saber como ha go en visual para que siendo un dato numerici el que se deve ingresar y si ingreso caracteres me de un mensaje y no se caihga

mah
16 de Enero del 2004

La función Isnumeric (-valor-) te da un valor booleano, puedes ponerla en el evento validate del control.
Si quieres validar caracter por caracter debes utilizar el evento keydown.

FernandoC
16 de Enero del 2004

Prueba con una función similar a la siguiente. Yo personalmente creo que la debes desencadenar con el evento onkeyup (al soltar la tecla), que es con el que termina una pulsación de tecla.

function SoloNumeros
dim Campo
set Campo=window.event.srcelement
campo.value=Val(campo.value)
end function


end function

Jes?enteo P?z
16 de Enero del 2004

Prueba esto, es exactamente lo que necesitas:

Private Sub txtLongitud_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

Un saludo.

CESAR NAVA SOTO
16 de Enero del 2004

Valida el caracter presionado en el evento KeyDown.