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

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




The　MSDN　documentation　for　Object。GetHashCode　defines　the　GetHashCode（）　method　as　follows　　

（http：//msdn2。microsoft。/en…us/library/system。object。gethashcode（VS。90）。aspx）：　



　　　　　　The　GetHashCode　method　can　be　overridden　by　a　derived　type。　Value　types　must　over

　　　　　　ride　this　　method　to　　provide　　a　　hash　　function　　that　　is　　appropriate　　for　that　type　　and　to　

　　　　　provide　a　useful　distribution　in　　a　hash　table。　For　　best　results；　the　hash　code　must　be　

　　　　　based　on　the　value　of　an　instance　field　or　property　instead　of　a　static　field　or　property。　　



　　　　　　Objects　used　as　a　key　in　a　Hashtable　object　must　also　override　the　GetHashCode　method　

　　　　　because　those　objects　must　generate　their　own　hash　code。　If　an　object　used　as　a　key　does　

　　　　　　not　　provide　　a　　useful　　implementation　　of　　GetHashCode；　　you　　can　　specify　　a　　hash　　code　

　　　　　provider　when　the　Hashtable　object　is　constructed。　



　　　　　But　what　does　this　actually　mean？　The　purpose　of　GetHashCode（）　is　to　identify　the　object　in　　

a　collection　of　other　objects　using　a　hash　code。　Imagine　creating　a　table　of　same…type　instances。　　

The　situation　occurs　when　you　create　a　collection　and　store　a　bunch　of　instances　in　the　collec

tion。　With　the　GetHashCode（）　method；　you　can　generally　separate　each　instance　from　each　other。　　

I　say　“generally”　because　GetHashCode（）　is　an　approximation。　To　verify　if　one　object　instance　　

equals　another；　the　Equals（）　method　needs　to　be　implemented。　


…………………………………………………………Page　302……………………………………………………………

280　　　　　　　CH　AP　T　E　R　　　1　0　　　■　　　　L　E　A　R　N　I　N　G　　　A　B　OU　T　　　P　E　R　S　IS　TE　N　CE　



　　　　　　　　　　　　　　　Implementing　a　hash　code　is　best　delegated　to　a　helper　class　that　does　the　heavy　lifting。　　

　　　　　　　　　　The　book　Effective　Java　Programming　Language　Guide　by　Joshua　Bloch　（Prentice…Hall；　2001）　　

　　　　　　　　　　outlines　a　robust　technique。　Basically；　you　store　some　constant　nonzero　value；　such　as　17；　in　　

　　　　　　　　　　a　variable。　Then；　for　each　data　member　of　the　type；　perform　a　mathematical　operation　that　　

　　　　　　　　　　results　in　Integer　values　that　are　successively　multiplied　and　added；　where　the　operation　is　　

　　　　　　　　　　specific　to　the　type　and　defined　as　follows：　



　　　　　　　　　　　　　　　o　Boolean：　If　true　return　0；　otherwise　return　1。　



　　　　　　　　　　　　　　　o　Byte；　Char；　Short；　or　Integer：　Return　the　value　of　the　type。　



　　　　　　　　　　　　　　　o　Long：　Return　CInt（value　Xor　（value　》》　&H20））。　&H20　is　the　hexadecimal　for　32。　



　　　　　　　　　　　　　　　o　　Single：　Return　Convert。ToInt32　of　the　value。　



　　　　　　　　　　　　　　　o　　Object：　Return　the　value　generated　by　calling　Object。GetHashCode（）。　



　　　　　　　　　　　　　　　o　Array　：　Iterate　and　treat　each　element　individually。　



　　　　　　　　　　　　　　　The　rules　are　implemented　in　a　class　called　HashCodeAutomater。　The　following　source　code　　

　　　　　　　　　　is　an　implementation　in　an　abbreviated　form：　



　　　　　　　　　　Public　Class　HashCodeAutomater　

　　　　　　　　　　　　　　Private　Readonly　_constant　As　Integer　

　　　　　　　　　　　　　　Private　_runningTotal　As　Integer　



