hola, tengo un formulario con una serie de textbox donde tengo que introducir unos números para sumarlos, el resultado me aparece en otra textbox del mismo formulario, el problema es que para que aparezca el resultado he tenido que colocar un botón que al clicar me suma las cifras y las escribe en la textbox suma.Quiero poder hacer esto mismo sin tener que poner el botón para sumar, es decir que cada vez que introduzco un número en alguna de las textbox automaticamente la nueva suma aparezca en la textboxsuma sin tener que pulsar ningún botón, me podéis ayudar

hola en el evento change de cada form pone

if isNumeric("eltextbox que se esta modificando".Text ) then
textboxSuma.text= "suma cadatextboxt".text
end if.

-Me explico cual es la idea??

Saludos

Gracias por la orientación pero soy nuevo y no se donde está el evento change.Me podrías aclarar, perdona por las molestias

creo que es el evento por default
En tiempo de diseño haz doble click sobre el textbox para que te aparezca.
Sino ve a la vista Codigo.
Veraz que en la parte superior hay 2 combos.
Elige dela izquierda el textbox que queiras
y luego de la derecha elige Text_Changed()

Ahi codifica tu solucion

Saludos

gracias yo lo pillé, ahora tengo una dudilla, tengo como unos 10 textbox donde introduzco números para sumarlos, tengo que ir cambiando el evento change de cada uno de ellos o existe alguna forma de crear un único evento change que controle cuando se cambia alguna de las 10 textbox

Tendrías que hacer una matriz de objetos, esto se consigue poniendo a cada uno de los textbox sumatorios el mismo nombre, el resultado sería así:





Nombre Actual Nombre Nuevo


TextBox1txtSuma


.... ....
TextBox10txtSuma

así en el evento Change del txtSuma deberías escribir:

txtResultado = CDBL(txtSuma(0)) + CDBL(txtSuma(1)) + ... + CDBL(txtSuma(10))

la palabra CDBL es para convertir la cadena de text del txtSuma(x) en una cadena Double, así se respetarán todos los decimales.


Espero ayudarte con esto.

Salu2

si me ayudas, pero ahora si hago eso me surgiría un nuevo problema cada textbox donde introduzo un número que luego se suma se envia a un campo de una tabla de una base de datos, y si nombró a todos con el mismo nombre no se cómo voy a poder mandarlos cada uno a un campo de de la tabla de la base de datos

si los vas haciendo por orden (uno a uno empezando por el primero) cada textbox se corresponde con un número dentro de la matriz de comandos, es decir, el TextBox1.Text se correspondería con el txtSuma(0).Text (TextBox10.Text = txtSuma(9)), así para mandar a la base de datos el valor de dicho textbox tendrías que poner:


(más o menos es de cabeza)

rs.Fields("CampoX") = txtSuma(0)

Hola,
Sino, crea una funcion para sumar cada textbox y en el evento change del textbox le haces la llamada

Hola, no se si hay otra forma, pero yo hice en visual basic 6 un conversor de unidades y tengo en un formulario como 25 textbox que al escribir en uno me calcula directamente en todos los otros ,y si me posiciono en otro y escribo algo me calcula segun la unidad que representa ese textbox y simplemente lo que hago es identificar con una variable boolean donde se esta escribiendo...y asi no se ejecutan todos los eventos change de los textbox al mismo tiempo...

saludos.

Hola compañeros

Me sumo a lo que propone fpela

aqui la funcion:
[color=#0000ff size=1]

Código:

[/color]



Public Function SumaText(ByVal Contenedor As Control) As Integer ' Pasaremos el control que contiene los Text a sumar y devolveremos la suma
Dim resultado As Integer = 0 'Declaramos una variable que almacenara el resultado


For Each box As TextBox In Contenedor.Controls ' recorremos todos los text que hay en el contenedor...


If box.Text = "" Then ' si el text que se recorre esta vacio pues na...


Else ' si esta lleno....


resultado += box.Text ' se suma el contenido al resultado....


End If


Next


Return resultado ' Devolvemos el resultado

[color=#000000 size=1]El uso:[/color]
Coloco todos los textbox en un panel.
Seleccionamos todos los textbox que se usan en la suma y en el evento TextChanged:

Código:

Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged, TextBox7.TextChanged, TextBox6.TextChanged, TextBox5.TextChanged, TextBox4.TextChanged, TextBox3.TextChanged, TextBox2.TextChanged, TextBox1.TextChanged


Me.TextBox9.Text = SumaText(Me.Panel1) ' Asignamos el resultado de la funcion al propiedad text del Text destino


End Sub
[color=#0000ff size=1]

[/color]

[color=#000000 size=1]Saludos[/color]
[color=#000000 size=1]Luis[/color]

Hola de nuevo

Dejo el codigo reformado para poder usarlo cuando los TextBox a sumar y el TexBox destino estan en el mismo contenedor.

Código:

PublicFunction SumaText(ByVal TextDestino As TextBox, ByVal Contenedor As Control) AsInteger' Pasaremos el control que contiene los Text a sumar, y el textbox destino


Dim resultado As Integer = 0 'Declaramos una variable que almacenara el resultado


TextDestino.Text = 0 ' Inicializamos el TexDestino a cero


For Each box As TextBox In Contenedor.Controls ' recorremos todos los text que hay en el contenedor...


If box.Text = "" Then ' si el text que se recorre esta vacio pues na...


Else ' si esta lleno....


resultado += box.Text ' se suma el contenido al resultado....


End If


Next


TextDestino.Text = resultado


Return resultado ' Devolvemos el resultado


End[color=#000000 size=1] [/color]Function

Código:

PrivateSub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged, TextBox7.TextChanged, TextBox6.TextChanged, TextBox5.TextChanged, TextBox4.TextChanged, TextBox3.TextChanged, TextBox2.TextChanged, TextBox1.TextChanged



SumaText(Me.TextBox9, Me) ' Pasamos el texbox destino y el contenedor de los forms


End Sub

[color=#000000 size=1]Saludos[/color]
[color=#000000 size=1]Luis[/color]

El siguiente código es el más comprensivo que encontré y el más corto:
Private Sub Sumar()
Dim Resultado As Variant
On Error Resume Next
Resultado = CDbl(txtNumPrim.Text) + CDbl(txtNumPrimSuma.Text)
txtDaiguala.Text = Resultado
End Sub

Private Sub Form_Load()
Call Sumar
End Sub

Private Sub txtNumPrim_Change()
Call Sumar
End Sub

Private Sub txtNumPrimSuma_Change()
Call Sumar
End Sub