ayuda para validar un textbox

[evilesq]

estoy programando el metodo de jacobi y en las entras necesito validar los campos, los cuales me acepten solo numero enteros y flotantes,

Private Sub txterr_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTERR.KeyPress
If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

este es el codigo q estoy manejando para validar pero no me permite poner numeros flotante ya que no permite escribir el punto (0.01) solo puedo escribir (12,324,1 etc..)

alguien me podria decir q mas ponerle para q me acepte el punto?? gracias

[Avellaneda]

Iniciado por evilesq

estoy programando el metodo de jacobi y en las entras necesito validar los campos, los cuales me acepten solo numero enteros y flotantes,

Private Sub txterr_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTERR.KeyPress
If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

este es el codigo q estoy manejando para validar pero no me permite poner numeros flotante ya que no permite escribir el punto (0.01) solo puedo escribir (12,324,1 etc..)

alguien me podria decir q mas ponerle para q me acepte el punto?? gracias

Puedes probar con una función como esta:

Código:

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    ' si se admiten decimales, acepta el punto pero sólo una vez
                    If txtControl.Text.IndexOf(".") <> -1 Then Return True
                End If
            End If
            Return False
        Else
            Return True
        End If
    End Function

Para llamarla:

Código:

Private Sub txterr_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txterr.KeyPress
        e.Handled = txtNumerico(txterr, e.KeyChar, True)
    End Sub

[evilesq]

grax men... fue de mucha ayuda es mas eficiente del que ia habia hecho

[eliecinho]

hey Evilesq debes declarar las variables de los text de tipo single seguramente las tienes declarada entera por lo cual solo aceptas numeros enteros y no decimales.