　　　　　　　　　　　　　　Public　Sub　New（）　

　　　　　　　　　　　　　　　　　　_constant　=　&H25　

　　　　　　　　　　　　　　　　　　_runningTotal　=　&H11　

　　　　　　　　　　　　　　End　Sub　



　　　　　　　　　　　　　　Public　Function　AppendSuper（ByVal　superHashCode　As　Integer）　As　HashCodeAutomater　

　　　　　　　　　　　　　　　　　　_runningTotal　=　（（_runningTotal　*　_constant）　＋　superHashCode）　

　　　　　　　　　　　　　　　　　　Return　Me　

　　　　　　　　　　　　　　End　Function　



　　　　　　　　　　　　　　Public　Function　Append（ByVal　obj　As　Object）　As　HashCodeAutomater　

　　　　　　　　　　　　　　　　　　If　（obj　Is　Nothing）　Then　

　　　　　　　　　　　　　　　　　　　　　　Me。_runningTotal　=　（Me。_runningTotal　*　Me。_constant）　

　　　　　　　　　　　　　　　　　　ElseIf　Not　obj。GetType。IsArray　Then　

　　　　　　　　　　　　　　　　　　　　　　Me。_runningTotal　=　（（Me。_runningTotal　*　Me。_constant）　＋　obj。GetHashCode）　

　　　　　　　　　　　　　　　　　　ElseIf　TypeOf　obj　Is　Long（）　Then　

　　　　　　　　　　　　　　　　　　　　　　Me。Append（DirectCast（obj；　Long（）））　

　　　　　　　　　　　　　　　　　　ElseIf　TypeOf　obj　Is　Integer（）　Then　

　　　　　　　　　　　　　　　　　　　　　　Me。Append（DirectCast（obj；　Integer（）））　

　　　　　　　　　　　　　　　　　　ElseIf　TypeOf　obj　Is　Short（）　Then　

　　　　　　　　　　　　　　　　　　　　　　Me。Append（DirectCast（obj；　Short（）））　

　　　　　　　　　　　　　　　　　　ElseIf　TypeOf　obj　Is　Char（）　Then　

　　　　　　　　　　　　　　　　　　　　　　Me。Append（DirectCast（obj；　Char（）））　


…………………………………………………………Page　303……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CH　A　PT　E　R　　　1　0　　　■　　　　L　E　A　R　N　I　N　G　　　A　B　O　U　T　　P　E　R　S　IS　T　E　N　CE　281　



　　　　　　　　ElseIf　TypeOf　obj　Is　Byte（）　Then　

　　　　　　　　　　　　Me。Append（DirectCast（obj；　Byte（）））　

　　　　　　　　ElseIf　TypeOf　obj　Is　Double（）　Then　

　　　　　　　　　　　　Me。Append（DirectCast（obj；　Double（）））　

　　　　　　　　ElseIf　TypeOf　obj　Is　Single（）　Then　

　　　　　　　　　　　　Me。Append（DirectCast（obj；　Single（）））　

　　　　　　　　ElseIf　TypeOf　obj　Is　Boolean（）　Then　

　　　　　　　　　　　　Me。Append（DirectCast（obj；　Boolean（）））　

　　　　　　　　Else　

　　　　　　　　　　　　Me。Append（DirectCast（obj；　Object（）））　

　　　　　　　　End　If　

　　　　　　　　Return　Me　

　　　　End　Function　



　　　　Public　Function　Append（ByVal　array　As　Long（））　As　HashCodeAutomater　

　　　　　　　　If　（array　Is　Nothing）　Then　

　　　　　　　　　　　　Me。_runningTotal　=　（Me。_runningTotal　*　Me。_constant）　

　　　　　　　　Else　

　　　　　　　　　　　　Dim　i　As　Integer　

　　　　　　　　　　　　For　i　=　0　To　array。Length　1　

　　　　　　　　　　　　　　　　Me。Append（array（i））　

　　　　　　　　　　　　Next　i　

　　　　　　　　End　If　

　　　　　　　　Return　Me　

　　　　End　Function　



