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

[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á