Sumar dos Textbox

Iniciado por SγиtαxEяяoя, 13 Junio 2013, 20:40 PM

0 Miembros y 1 Visitante están viendo este tema.

SγиtαxEяяoя

Cita de: Ikillnukes en 14 Junio 2013, 07:55 AM
JOSJOSJOS!

Capichi? xD Encima to que quiero ayudar, que borde.... :P

Si, muchas gracias?

Oye electro que opinas

Código (vbnet) [Seleccionar]
Dim value As Double

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       value = TextBox1.Text
       TextBox2.Text = (value.ToString("###,###,###,###"))
   End Sub

Eleкtro

Cita de: SγиtαxEяяoя en 14 Junio 2013, 07:59 AM
Si, muchas gracias?

Oye electro que opinas

Código (vbnet) [Seleccionar]
Dim value As Double

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       value = TextBox1.Text
       TextBox2.Text = (value.ToString("###,###,###,###"))
   End Sub


Para formatear un número está muy bien...si esa es tu intención, pero para sumar no, no puedes sumar strings, y se concatenan en lugar de sumarse.

prueba así:

Código (vbnet) [Seleccionar]
Public Class Form1

   Public Property n1() As Double
       Get
           Return TextBox1.Text
       End Get
       Set(ByVal value As Double)
           TextBox1.Text = value.ToString("###,###,###,###")
       End Set
   End Property

   Public Property n2() As Double
       Get
           Return TextBox2.Text
       End Get
       Set(ByVal value As Double)
           TextBox2.Text = value.ToString("###,###,###,###")
       End Set
   End Property

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox3.Text = FormatNumber(n1 + n2, TriState.False)
   End Sub

End Class