Возможна ли такая псевдомультизадачность?

[Snussi]

Итак, примерчик кода

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

Private WeBusy as boolean  ' Признак того, что ведется долгая и кропотливая операция над какими-то общими данными

private sub BigSub ' процедура, которая эти данные очень долго ковыряет
    WeBusy=true

   ' Куча операций

   WeBusy=False
end sub



private sub Timer1_Timer
   ' Срабатывание таймера
   do while WeBusy=True
         doevents
   loop
   
   ' Коротенькая обработка данных
   
end sub



Собственно, вопрос в том, прерывается ли выполнение основной большой процедуры при срабатывании таймера? Или она будет потихоньку выполнятся?

[alibek]

Возможно, но я обычно делаю несколько по другому.

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

Private fBusy As Boolean, fCancel As Boolean
...
Sub LoadBigChunk()
Dim ...
If fBusy Then Exit Sub
fBusy = True
fCancel = False
Do Until ...
  ...
  DoEvents
  If fCancel Then Exit Do
Loop
fBusy = False
End Sub

...

Private Sub cmdLoadData_Click()
  If fBusy Then Exit Sub
  Call LoadBigChunk()
  If fCancel Then MsgBox "Cancelled!"
End Sub

Private Sub cmdInfo_Click()
  MsgBox ...
End Sub

Private Sub cmdCancel_Click()
  fCancel = True
End Sub