solo numeros en un textBox
Publicado por Carlos Azabache (5 intervenciones) el 21/06/2008 17:55:31
El siguiente código es para que en un textBox podamos ingresar solo números si quieres ingresar solo enteros le pones al momento de utilizar la función que decimales sea igual a false caso contrario le pones true.
Primero debemos pega la siguiente funcion
Public Function txtNumerico(ByVal txtControl As TextBox, ByVal caracter As Char, ByVal decimales As Boolean) As Boolean
If (Char.IsNumber(caracter, 0) = True) Or caracter = Convert.ToChar(8) Or caracter = "." Then
If caracter = "." Then
If decimales = True Then
If txtControl.Text.IndexOf(".") <> -1 Then Return True
Else : Return True
End If
End If
Return False
Else
Return True
End If
End Function
Segundo en el evento Key Press de nuestro textBox digitar lo siguiente:
e.Handled = txtNumerico(txtCosto, e.KeyChar, true)
En este caso permitira el acceso de numeros con su punto decimal
Espero que este codigo le sirva a alguien el rato que necesite una funcion que haga esto no la encontre. Cualquier consulta o falla del código haganmela llegar
Primero debemos pega la siguiente funcion
Public Function txtNumerico(ByVal txtControl As TextBox, ByVal caracter As Char, ByVal decimales As Boolean) As Boolean
If (Char.IsNumber(caracter, 0) = True) Or caracter = Convert.ToChar(8) Or caracter = "." Then
If caracter = "." Then
If decimales = True Then
If txtControl.Text.IndexOf(".") <> -1 Then Return True
Else : Return True
End If
End If
Return False
Else
Return True
End If
End Function
Segundo en el evento Key Press de nuestro textBox digitar lo siguiente:
e.Handled = txtNumerico(txtCosto, e.KeyChar, true)
En este caso permitira el acceso de numeros con su punto decimal
Espero que este codigo le sirva a alguien el rato que necesite una funcion que haga esto no la encontre. Cualquier consulta o falla del código haganmela llegar
Valora esta pregunta


0