Как передать error во внешнюю процедуру - VB

Узнай цену своей работы

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

имеется формочка с двумя кнопочками
одна(cmdGo) вызывает процедуру из mdlMain (Call someProcess), другая (cmdCancel) должна остановить выполнение этой процедуры. Подскажите, плиз, как это сделать?
Спасибо.

Решение задачи: «Как передать error во внешнюю процедуру»

textual
Листинг программы
<font color="blue">Option</font> <font color="blue">Explicit</font>

<font color="blue">Private</font> mblnMyStop <font color="blue">As</font> <font color="blue">Boolean</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Class_Initialize()
    mblnMyStop = False
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Public</font> <font color="blue">Sub</font> DoMyMethod()

    <font color="blue">While</font> <font color="blue">Not</font> mblnMyStop
        DoEvents
        <font color="00AA00">'Здесь будет ваш код  (код из вашей функции или процедуры):</font>
        Form1.Caption = <font color="blue">Time</font>
    <font color="blue">Wend</font>
    
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Public</font> <font color="blue">Property</font> <font color="blue">Get</font> MyStop() <font color="blue">As</font> <font color="blue">Boolean</font>
     MyStop = mblnMyStop
<font color="blue">End</font> <font color="blue">Property</font>

<font color="blue">Public</font> <font color="blue">Property</font> <font color="blue">Let</font> MyStop(<font color="blue">ByVal</font> vNewValue <font color="blue">As</font> <font color="blue">Boolean</font>)
    mblnMyStop = vNewValue
<font color="blue">End</font> <font color="blue">Property</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 3.667 из 5
Похожие ответы