　　　　Public　Function　Append（ByVal　value　As　Long）　As　HashCodeAutomater　

　　　　　　　　Me。_runningTotal　=　_　

　　　　　　　　　　　　（（Me。_runningTotal　*　Me。_constant）　＋　CInt（（value　Xor　（value　》》　&H20））））　

　　　　　　　　Return　Me　

　　　　End　Function　



　　　　Public　Function　ToHashCode（）　As　Integer　

　　　　　　　　Return　_runningTotal　

　　　　End　Function　

End　Class　



　　　　　The　different　implementations　of　the　Append（）　method　belong　to　a　single　grouping　for　a　　

single　data　type；　Long。　For　example；　there　is　an　Append（）　method　that　accepts　a　　Long　and　a　　Long　　

array。　The　full　implementation　of　HashCodeAutomater　would　have　an　Append（）　method　for　Short　　

and　Short　array；　and　all　the　other　data　types。　There　is　no　specific　group　implementation　for　the　　

String　type；　because　it　is　treated　like　an　object　that　has　its　own　hash…code　calculation　　

implementation。　

　　　　　Notice　in　the　implementations　of　the　Append（）　methods　how　a　calculation　is　performed　　

and　then　added　to　the　data　member　_runningTotal。　The　return　value　is　a　Me　reference；　so　that　　

the　methods　can　be　chained　together。　This　allows　a　client　to　use　the　HashCodeAutomater　class；　　

as　the　following　GetHashCode（）　implementation　demonstrates：　


…………………………………………………………Page　304……………………………………………………………

282　　　　　　CH　AP　T　E　R　　　1　0　　　■　　　　L　E　A　R　N　I　N　G　　　A　B　OU　T　　　P　E　R　S　IS　TE　N　CE　



　　　　　　　　　　Class　HashcodeExample　　

　　　　　　　　　　　　　　Public　value　As　Integer　

　　　　　　　　　　　　　　Public　buffer　As　String　



　　　　　　　　　　　　　　Public　Sub　New　（ByVal　val　As　Integer；　ByVal　buf　As　String）　

　　　　　　　　　　　　　　　　　　value　=　val　

　　　　　　　　　　　　　　　　　　buffer　=　buf　

　　　　　　　　　　　　　　End　Sub　

　　　　　　　　　　　　　　Public　Overrides　Function　GetHashCode（）　As　Integer　

　　　　　　　　　　　　　　　　　　Return　New　HashCodeAutomater（）　

　　　　　　　　　　　　　　　　　　　　　　。Append（value）　

　　　　　　　　　　　　　　　　　　　　　　。Append（buffer）。toHashCode（）　

　　　　　　　　　　　　　　End　Function　

　　　　　　　　　　End　Class　



　　　　　　　　　　　　　　　The　implementation　of　HashcodeExample　has　two　data　members：　value　and　buffer。　The　　

　　　　　　　　　　two　data　members　make　up　the　class’s　state。　Not　all　data　members　are　used　when　calculating　　

　　　　　　　　　　a　class　instance’s　hash…code　value。　For　example；　if　HashcodeExample　had　a　data　member　that　　

　　　　　　　　　　referenced　a　database　connection；　it　should　not　be　used　when　calculating　the　hash　code；　because　　

　　　　　　　　　　the　database　connection　is　the　type　used　to　get　the　state　and　does　not　influence　the　state—it　is　　

　　　　　　　　　　a　means　to　an　end。　



　　　　　　　　　　Implementing　Equals（）　



　　　　　　　　　　Once　the　GetHashCode（）　method　has　been　implemented；　the　　Equals（）　method　can　be　　

　　　　　　　　　　implemented：　



　　　　　　　　　　Public　Overrides　Function　Equals（ByVal　obj　As　Object）　As　Boolean　

　　　　　　　　　　　　　　If　TypeOf（obj）　Is　HashCodeExample　Then　

　　　　　　　　　　　　　　　　　　If　obj。GetHashCode（）　=　Me。GetHashCode（）　Then　

　　　　　　　　　　　　　　　　　　　　　　Return　True　

