VB2008从入门到精通(PDF格式英文版)-第26部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！





　　　　　　　　　　　Exception　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Plain…vanilla　exception；　a　general　container　for　all　exceptions。　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　When　you　get　one　of　these　exceptions；　look　at　the　Message　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　property　for　the　exact　details。　If　you　throw　this　type　of　excep

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　tion；　it　is　important　to　supply　an　easy…to…understand　string　to　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　the　exception　constructor。　



　　　　　　　　　　　ArgumentException　　　　　　　　　　　　　　　　　　　　　　　　　　Thrown　if　you　call　a　method　and　one　of　the　arguments　is　not　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　valid。　Typically；　in　the　Message　property　you　can　find　the　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　problem　with　the　arguments。　If　this　exception　is　thrown；　it　is　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　because　the　contents　of　the　argument　are　wrong。　



　　　　　　　　　　　ArgumentNullException　　　　　　　　　　　　　　　　　　　　　　Thrown　if　you　call　a　method　where　one　of　the　arguments　is　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　a　Nothing　value。　This　could　be　because　you　are　passing　the　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Nothing　value　to　the　method　or　one　of　the　arguments　has　a　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Nothing　value。　



　　　　　　　　　　　ArgumentOutOfRangeException　　　　　　　　　　　　　　　　Thrown　if　you　call　a　method　where　one　of　the　arguments　is　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　not　in　the　expected　range。　While　this　exception　sounds　similar　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　to　ArgumentException；　it　is　more　specialized　and　targets　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　whether　an　argument　is　in　an　acceptable　range。　Check　the　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　documentation　of　the　method　or　the　method　implementation　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　on　what　the　acceptable　range　is。　If　you　throw　this　exception；　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　note　the　valid　range　in　the　error　message。　



　　　　　　　　　　　ArithmeticException　　　　　　　　　　　　　　　　　　　　　　　　Thrown　if　a　mathematical　error　is　generated。　



　　　　　　　　　　　DivideByZeroException　　　　　　　　　　　　　　　　　　　　　　Thrown　if　you　attempt　to　divide　by　zero。　



　　　　　　　　　　　FormatException　　　　　　　　　　　　　　　　　　　　　　　　　　　　Thrown　if　the　format　of　the　parameter　is　not　correct。　For　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　example；　if　a　method　expects　a　number　to　be　formatted　with　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　a　period　and　you　use　a　ma；　an　exception　is　generated。　



　　　　　　　　　　　IndexOutOfRangeException　　　　　　　　　　　　　　　　　　　Thrown　if　you　attempt　to　reference　an　index　of　an　array　that　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　would　be　beyond　the　limits　of　the　array。　This　exception　is　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　thrown　if　you　have　not　allocated　an　array　and　then　attempt　to　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　reference　an　element；　or　if　you　attempt　to　reference　a　nega

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　tive　index　of　the　array。　



　　　　　　　　　　　InsufficientMemoryException　　　　　　　　　　　　　　　　Thrown　if　not　enough　memory　is　available。　Although　this　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　exception　is　not　generated　often；　it　can　be　generated　if　you　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　attempt　to　allocate　an　array　when　you　specify　something　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　along　the　lines　of　5　trillion　elements　（due　to　an　improperly　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　assigned　array　size　variable）。　



　　　　　　　　　　　InvalidCastException　　　　　　　　　　　　　　　　　　　　　　　Thrown　if　you　attempt　to　cast　one　type　to　another　type　that　is　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　not　supported。　This　exception　is　very　mon　when　you　use　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　inheritance　and　attempt　a　cast。　



　　　　　　　　　　　NotImplementedException　　　　　　　　　　　　　　　　　　　　Thrown　when　using　methods　or　properties　without　an　imple

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　mentation。　Often；　you　don’t　have　time　to　implement　all　of　the　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　code　at　once。　For　those　properties　or　methods　that　have　not　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　been　implemented；　don’t　leave　an　empty　property　or　method　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　implementation。　Instead；　throw　an　exception。　Then　you　will　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　know　if　you　have　forgotten　to　implement　something。　


…………………………………………………………Page　151……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CH　AP　T　E　R　　　5　　　■　　　　L　E　AR　N　IN　G　　　AB　O　U　T　　　V　I　SU　A　L　　　B　AS　IC　　　E　X　CE　PT　I　ON　　　HA　N　D　L　IN　G　129　



Table　5…1。　　mon　Exception　Types　



Exception　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Description　



