《設(shè)計模塊和過程》word版

1、設(shè)計模塊和過程2.3.2為每個過程賦予單個退出點對事件驅(qū)動的應(yīng)用程序中的代碼進行調(diào)試是非常麻煩的，因為過程是從別的過程中調(diào)用（扇出）的，代碼的執(zhí)行往往像臺球桌上的臺球彈來彈去。ExitFunction和ExitSub這樣的簡單語句可能進一步增強這種復雜性。如果每個過程擁有單個進入點，這將是很有意義的。你不希望不同的調(diào)用過程能夠進入不同代碼位置中的某個過程，這會帶來很大的問題。每個過程也應(yīng)該擁有單個退出點，盡管這個問題人們并不十分重視。確認控件總是以相同的方式在同一行代碼上退出一個過程時，調(diào)試就會變得簡單得多。如果讓一個過程從代碼中的任何位置退出，那么你怎樣能夠確定清除代碼總是在過程退出之前執(zhí)行

2、呢？當然，也許你能夠記住過程中確切的運行情況，但是，當另一個編程員對過程進行編輯時，增加了一個SelectCase子句，并且使用ExitSub語句來退出該過程，那將會出現(xiàn)什么問題呢？應(yīng)該執(zhí)行以便清除該過程的任何代碼并沒有使用，因此很容易出現(xiàn)錯誤。解決這個問題的辦法是在每個過程中創(chuàng)建一個PROC_EXIT標注。在這個標注下面，放入所有必要的清除代碼和一個相應(yīng)的Exit語句（ExitSub、ExitFunction和ExitProperty）。每當你需要退出該過程時，只需加上一個GoToPROC_Exit語句，而不必直接調(diào)用Exit命令。創(chuàng)建單個退出點，可使過程更像是黑箱。代碼的執(zhí)行從一個門進來，

3、代碼的退出則從另一個門出去，因此產(chǎn)生的錯誤比較少，調(diào)試也不太難。創(chuàng)建單個退出點的操作是非常復雜的，但是它的好處是極大的。得到的好處大于你付出的努力，這種情況并不是總能碰到，因此務(wù)必充分利用它。不正確：PublicFunctionIsFormLoaded（strFormNameAsString）AsBoolean?Purpose：Determinewhetheraspecifiedformisloaded.?Accepts：strFormName-thenameofaform.?Returns：Trueiftheformisloaded，F(xiàn)alseifnot.OnErrorGoToPROC_ER

4、RDimintCounterAsInteger?Sincereferringtoaformloadstheform，theproper?waytodeterminewhethertheformisloadedistoloop?throughtheFormscollection，whichcontainsonly?loadedforms.ForintCounter=0T0Forms.Count-1?Ifthecurrentformisthespecifiedform，?returnTrueandgetout.IfForms（intCounter.Name=strFormNameThenIsFor

5、mLoaded=TrueExitFunctionEndIfNextintCounter?Formwasnotfound；returnFalse.IsFormLoaded=FalsePROC_ERR：MsgBox襜asMain|IsFormLoaded?&vbCrLf&褽rror：?&_Err.Number&vbCrLf&Err.DescriptionResumeNextEndFunction正確：PublicFunctionIsFormLoaded（strFormNameAsString）AsBoolean?Purpose：Determinewhethe

6、raspecifiedformisloaded.?Accepts：strFormName-thenameofaform.?Returns：Trueiftheformisloaded，F(xiàn)alseifnot.OnErrorGoToPROC_ERRDimintCounterAsInteger?Sincereferringtoaformloadstheform，theproper?waytodeterminewhethertheformisloadedistoloop?throughtheFormscollection，whichcontainsonly?loadedforms.ForintCounter=0ToForms.Count-1?Ifthecurrentformisthespecifiedform，?returnTrueandgetout.IfForms（intCounter.Name=strFormNameThenIsFormLoaded=TrueGoToPROC_EXITEndIfNextintCounter?Formwasnotfound；returnFalse.IsFormLoaded=FalsePROC_EXIT：ExitFunctionPROC_ERR：MsgBox襜asM