Как прервать цикл

[claymen]

Подскажите пожалусто на примере, как можно прервать цикл.

Код: Выделить всё

for i=1 to x
next i


А то, если x становится слишком большим, программа подвисат до его полного выполнения.

[Хакер]

1) Бред какой-то.
2) Что должно по твоему быть до его полнового выполнения? Что-то другое, отличное от того, что ты именуешь подвисанием?
3) Exit For

[Proxy]

EXIT FOR - выход из цикла For...next
EXIT DO соответственно
EXIT Function/Sub соответственно
DoEvents - передаст управление прочему нуждающемуся (предотвратит зависание GUI)

[claymen]

ОК. Я дал всем остальным возможность делать свои дела пока цикл все еще идет. А можно ли его убить по нажатию на кнопку на форме ?
Ведь нажимая, я не попадаю в цикл, т.к. он идет в Form_Load

[Хакер]

claymen
Нажатие на кнопку не будет обработано, пока работает цикл.

А если и будет, то только при условии, что ты из этого цикла постоянно вызываешь DoEvents. А если так, то после того как отработает Form_Load, выполнение вернётся в DoEvents, а из него обратно в цикл.

[Proxy]

Вобщем DoEvents запихай в тело цикла и тама
If OutMode then Exit For
Но! В области объявлений Dim OutModa as boolean
И Перед циклом лучше бы OutMode = false
А по нажатию кнопки OutMode = true

[claymen]

Proxy
Большое спасибо! Помогло.