NotSupportedException　　　　　　　　　　　　　　　　　　　Thrown　when　you　attempt　to　use　an　interface　instance　and　a　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　method　that　cannot　work。　For　example；　if　you　open　a　read…write　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　buffer　to　a　read…only　CD…ROM；　you　will　get　this　exception　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　when　writing　to　the　CD…ROM。　If　you　attempt　to　read　from　the　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　interface　instance；　an　exception　will　not　be　thrown。　



NullReferenceException　　　　　　　　　　　　　　　　　　Thrown　when　you　attempt　to　call　a　method　or　property　of　a　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　variable　that　has　not　been　assigned　with　a　valid　type　instance。　



OutOfMemoryException　　　　　　　　　　　　　　　　　　　　Similar　to　InsufficientMemoryException。　



OverflowException　　　　　　　　　　　　　　　　　　　　　　　Thrown　when　you　attempt　to　perform　numeric　operations　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　that　are　not　supported；　such　as　adding　2　billion　to　2　billion　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　using　a　32…bit　integer。　



SystemException　　　　　　　　　　　　　　　　　　　　　　　　　Thrown　by　the　operating　system。　Do　not　attempt　to　derive　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　from　this　class。　



Writing　Exception…Safe　Code　



Now　that　you’ve　seen　how　to　implement　exception　handlers；　we’ll　look　at　an　even　better　approach　　

to　exceptions：　not　generating　them。　We’ll　focus　on　how　you　can　make　your　code　safer　and　less　　

likely　to　generate　exceptions。　



Writing　Defensive　Code　



All　too　often；　developers　get　exceptions　such　as　　NullReferenceException　because　they　didn’t　　

make　sure　that　the　state　in　a　piece　of　code　was　valid。　And　if　the　state　is　not　valid；　an　exception　　

will　occur。　In　fact；　in　this　chapter；　one　of　the　previous　examples　has　just　such　a　situation；　which　　

you　may　have　noticed。　Here　is　the　code　that　has　a　dumb　little　exception　possibility：　



Sub　TestCallingExample（）　　

　　　　Dim　cls　As　CallingExample　=　Nothing　

　　　　Try　　

　　　　　　　　cls　=　New　CallingExample（）　

　　　　　　　　cls。Method（）　

　　　　Catch　　ex　As　Exception　

　　　　End　Try　

　　　　Console。WriteLine（〃Depth　is　（〃　&　cls。GetDepth（）　&　〃）〃）　

End　Sub　



　　　　　The　problem　is　in　the　bolded　line；　which　assumes　that　cls　will　always　reference　a　valid　　

instance　of　CallingExample。　This　is　an　assumption　that　you　cannot　afford　to　make。　If　an　excep

tion　occurred　while　instantiating　CallingExample；　cls　will　still　be　Nothing；　and　the　Catch　block　　

will　catch　the　instantiation　exception；　saving　a　program　crash。　However；　the　use　of　cls。GetDepth（）　　

immediately　after　that　throws　your　protection　out　the　window；　as　cls　is　　Nothing　and　will　　

generate　a　NullReferenceException。　Here’s　a　better　way　to　write　this　code：　


…………………………………………………………Page　152……………………………………………………………

130　　　　　　　CH　AP　T　E　R　　　5　　　■　　　　L　E　A　R　N　IN　G　　　AB　OU　T　　　V　I　SU　A　L　　　B　AS　IC　　　E　X　C　E　P　TI　ON　　　H　AN　D　L　IN　G　



　　　　　　　　　　Sub　TestCallingExample（）　　

　　　　　　　　　　　　　　Dim　cls　As　CallingExample　=　Nothing　

　　　　　　　　　　　　　　Try　　

　　　　　　　　　　　　　　　　　　cls　=　New　CallingExample（）　

　　　　　　　　　　　　　　　　　　cls。Method（）　

　　　　　　　　　　　　　　Catch　ex　As　Exception　　

　　　　　　　　　　　　　　End　Try　

　　　　　　　　　　　　　　If　cls　IsNot　Nothing　Then　

　　　　　　　　　　　　　　　　　　Console。WriteLine（〃Depth　is　（〃　&　cls。GetDepth（）　&　〃）〃）　

　　　　　　　　　　　　　　End　If　

　　　　　　　　　　End　Sub　



　　　　　　　　　　　　　　　The　bolded　code　illustrates　defensive　coding　that　tests　if　cls　is　not　Nothing；　and　if　so；　then　　

