Как передать error во внешнюю процедуру - VB
Формулировка задачи:
имеется формочка с двумя кнопочками
одна(cmdGo) вызывает процедуру из mdlMain (Call someProcess), другая (cmdCancel) должна остановить выполнение этой процедуры. Подскажите, плиз, как это сделать?
Спасибо.
одна(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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д