Всем здрасьте.
Цель такая: если пользователь нажал кнопку
закрыть окно , то надо прервать цикл, и всё закрыть и завершить программу
Есть глобальная переменная
rabota , перед началом цикла она истина
программа, например, читает таблицу,
скажем есть цикл
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Do Until RS.EOF()
i = i + 1
If rabota = False Then Exit Do
If (i Mod 10) = 0 Then
DoEvents
End If
...
RS.MoveNext
Loop
RS.Close: Set RS = Nothing
db.Close: Set db = Nothing
благодаря команде DoEvents пользователь всё-таки может нажать на форме системную кнопку ЗАКРЫТЬ
X
в процедуре Form_QueryUnload я пишу
1.
2.
3.
4.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
rabota = False
DoEvents
End Sub
но цикл по всей видимости не прерывается и программа где-то висит в памяти, хотя на экране форма не видно
Подскажите что-нибудь. Спасибо.