　　　　　　　　　　allows　the　referencing　of　cls。GetDepth（）。　Now　the　code　is　exception…safe。　It　does　not　mean　　

　　　　　　　　　　exceptions　cannot　occur；　because　calling　GetDepth（）　could　still　generate　an　exception　inter

　　　　　　　　　　nally；　but　with　respect　to　the　TestCallingExample（）　method；　you　have　made　everything　as　safe　　

　　　　　　　　　　as　possible；　and　have　assumed　GetDepth（）　is　a　low　exception…risk　method。　

　　　　　　　　　　　　　　　Missing　from　the　TestCallingExample（）　method　is　an　indication　of　whether　the　processing　　

　　　　　　　　　　worked。　It　is　assumed　from　the　perspective　of　the　caller　of　TestCallingExample（）　that　　

　　　　　　　　　　calling　TestCallingExample（）　will　always　result　in　something　being　done。　The　caller　of　　

　　　　　　　　　　TestCallingExample（）　has　no　way　of　knowing　that　something　failed；　other　than　if　an　exception　　

　　　　　　　　　　was　thrown。　

　　　　　　　　　　　　　　　Code　that　tells　you　if　something　went　wrong　using　an　exception　is　both　a　blessing　and　a　　

　　　　　　　　　　curse。　It　is　a　blessing　because　the　code　is　telling　you　that　something　went　wrong。　But　it　is　a　　

　　　　　　　　　　curse　because　sometimes　you　know　something　could　go　wrong；　and　that　it　is　OK；　but　you　don’t　　

　　　　　　　　　　want　the　exception　to　travel　up　the　program　hierarchy。　In　these　cases；　you　need　to　catch　the　　

　　　　　　　　　　exception；　which　makes　your　code　more　plicated。　

　　　　　　　　　　　　　　　For　example；　say　you　wanted　to　parse　a　number。　The　　parsing　routines　tend　to　give　a　　

　　　　　　　　　　result　if　everything　worked　OK；　but　generate　an　exception　if　things　are　not　OK。　There　is　no　　

　　　　　　　　　　return　value；　just　an　exception。　But　when　parsing　a　number；　you　do　know　that　things　could　go　　

　　　　　　　　　　wrong；　so　you　will　need　to　write　an　exception　handler。　Following　is　some　source　code　that　　

　　　　　　　　　　parses　a　number。　



　　　　　　　　　　Function　TestGetValue（ByVal　buffer　As　String）　As　Integer　

　　　　　　　　　　　　　　Dim　retval　As　Integer　=　0　

　　　　　　　　　　　　　　Try　　

　　　　　　　　　　　　　　　　　　retval　=　Integer。Parse（buffer）　

　　　　　　　　　　　　　　Catch　ex　As　FormatException　

　　　　　　　　　　　　　　　　　　Console。WriteLine（〃Exception　（〃　&　ex。Message　&　〃）〃）　

　　　　　　　　　　　　　　End　Try　

　　　　　　　　　　　　　　Return　retval　

　　　　　　　　　　End　Function　



　　　　　　　　　　　　　　　In　the　example；　the　code　realizes　that　if　Parse（）　is　called　and　the　string　cannot　be　converted　　

　　　　　　　　　　into　a　number　due　to　incorrect　letters　or　numbers；　an　exception　will　be　thrown。　The　exception　　

　　　　　　　　　　will　be　caught；　processed　（using　the　exception’s　Message　property　to　obtain　the　problem）；　and　　

　　　　　　　　　　then　the　value　of　retval　will　be　returned　to　the　caller。　But　what　if　an　exception　does　happen？　　

　　　　　　　　　　The　variable　retval　is　initialized　to　a　default　value　of　0；　which　is　a　valid　formatted　number　and　　

　　　　　　　　　　can　be　interpreted　as　the　result　of　a　successful　format　processing。　


…………………………………………………………Page　153……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CH　AP　T　E　R　　　5　　　■　　　　L　E　AR　N　IN　G　　　AB　O　U　T　　　V　I　SU　A　L　　　B　AS　IC　　　E　X　CE　PT　I　ON　　　HA　N　D　L　IN　G　131　



　　　　　The　problem　in　the　code　is　that　a　developer　is　caught　in　a　bind。　By　capturing　the　exception；　　

the　method　TestGetValue（）　is　saying；　“I　will　always　return　to　the　caller　a　valid　value。”　Yet　there　　

