none
Como validar un textbox que solo acepte numeros enteros RRS feed

  • Pregunta

  • Hola

    Tengo alrededor de 30 textbox en un form estos son llenados por importes en decimal que me traigo de un listView, tengo 2 preguntas les agradeceria me pudieran aportar de sus conocimientos

    1.- ¿Cómo puedo hacer para que estos importes sean recibidos todos como enteros, sin el signo de menor?

     Rep5_5276.Txt_5276SumActCirOrig.Text = CDec(Rep5_5276.Txt_5276EfecOrig.Text) + CDec(Rep5_5276.Txt_5276ParRelOrig.Text) + CDec(Rep5_5276.Txt_5276OtrCuePagOrig.Text) + CDec(Rep5_5276.TextBox5.Text)
            Rep5_5276.TextBox10.Text = CDec(Rep5_5276.TextBox7.Text) + CDec(Rep5_5276.TextBox8.Text)
            Rep5_5276.TextBox28.Text = CDec(Rep5_5276.Txt_5276SumActCirOrig.Text) + CDec(Rep5_5276.TextBox10.Text)
            Rep5_5276.TextBox15.Text = CDec(Rep5_5276.TextBox11.Text) + CDec(Rep5_5276.TextBox27.Text) + CDec(Rep5_5276.TextBox12.Text) + CDec(Rep5_5276.TextBox13.Text) + CDec(Rep5_5276.TextBox14.Text)
            Rep5_5276.TextBox17.Text = Rep5_5276.TextBox16.Text
            Rep5_5276.TextBox18.Text = CDec(Rep5_5276.TextBox15.Text) + CDec(Rep5_5276.TextBox17.Text)
            Rep5_5276.TextBox24.Text = CDec(Rep5_5276.TextBox19.Text) + CDec(Rep5_5276.TextBox20.Text)
            Rep5_5276.TextBox23.Text = CDec(PL_5276.TextBox10.Text) + CDec(PL_5276.TextBox13.Text)
            Rep5_5276.TextBox26.Text = CDec(Rep5_5276.TextBox18.Text) + CDec(Rep5_5276.TextBox24.Text) + CDec(Rep5_5276.TextBox21.Text) + CDec(Rep5_5276.TextBox22.Text) + CDec(Rep5_5276.TextBox23.Text)

    2.- ¿Cómo puedo hacer para que me separe por comas y puntos las cantidades, aunque haya dado el formato de decimal aun asi me sigue dando las cantidades seguidas

    Rep5_5276.TextBox21.Text = FormatNumber(Suma, 2)

    les agradeceria muchisimo me pudieran ayudar 

    Saludos 

    • Cambiado Enrique M. Montejo lunes, 16 de diciembre de 2013 12:40 Controles de Windows Forms
    miércoles, 11 de diciembre de 2013 23:17

Todas las respuestas

  • Hola

    Puedes usar para los enteros

    Dim
     i As Integer = Convert.ToInt32(1500.0)

    Y para los puntos y comas puedes usar

    DecimalSeparator = Format$(0, ".")
    Saludos

    <EL CONTENIDO SE PROVEE "COMO ES" SIN GARANTÍA DE NINGÚN TIPO, ASÍ SEA EXPRESA O IMPLÍCITA>
     
    Gracias
     
    MSDN/TechNet Soporte Comunidades
     
    Por favor, recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema.
    Es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

    jueves, 12 de diciembre de 2013 18:25
    Moderador