ayuda con un textbox

[juancho24]

Amigos del foro

Alguien me podria dar el codigo para poder mostrar automaticamente en un textbox la suma total de varios texbox, esto es en visual basic 6

Gracias por la ayuda

saludos

[Manu_Leon]

text1.text= val(text2.text) + val(text3.text) + ...

[juancho24]

Iniciado por Manu_Leon

text1.text= val(text2.text) + val(text3.text) + ...

mira tengo ese codigo, lo que pasa es k quiero k me muestre automaticamente el resultado en este textbox, y no me funciona, solo al momento de hacer clic en el textbox me aparece,sera que no estoy usando bien el evento click ¿sera otro evento?

ayudenmeee porfavor

gracias

saludos

Private Sub txtActivosProductivos_Click()

txtActivosProductivos.Text = Val(txtValorAutomoviles.Text) + Val(txtValorMaquinarias.Text) + Val(txtValorMobiliario.Text) + Val(txtValorOtros.Text)

End Sub

[ReViJa]

Si las cantidades no son excesivamente grandes puedes hacerlo así:

Código:

Private Sub Sumar()
  txtActivosProductivos.Text = Val(txtValorAutomoviles.Text) + Val(txtValorMaquinarias.Text) + Val(txtValorMobiliario.Text) + Val(txtValorOtros.Text)
End Sub

Private Sub txtValorAutomoviles_Change()
  Call Sumar
End Sub

Private Sub txtValorMaquinarias_Change()
  Call Sumar
End Sub

Private Sub txtValorMobiliario_Change()
  Call Sumar
End Sub

Private Sub txtValorOtros_Change()
  Call Sumar
End Sub

Si son números muy grandes usa variables, ok.

Saludos.

[juancho24]

Iniciado por ReViJa

Si las cantidades no son excesivamente grandes puedes hacerlo así:

Código:

Private Sub Sumar()
  txtActivosProductivos.Text = Val(txtValorAutomoviles.Text) + Val(txtValorMaquinarias.Text) + Val(txtValorMobiliario.Text) + Val(txtValorOtros.Text)
End Sub

Private Sub txtValorAutomoviles_Change()
  Call Sumar
End Sub

Private Sub txtValorMaquinarias_Change()
  Call Sumar
End Sub

Private Sub txtValorMobiliario_Change()
  Call Sumar
End Sub

Private Sub txtValorOtros_Change()
  Call Sumar
End Sub

Si son números muy grandes usa variables, ok.

Saludos.

Problema solucionado, muchas gracias por la ayuda

Saludos