LostFocus

[Kitty_05]

Hellooooo amigos!!

Nuevamente tengo una duda,
si pongo varios textbox que capturaran numeros,

text1
text2
text3
text4 ---> sera el total
ingreso un dato en text1(0)y deseo que al pasar al text1(1) en text1(3) me coloque el valor numerico de text1(0)
al moverse al text1(2) me coloque text1(0) + text1(1) y asi susesivamente, como si fuera una suma automatica

[David]

Iniciado por Kitty_05

Hellooooo amigos!!

Nuevamente tengo una duda,
si pongo varios textbox que capturaran numeros,

text1
text2
text3
text4 ---> sera el total
ingreso un dato en text1(0)y deseo que al pasar al text1(1) en text1(3) me coloque el valor numerico de text1(0)
al moverse al text1(2) me coloque text1(0) + text1(1) y asi susesivamente, como si fuera una suma automatica

Pues bien, como está en el tema de tu mensaje, usa el evento LostFocus...

[Kitty_05]

jajaj disculpen se me olvido aclarar q stoy usando eso ....

miren mi codigo

Private Sub Monto_LostFocus(Index As Integer)

TotMonto.Text = CDec(Monto(ind).Text) + TotMonto.Text

End Sub


no logro que monto(ind).text se mueva al siguiente indice y sume el nuevo valor...

[David]

Iniciado por Kitty_05

jajaj disculpen se me olvido aclarar q stoy usando eso ....

miren mi codigo

Private Sub Monto_LostFocus(Index As Integer)

TotMonto.Text = CDec(Monto(ind).Text) + TotMonto.Text

End Sub


no logro que monto(ind).text se mueva al siguiente indice y sume el nuevo valor...

¿No sería más fácil si cada vez que un Text pierde el foco vuelvas a sumar todos los valores de los Texts y muestres el total en TotMonto?

[Kitty_05]

Si pero el detalle es q mi text es un arreglo y tiene indices...

como hago para q se de cuenta q m estoy moviendo dentro de esos indices ??

[David]

Iniciado por Kitty_05

Si pero el detalle es q mi text es un arreglo y tiene indices...

como hago para q se de cuenta q m estoy moviendo dentro de esos indices ??

No entiendo lo que quieres decir. Pero me refería a algo así:

Código:

 
Private Sub Monto_LostFocus(Index As Integer)
Dim Total As Double
Dim Looping As Long
For Looping = 0 To Monto.Count - 1
     Total = Total + Val(Monto(Looping).Text)
Next Looping
TotMonto.Text = Total
End Sub

[seba123neo]

Hola,tambien podes usar el evento Validate() del textbox...

saludos.

[Kitty_05]

Listo ya funciona con lo q me indicaste "David el Grande" .... gracias mil

[Avellaneda]

Hola Kitty, tu código también funcionaría, pero poniéndolo así:

Código:

Private Sub Monto_LostFocus(Index As Integer)
TotMonto = Val(Monto(Index)) + Val(TotMonto)
End Sub

un saludo..