《设计模块和过程》word版

《《设计模块和过程》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、设计模块和过程2.3.2为每个过程赋予单个退出点对事件驱动的应用程序中的代码进行调试是非常麻烦的，因为过程是从别的过程中调用（扇出）的，代码的执行往往像台球桌上的台球弹来弹去。ExitFunction和ExitSub这样的简单语句可能进一步增强这种复杂性。如果每个过程拥有单个进入点，这将是很有意义的。你不希望不同的调用过程能够进入不同代码位置中的某个过程，这会带来很大的问题。每个过程也应该拥有单个退出点，尽管这个问题人们并不十分重视。确认控件总是以相同的方式在同一行代码上退出一个过程时，调试就会变得简单得多。

2、如果让一个过程从代码中的任何位置退出，那么你怎样能够确定清除代码总是在过程退出之前执行呢？当然，也许你能够记住过程中确切的运行情况，但是，当另一个编程员对过程进行编辑时，增加了一个SelectCase子句，并且使用ExitSub语句来退出该过程，那将会出现什么问题呢？应该执行以便清除该过程的任何代码并没有使用，因此很容易出现错误。解决这个问题的办法是在每个过程中创建一个PROC_EXIT标注。在这个标注下面，放入所有必要的清除代码和一个相应的Exit语句（ExitSub、ExitFunction和ExitPr

3、operty）。每当你需要退出该过程时，只需加上一个GoToPROC_Exit语句，而不必直接调用Exit命令。创建单个退出点，可使过程更像是黑箱。代码的执行从一个门进来，代码的退出则从另一个门出去，因此产生的错误比较少，调试也不太难。创建单个退出点的操作是非常复杂的，但是它的好处是极大的。得到的好处大于你付出的努力，这种情况并不是总能碰到，因此务必充分利用它。不正确：PublicFunctionIsFormLoaded（strFormNameAsString）AsBoolean?Purpose：Determ

4、inewhetheraspecifiedformisloaded.?Accepts：strFormName-thenameofaform.?Returns：Trueiftheformisloaded，Falseifnot.OnErrorGoToPROC_ERRDimintCounterAsInteger?Sincereferringtoaformloadstheform，theproper?waytodeterminewhethertheformisloadedistoloop?throughtheForms

5、collection，whichcontainsonly?loadedforms.ForintCounter=0T0Forms.Count-1?Ifthecurrentformisthespecifiedform，?returnTrueandgetout.IfForms（intCounter.Name=strFormNameThenIsFormLoaded=TrueExitFunctionEndIfNextintCounter?Formwasnotfound；returnFalse.IsFormLoaded=

6、FalsePROC_ERR：MsgBox襜asMain

7、IsFormLoaded?&vbCrLf&褽rror：?&_Err.Number&vbCrLf&Err.DescriptionResumeNextEndFunction正确：PublicFunctionIsFormLoaded（strFormNameAsString）AsBoolean?Purpose：Determinewhetheraspecifiedformisloaded.?Accepts：strFormName-thenameofaform.?R

8、eturns：Trueiftheformisloaded，Falseifnot.OnErrorGoToPROC_ERRDimintCounterAsInteger?Sincereferringtoaformloadstheform，theproper?waytodeterminewhethertheformisloadedistoloop?throughtheFormscollection，whichcontainsonly?loadedforms.ForintCounter=0ToForms.Count-1

9、?Ifthecurrentformisthespecifiedform，?returnTrueandgetout.IfForms（intCounter.Name=strFormNameThenIsFormLoaded=TrueGoToPROC_EXITEndIfNextintCounter?Formwasnotfound；returnFalse.IsFormLoaded=FalsePROC_EXIT