sentencia infinita

[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!