none
No consigo la combinacion para que me ponga un solo punto RRS feed

  • Pregunta

  • Buenas no consigo la combinación para que me ponga un solo punto y que no se pueda poner el primero es decir asi .0

    gracias

    Private Sub keyPress_All(sender As Object, e As KeyPressEventArgs)
            Dim ctrl As TextBox = DirectCast(sender, TextBox)
            If TypeOf ctrl Is TextBox Then
                If ctrl.Tag = "Txt_Ph_Agua" Then
                    If e.KeyChar = ","c Then
                        ' si se pulsa en la coma se convertirá en punto
                        e.Handled = True
                        SendKeys.Send(".")
                    End If
                    Dim textControl As System.Windows.Forms.TextBox = CType(sender, System.Windows.Forms.TextBox)
                    If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "."c Then
                        ' Si no es un carácter de control, un número o un punto no es válido
                        e.Handled = True
                    ElseIf e.KeyChar = "."c AndAlso textControl.Text.IndexOf("."c) <> 0 Then
                        ' Si es un punto y es el primer carácter o existe otro no es válido
                        e.Handled = True
                    End If
                End If
            End If
        End Sub

    lunes, 31 de agosto de 2020 15:37

Respuestas

Todas las respuestas