sumar textbox creadas en ejecucion

[dwin]

hola.

tengo un problema al sumar las cajas de texto que fueron creadas en ejecucion... tengo mi codigo:



aqui es donde creo mis cajas de texto, se supone q se crea la text2(1), text2(2), la text2(0) y la text3(0) ya esta creada, por eso inicio desde la 1

Código:

resultado= 2

For aux = 1 To resultado 
    aux = Text2.Count
    Load Text2(aux)
    With Text2(aux)
    
        .Top = Text2(aux - 1).Top + 270
        .Visible = True
    End With

    aux = Text3.Count
    Load Text3(aux)
    With Text3(aux)
    
        .Top = Text3(aux - 1).Top + 270
        .Visible = True
    End With


Next au

y despues pongo mi operacion

Código:

Private Sub XPButton5_Click()

Dim divisor As Integer


divisor = 2

For aux = 1 To 2


Text9(aux).Text = (Int(Text2(aux).Text) + Int(Text3(aux).Text)) / divisor


Next aux

End Sub

y el error que me manda es que no encuentra el indice '1', osea en pocas palabras me dice que no encuentra el text2(1), ni tampoco el text3(1)...

dice q no existen.. pero se supone q me creo mis cajas con esos numeros,...

he ahi el problema, que no existen...

algo que no sepa y este mal...

gracias

[David]

¿No será el Text9(aux) el que no existe?

[dwin]

hammmm

nop, ese si esta creada, la creo junto con las demas, la 2 y 3, nadamas q se me paso poner esa parte del codigo...

[culd]

No se te puede ayudar ya que esta todo mal... Incluso nunca dijiste si el Text9 se genero en tiempo de ejecucion... Tendria que tener tu proyecto para decirte tu error... Pero me juego que el problema del indice es en el Text9

Igualmente arme desde 0 para que veas como deberia funcionar lo que vos necesitas...

NOTA: Insertar 3 textbox... que tengan index 0.
Text2
Text3
Text9

Luego para generarlos:

Código:

Dim X As Integer

For X = 1 To 2
    Load Text2(X)
    Text2(X).Visible = True
    Text2(X).Left = Text2(0).Left
    Text2(X).Top = Text2(0).Top + (360 * X)
    
    Load Text3(X)
    Text3(X).Visible = True
    Text3(X).Left = Text3(0).Left
    Text3(X).Top = Text3(0).Top + (360 * X)

    Load Text9(X)
    Text9(X).Visible = True
    Text9(X).Left = Text9(0).Left
    Text9(X).Top = Text9(0).Top + (360 * X)
Next X

360 es la altura para que quede bien, lo multiplico por X ya que se van agregando varios en este caso 2 (trata de entender eso)

Con eso ya cargarian en tiempo de ejecucion los textbox... ahora te pongo como se armaria la suma (bah el promedio)

Código:

Dim X As Integer

For X = 1 To 2
    Text9(X).Text = (CInt(Text2(X)) + CInt(Text3(X))) / 2
Next X

Saludos

[dwin]

hammmmmm

si genero el 9 en ejecucion... 8-)...

pero el codigo q me pasaste si funciona, revisare todo mi codigo para encontrar el error

gracias a los dos

culd y david el grande..

thanks