are　instances　when　a　valid　value　is　not　available。　In　the　case　of　parsing　a　number；　an　exception　　

is　thrown。　So　by　capturing　an　exception；　you　are　doing　the　pletely　wrong　thing；　because　　

you　should　be　letting　the　exception　be　caught　by　a　higher…level　caller。　But　things　can　bee　　

sticky　here。　Do　you　really　want　to　inform　the　caller　that　a　parse　cannot　occur？　Perhaps　the　caller　　

is　more　interested　in　whether　a　valid　value　is　returned。　It’s　like　saying　to　the　CEO；　“Oops；　we　　

just　ran　out　of　staples。”　Sure；　staples　might　be　important；　and　maybe　the　pany　will　not　run　　

as　smoothly；　but　do　you　really　want　to　inform　the　CEO　about　every　little　problem？　

　　　　　Microsoft　developers　know　about　this　problem　with　parsing；　and　use　an　approach　that　　

you　can　use　as　well。　As　you　learned　in　Chapter　3；　there　are　two　variations　of　parsing　a　number：　



　　　　　o　　Parse（）　returns　a　valid　number　if　the　buffer　could　be　parsed；　and　an　exception　if　a　　

　　　　　　　　number　could　not　be　parsed。　



　　　　　o　　TryParse（）　returns　a　True　or　　False　value　indicating　the　result　of　the　parse。　　



　　　　　Here’s　how　you　could　rewrite　the　TestGetValue（）　method　to　use　TryParse（）：　



Function　TestGetValue（ByVal　buffer　As　String；　ByRef　val　As　Integer）　As　Boolean　

　　　　Dim　retval　As　Boolean　=　False　

　　　　If　Integer。TryParse（buffer；　val）　Then　

　　　　　　　　retval　=　True　

　　　　End　If　

　　　　Return　retval　

End　Function　



　　　　　In　the　modified　example；　TestGetValue（）　returns　a　True　or　　False　to　indicate　a　success　or　　

failure　when　parsing　a　number。　If　a　True　is　returned；　the　parameter　val　will　hold　a　valid　number；　　

otherwise；　val　should　be　not　be　used。　

　　　　　Some　of　you　might　have　caught　that　my　use　of　Parse（）　and　TryParse（）　is　not　very　creative。　　

The　method　TestGetValue（）　could　have　been　reduced　to　a　single　line：　



Function　TestGetValue（ByVal　buffer　As　String；　ByRef　val　As　Integer）　As　Boolean　

　　　　Return　Integer。TryParse（buffer；　val）　

End　Function　



Using　Default　State　



Default　state　is　a　useful　technique　to　guard　against　exceptions　that　developers　often　ignore。　　

When　developers　are　writing　their　code；　they　will　often　return　Nothing　when　things　don’t　work　　

out。　Using　Nothing　is　not　a　bad　idea；　but　it　adds　unnecessary　baggage。　For　example；　consider　　

the　following　code：　



Class　DefaultStateWrong　　

　　　　Private　Function　Tokenize（ByVal　buffer　As　String）　As　String（）　

　　　　　　　　Return　Nothing　

　　　　End　Function　


…………………………………………………………Page　154……………………………………………………………

132　　　　　　　CH　AP　T　E　R　　　5　　　■　　　　L　E　A　R　N　IN　G　　　AB　OU　T　　　V　I　SU　A　L　　　B　AS　IC　　　E　X　C　E　P　TI　ON　　　H　AN　D　L　IN　G　



　　　　　　　　　　　　　　Public　Sub　IterateBuffers（ByVal　buffer　As　String）　　

　　　　　　　　　　　　　　　　　　Dim　found　As　String（）　=　Tokenize（buffer）　

　　　　　　　　　　　　　　　　　　If　found　IsNot　Nothing　Then　　

　　　　　　　　　　　　　　　　　　　　　　For　c1　As　Integer　=　0　To　found。Length　1　

　　　　　　　　　　　　　　　　　　　　　　　　　　Console。WriteLine（〃Found　（〃　&　found（c1）　&　〃）〃）　

　　　　　　　　　　　　　　　　　　　　　　Next　

　　　　　　　　　　　　　　　　　　End　If　

　　　　　　　　　　　　　　End　Sub　

　　　　　　　　　　　End　Class　



　　　　　　　　　　　　　　　　The　problem　in　this　example　is　Tokenize（）；　which　is　a　method　used　to　convert　the　param

　　　　　　　　　　eter　buffer　into　a　series　of　string　tokens。　Using