Mejorar una función
Publicado por Javier (22 intervenciones) el 17/04/2015 19:37:50
Buenos días gente:
Tengo una función que me permite solo meter datos numéricos en un TextBox y quería saber si me pueden ayudar a mejorarla para que el programa no se me haga tan grande.
Por ejemplo este código lo tengo que repetir constantemente cada vez que tengo que validar un campo:
Esta es la función:
Saludos y gracias de antemano!!!
Tengo una función que me permite solo meter datos numéricos en un TextBox y quería saber si me pueden ayudar a mejorarla para que el programa no se me haga tan grande.
Por ejemplo este código lo tengo que repetir constantemente cada vez que tengo que validar un campo:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub T6_KeyUp(sender As Object, e As KeyEventArgs) Handles T6.KeyUp
Funciones.ValidarCampoDecimal(sender)
End Sub
Private Sub T7_KeyUp(sender As Object, e As KeyEventArgs) Handles T7.KeyUp
Funciones.ValidarCampoDecimal(sender)
End Sub
Private Sub T8_KeyUp(sender As Object, e As KeyEventArgs) Handles T8.KeyUp
Funciones.ValidarCampoDecimal(sender)
End Sub
Private Sub T9_KeyUp(sender As Object, e As KeyEventArgs) Handles T9.KeyUp
Funciones.ValidarCampoDecimal(sender)
End Sub
Esta es la función:
1
2
3
4
5
6
7
8
9
10
Public Shared Function ValidarCampoDecimal(CajaDeTexto As TextBox) As Boolean
Try
Dim d As Decimal = Convert.ToDecimal(CajaDeTexto.Text)
Return True
Catch ex As Exception
CajaDeTexto.Text = "0"
CajaDeTexto.Select(0, CajaDeTexto.Text.Length)
Return False
End Try
End Function
Saludos y gracias de antemano!!!
Valora esta pregunta
0
. Saludos!!!