sentencia infinita

[ebu]

hola!
necesito repetir lo siguiente infinitas veces:

vChildComp = swComp.GetChildren 'una matriz q guarda varios objetos

For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)
Set b = swChildComp.GetModelDoc

nombre b 'llamara a un procedimiento llamada nombre
Next i

hay alguna forma o existe algun for q se repita infinitas veces??
infinitas veces menos una si no se me quedaria bloqueado...
gracias!

p.d. he intentado esto:

vChildComp = swComp.GetChildren

For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)
Set b = swChildComp.GetModelDoc

nombre b

vChildComp2 = swChildComp.GetChildren
If (vChildComp2 <> Empty) Then
esteproce swChildComp 'llama a este procedimiento. pero al llamarle denuevo se llenara el vChildComp y se perderan los datos q quedaban x ejecutar.como lo hago??
End If
Next i

[jotaaigriegao]

Iniciado por ebu

infinitas veces menos una si no se me quedaria bloqueado...

Infinito menos uno me parece que sigue siendo infinito...En fin, un bucle asi se logra también con

while (true)

[ebu]

ese while (true) seria como el If (vChildComp2 <> Empty) Then q he puesto. mi problema es q al ejecutar de nuevo el procedimiento hay variables q me van a coger nuevos datos teniendo datos "antiguos" sin ejecutar.

[Judgement]

Iniciado por jotaaigriegao

Infinito menos uno me parece que sigue siendo infinito...En fin, un bucle asi se logra también con

while (true)

Saludos, solo sugiero que añadas la instruccion DoEvents de lo contrario tu programa estara enciclado sin poder recibir ordenes, como para poder detener el ciclo.

Algo asi:

Código:

Dim bBandera As Boolean

Private Sub Form_Load()
    bBandera = True
End Sub

Private Sub Command1_Click()
    Dim iContador As Integer
    While bBandera
        DoEvents
        iContador = iContador + 1
        Me.Caption = iContador
        If iContador > 1000 Then iContador = 0
    Wend
End Sub

Private Sub Command2_Click()
    bBandera = False
End Sub

Espero que te sirva

[ebu]

Iniciado por Judgement

Saludos, solo sugiero que añadas la instruccion DoEvents de lo contrario tu programa estara enciclado sin poder recibir ordenes, como para poder detener el ciclo.

Algo asi:

Código:

Dim bBandera As Boolean

Private Sub Form_Load()
    bBandera = True
End Sub

Private Sub Command1_Click()
    Dim iContador As Integer
    While bBandera
        DoEvents
        iContador = iContador + 1
        Me.Caption = iContador
        If iContador > 1000 Then iContador = 0
    Wend
End Sub

Private Sub Command2_Click()
    bBandera = False
End Sub

Espero que te sirva

gracias, pero sigo teniendo el mismo problema con las variables. las variables q tengo dentro del for me van cogiendo otros valores antes q termine el for.
gracias de todos modos!

[Judgement]

Has probado depurando tu código? para ver en que momento estan recibiendo los valores erroneos.

[ebu]

eso q es lo de las gafitas??
me pone q las valiables estan fuera de contexto!