　　　　　　　　　　　　　　　　　　End　If　

　　　　　　　　　　　　　　End　If　

　　　　　　　　　　　　　　Return　False　

　　　　　　　　　　End　Function　



　　　　　　　　　　　　　　　Because　the　rule　for　GetHashCode（）　is　that　two　object　instances　with　identical　hash…code　　

　　　　　　　　　　values　must　return　the　same　value；　it　makes　sense　to　implement　Equals（）　using　GetHashCode（）。　　

　　　　　　　　　　However；　what　started　out　as　a　good　idea　turns　out　to　be　a　bad　idea；　as　the　following　illustrates：　



　　　　　　　　　　　　　　Dim　s1　As　String　=　〃Hello〃　

　　　　　　　　　　　　　　Dim　s2　As　String　=　〃World〃　

　　　　　　　　　　　　　　Dim　x1　As　Integer　=　17　*　17　＋　s1。GetHashCode（）　

　　　　　　　　　　　　　　Dim　x2　As　Integer　=　17　*　17　＋　s2。GetHashCode（）　



　　　　　　　　　　　　　　Dim　h1　As　HashCodeExample　=　New　HashCodeExample　（x2　*　37；　s1）　

　　　　　　　　　　　　　　Dim　h2　As　HashCodeExample　=　New　HashCodeExample　（x1　　*　37；　s2）　


…………………………………………………………Page　305……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CH　A　PT　E　R　　　1　0　　　■　　　　L　E　A　R　N　I　N　G　　　A　B　O　U　T　　P　E　R　S　IS　T　E　N　CE　283　



　　　　Dim　ht　As　Hashtable　=　New　Hashtable（）　

　　　　ht。Add（h1；　Nothing）　

　　　　ht。Add（h2；　Nothing）　



　　　　　This　shows　that　having　two　objects　with　pletely　different　states　results　in　the　same　　

hash…code　value　and　generates　an　exception　because　Equals（）　has　been　implemented　incor

rectly。　In　the　implementation　of　Hashtable；　when　an　added　object　collides　with　another　already　　

existing　object；　an　equality　test　is　made。　If　the　equality　test　returns　True；　then　the　exception　　

is　generated　because　Hashtable　does　not　allow　you　to　add　an　object　with　the　same　state　as　　

another　object。　

　　　　　The　solution　is　not　to　fix　the　GetHashCode（）　method；　but　rather　to　modify　the　Equals（）　method：　



　　　　Public　Overrides　Function　Equals（ByVal　obj　As　Object）　As　Boolean　

　　　　　　　　If　TypeOf　（obj）　Is　HashcodeExample　Then　

　　　　　　　　　　　　If　obj。GetHashCode（）　　Me。GetHashCode（）　Then　

　　　　　　　　　　　　　　　　Return　False　

　　　　　　　　　　　　End　If　



　　　　　　　　　　　　Dim　toTest　As　HashcodeExample　=　

　　　　　　　　　　　　　　DirectCast（obj；　HashcodeExample）　

　　　　　　　　　　　　If　toTest。value　=　Me。value　Then　

　　　　　　　　　　　　　　　　If　toTest。buffer　=　Me。buffer　Then　

　　　　　　　　　　　　　　　　　　　　Return　True　

　　　　　　　　　　　　　　　　End　If　

　　　　　　　　　　　　End　If　

　　　　　　　　End　If　

　　　　　　　　Return　False　

　　　　End　Function　



　　　　　The　logic　of　the　modified　Equals（）　method　is　to　first　test　if　both　types　are　identical。　If　not；　　

then　False　is　returned。　Next；　test　if　GetHashCode（）　returns　unequal　values。　GetHashCode（）　will　　

always　return　different　values　for　objects　that　have　different　data　members。　If　the　hash…code　　

values　are　equal；　then　es　the　hard　work　of　individually　testing　each　data　member　for　equality。　　

The　hard　work　is　delegated　as　the　last　step；　because　any　object　that　reaches　that　point　will　　

probably　be　identical；　but　you　need　to　be　100％　certain。　



The　Important　Stuff　to　Remember