Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic.NET - validar punto decimal en textbox

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

validar punto decimal en textbox

Autor:flor isabel (1 intervención)
Fecha:12/06/2008 19:48:23
hola a todos espero que puedan aydarme.
lo que quiero hacer es validar la entrada de numeros a un text box. en realidad ya lo logre lo que no he podido hacer es validar que solo me permita ingresar solo un punto decial...
Responder
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:validar punto decimal en textbox

Autor:P. J. (706 intervenciones)
Fecha:12/06/2008 19:54:30
Puedes usar esta funcion, o usar solo lo necesario:

Public Function Numero(ByVal e As System.Windows.Forms.KeyPressEventArgs, ByRef cajasTexto As TextBox) As Boolean
If UCase(e.KeyChar) Like "[!0-9.-]" Then
Return True
End If

Dim c As Short = 0
If UCase(e.KeyChar) Like "[.]" Then
If InStr(cajasTexto.Text, ".") > 0 Then
Return True
Else
Return False
End If
End If
End Function

En el evento KeyPress de tu caja de texto:
e.Handled = Numero(e, txtTotal)' txtTotal, caja de texto a validar
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:validar punto decimal en textbox

Autor:Luis Alberto (1 intervención)
Fecha:13/02/2009 16:50:44
Agregando a lo que los demas enviaron te puedo enviar una
combinacion de esas funciones, pues yo utilice cada una por separado
pero combinandolas me permitian ingresar numeros decimales
con un solo decimal y borrarla sin problema, puedes combinar las dos
funciones en una sola, espero sea util

' esta funcion te permite ingresar solo decimales

public Function SoloDecimales(ByVal Keyascii As Short) As Short
If InStr("1234567890.", Chr(Keyascii)) = 0 Then
SoloDecimales = 0
Else
SoloDecimales = Keyascii
End If
Select Case Keyascii
Case 8
SoloDecimales = Keyascii
Case 13
SoloDecimales = Keyascii
End Select
End Function

'esta Funcion te permite ingresar solo un punto decimal

Function numero(ByVal e As System.Windows.Forms.KeyPressEventArgs, ByRef cajasTexto As TextBox) As Boolean
If UCase(e.KeyChar) Like "[.]" Then
If InStr(cajasTexto.Text, ".") > 0 Then
Return True
Else
Return False
End If
End If
End Function

'en el evento keypress del text ingresar:

Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
KeyAscii = CShort(SoloDecimales(KeyAscii))
If KeyAscii = 0 Then
e.Handled = True
End If
e.Handled = Numero(e, txtTexto) 'txtTexto caja de texto a validar
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:validar punto decimal en textbox

Autor:richard (1 intervención)
Fecha:28/02/2014 23:53:41
wow... es cierto esta super, muchas gracias no sabia que hacer me ha servido mucho
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:validar punto decimal en textbox

Autor:carlos (1 intervención)
Fecha:06/05/2009 20:32:58
muy buna he gracias...!
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:validar punto decimal en textbox

Autor:jorge Eyner (1 intervención)
Fecha:12/11/2008 01:37:48
Public Class Form1

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim numero As Decimal
Dim cadena As String
Try
cadena = TextBox1.Text
numero = Convert.ToDecimal(e.KeyChar.ToString)

Catch ex As Exception
If e.KeyChar <> "." Or e.KeyChar.Equals(vbBack) Then
e.Handled = True
Else

If (cadena.LastIndexOf(".") > 0) Then
e.Handled = True
End If
End If
End Try

End Sub


End Class

ahi esta el codigo saludos
Comentar