在 Sub 中停止其他 Sub 运行

Question

有没有办法阻止其他子程序在单独的子程序中运行。

例如说你在子目录中 CreateNumber()

和 subs 的设置类似于

CreateNumber()
添加号码()
？

有没有办法在 CreateNumber() 中调用一个函数来在 createtNumber() 完成后停止 AddNumber 的运行 我只是想让我的程序坐在那里等待事件发生。

Answer 1

只需这样做：

CreateNumber()
WaitForSomeEventToHappen()
AddNumber()
DeleteNumber() 

如果您不使用线程，那么这些 Subs 将简单地按顺序调用，因此您不必做任何“聪明”的事情。

如果你想让CreateNumber能够控制是否执行AddNumber()，那么你可以将它做成一个Function并返回一个结果 - 例如

Public Function CreateNumber() As Boolean
    ...create the number...

    if (numberCreatedOk)
        return(True);

    return(False);
End Function

然后这样调用它：

if (CreateNumber()) then
    AddNumber()
    DeleteNumber()
end if

这样，你只调用剩余的Subs，如果CreateNumber() 返回 True。