RE:validar punto decimal en textbox
Publicado por
Luis Alberto (1 intervención) el 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