设计模块和过程.docVIP

设计模块和过程 2.3.2为每个过程赋予单个退出点 对事件驱动的应用程序中的代码进行调试是非常麻烦的，因为过程是从别的过程中调用 （扇出）的，代码的执行往往像台球桌上的台球弹来弹去。ExitFunction和ExitSub这样的简单语句可能进一步增强这种复杂性。如果每个过程拥有单个进入点，这将是很有意义的。你不希望不同的调用过程能够进入不同代码位置中的某个过程，这会带来很大的问题。每个过程也应该拥有单个退出点，尽管这个问题人们并不十分重视。 确认控件总是以相同的方式在同一行代码上退出一个过程时，调试就会变得简单得多。如果让一个过程从代码中的任何位置退出，那么你怎样能够确定清除代码总是在过程退出之前执行呢？当然，也许你能够记住过程中确切的运行情况，但是，当另一个编程员对过程进行编辑时，增加了一个SelectCase子句，并且使用ExitSub语句来退出该过程，那将会出现什么问题呢？应该执行以便清除该过程的任何代码并没有使用，因此很容易出现错误。 解决这个问题的办法是在每个过程中创建一个PROC_EXIT标注。在这个标注下面，放入所有必要的清除代码和一个相应的Exit语句（ExitSub、ExitFunction和ExitProperty）。每当你需要退出该过程时，只需加上一个GoToPROC_Exit语句，而不必直接调用Exit命令。 创建单个退出点，可使过程更像是黑箱。代码的执行从一个门进来，代码的退出则从另一个门出去，因此产生的错误比较少，调试也不太难。创建单个退出点的操作是非常复杂的，但是它的好处是极大的。得到的好处大于你付出的努力，这种情况并不是总能碰到，因此务必充分利用它。 不正确： PublicFunctionIsFormLoaded（strFormNameAsString）AsBoolean ?Purpose：Determinewhetheraspecifiedformisloaded. ?Accepts：strFormName-thenameofaform. ?Returns：Trueiftheformisloaded，Falseifnot. OnErrorGoToPROC_ERR DimintCounterAsInteger ?Sincereferringtoaformloadstheform，theproper ?waytodeterminewhethertheformisloadedistoloop ?throughtheFormscollection，whichcontainsonly ?loadedforms. ForintCounter=0T0Forms.Count-1 ?Ifthecurrentformisthespecifiedform， ?returnTrueandgetout. IfForms（intCounter.Name=strFormName Then IsFormLoaded= True ExitFunction EndIf NextintCounter ?Formwasnotfound；returnFalse. IsFormLoaded= False PROC_ERR： MsgBox襜asMain|IsFormLoaded?vbCrLf褽rror：?_ Err.NumbervbCrLfErr.Description ResumeNext EndFunction 正确： PublicFunctionIsFormLoaded（strFormName AsString）AsBoolean ?Purpose：Determinewhetheraspecifiedformisloaded. ?Accepts：strFormName-thenameofaform. ?Returns：Trueiftheformisloaded，Falseifnot. OnErrorGoToPROC_ERR DimintCounterAsInteger ?Sincereferringtoaformloadstheform，theproper ?waytodeterminewhethertheformisloadedistoloop ?throughtheFormscollection，whichcontainsonly ?loadedforms. ForintCounter=0 ToForms.Count-1 ?Ifthecurrentformisthespecifiedform， ?returnTrueandgetout. IfForms（intCounter.Name=strFormName Then IsFormLoaded=True GoToPROC_EXIT EndIf NextintCounter ?Fo