在Sub中停止运行其他潜艇

Question

是否有办法阻止其他潜艇在单独的潜艇中运行？

例如说你在子 CreateNumber（）

和潜艇都安装类似

CreateNumber（）
AddNumber（）
DeleteNumber（）

是否有办法在CreateNumber（）中并调用一个函数来阻止AddNumber在creaetNumber（）完成后运行？我只想让我的节目坐在那里等待事件的发生。

Answer 1

只是这样做：如果你不使用线程

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

，那么这些潜艇将被简单地称为顺序，所以你没有做任何事情“聪明”。

如果您希望CreateNumber能够控制是否将执行AddNumber（），那么您可以将其设置为函数并返回结果 - 例如，

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

    if (numberCreatedOk) 
     return(True); 

    return(False); 
End Function 

然后调用它像这样：

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

这样，你只能调用其余的替补，如果CreateNumber（）返回真。