Как завершить процедуру из другой процедуры? - VB

Формулировка задачи:

Имеется такой пример:

Sub Start() ' первая процедура

   Finish 'вызывает эту процедуру

   'какой то код
   .
   .
   .
end Sub

Sub Finish() 'вторая процедура должна прервать первую!

   if 2+2=4 Then
      Msgbox("Прервать выполнение процедуры Start")
   end if

end Sub

Процедура Start вызывает процедуру Finish. В этой процедуре идёт проверка и если происходит событие она должна закрыться сама и прекратить выполнение первой процедуры Start. Как это сделать?

Решение задачи: «Как завершить процедуру из другой процедуры?»

textual
                            Листинг программы 
                        

                            Sub Start()
On Error GoTo labErr
' Какой-то код
Call Finish
MsgBox "Так тоже работает"
' Какой-то код
Exit Sub
labErr:
' Здесь вывод в лог и действия в случае ошибки
MsgBox "Прервали работу - " & Err.Description
End Sub

Sub Finish()
If Rnd() > 0.5 Then
    Err.Raise vbObjectError + 1, , "Проверка работы"
End If
End Sub

                        

Оцени полезность:

5 голосов , оценка 3.8 из 5

Похожие ответы