VB6.0 Hacer validacion de una vez a todos los textboxes para que acepten solo numeros

[Samaris]

Hola!
Mi duda es la siguiente?

Sera posible que yo pueda validar mis textbox para que solo entren numeros pero a todos al mismo tiempo?

Es decir, no hacer esta rutina (que muestro abajo) para cada textbox sino a traves de un ciclo para todos ellos???
... porque son mas de 100...


Salu2


Private Sub f4_KeyPress(KeyAscii As Integer)

If (KeyAscii < 48) Or (KeyAscii > 57) Then

KeyAscii = 0
MsgBox "Solo se aceptan números", vbOKOnly + Exclamation, "Atencion"
f4.SetFocus

End If

End Sub

[zabait]

porque no haces una función en la que haces eso pero para todos los textboxes, que por ejemplo se llame validarnumeric

Esta función recibe un dato de tipo textbox y la tecla que se ha pulsado.


sub validarNumeric (txt as textbox, tecla as integer)

If (tecla < 48) Or (tecla> 57) Then
tecla= 0
MsgBox "Solo se aceptan números", vbOKOnly + Exclamation, "Atencion"
txt.SetFocus
End If

end sub

y la llamada sería en el evento keydown/ keypress (no sé en cual lo estas utilizando) del textbox de la siguiente forma.

call validarnumeric(me.activecontrol, keyascii)

ACtivecontrol te devolverá el control del formulario que está activo en ese momento, por lo que ten en cuenta que debes implementarlo en el textbox que desees.

No lo he probado en vb sino que lo he hecho directamente, pero creo que te funcionará así, y sino tendrias que hacer unas pequeñas modificaciones, pero buueno, loimportante es pasar como parametro a la funcion el texbox y lo del activecontrol

Con esto cxreo que te servirá

[lucasiramos]

Otra forma sería crear un control de usuario. Lo programas una vez y listo!!!

Saludos. Lucas

[GeoAvila]

podría crear un array para que todos esten en una misma declaración y colocar el codigo alli..

eso se me viene a la mente..

nos vemos..

[Samaris]

Bueno Zabait... tu codigo funciona perfectamente.. gracias
pero igual tendria que hacer el Call en cada uno de los textboxes... no crees?

Voy a tenerlo pendiente mientras pruebo algo mas...
Lucas, disculpa.. pero a que te refieres especificamente??

[Samaris]

Hola, ya logre hacerlo! con lo de la matriz de controles y el call, todo funciona chevere! y no tengo que hacerlo mil veces

Una vez mas mis simpaticos amigos del foro... salvandomela vida! GraciaS!

[zeroyevi]

'codigo vb6 ------ en .net es casi lo mismo ' expresion IsNumeric

dim x_valor as string
dim num as boolean


x_valor ="123456789"
num = IsNumeric((x_valor))
If num = True Then
msgbox"es numero"
else
msgbox"no es numero"
end if


x_valor ="OIR67K"
num = IsNumeric((x_valor))
If num = True Then
msgbox"es numero"
else
msgbox"no es numero"
end if



'saludos si alguien necesita validar el rut el numerico