《VB2008从入门到精通(PDF格式英文版)》第116章

would　instantiate　the　delegate　with　the　method　and　call　Iterate（）；　as　follows：　
Iterator。Iterate（lst；　New　ProcessValue（ProcessRunningTotal））　
。　。　。　
Iterator。Iterate（lst；　New　ProcessValue（ProcessMaximumValue））　
The　code　that　wants　to　automatically　iterate　code　must　provide　only　a　delegate　imple
mentation。
Implementing　Methods　That　Match　the　Delegate　
Implementing　methods　that　match　a　delegate　is　straightforward　in　that　you　need　to　declare
only　a　method　in　a　class　that　has　the　same　method　signature。　This　can　be　implemented　using
a　shared　method　or　an　instance　method；　it　does　not　matter。　The　following　code　demonstrates
methods　that　match　the　ProcessValue　delegate’s　signature　using　both　types　of　methods。　
Class　DelegateImplementations
Private　Sub　InstanceProcess（ByVal　value　As　Integer）　
End　Sub　
Private　Shared　Sub　SharedProcess（ByVal　value　As　Integer）　
End　Sub　
End　Class　
In　the　example；　the　InstanceProcess（）　and　SharedProcess（）　methods　match　the　signature
of　the　delegate　ProcessValue。　If　you　have　two　delegates　with　identical　parameter　and　return
type　signatures；　then　a　method　with　the　same　signature　can　be　used　for　either　delegate　definition。
The　following　shows　how　to　have　the　methods　be　recognized　as　a　delegate。　
…………………………………………………………Page　264……………………………………………………………
242 CH　AP　T　E　R 9 ■ L　E　A　R　N　IN　G AB　OU　T L　I　ST　S； D　E　L　E　G　A　T　E　S； A　N　D L　A　M　B　DA E　X　P　R　E　S　SI　ON　S
Dim　instanceMethod　As　New　ProcessValue（AddressOf　InstanceProcess）　
Dim　sharedMethod　As　New　ProcessValue（AddressOf　SharedProcess）　
These　two　lines　instantiate　the　delegate　using　the　New　keyword；　and　each　instantiation　has
a　single　constructor　parameter；　which　is　the　method　to　associate　with　the　delegate　instance。
Now　let’s　look　at　the　running　total　and　maximum　value　example　and　see　the　methods　that
will　be　wrapped　up　by　delegates。　
Module　Tests　
Private　_maxValue　As　Integer　
Private　_runningTotal　As　Integer　
Private　Sub　ProcessMaximumValue（ByVal　value　As　Integer）　
If　（value　》　Tests。_maxValue）　Then　
_maxValue　=　value　
End　If　
End　Sub　
Private　Sub　ProcessRunningTotal（ByVal　value　As　Integer）　
_runningTotal　=　_runningTotal　＋　value　
End　Sub　
End　Module　
The　ProcessMaximumValue（）　and ProcessRunningTotal（）　methods　both　have　the　same
signatures　as　ProcessValue；　and　therefore　are　delegate　candidates。　In　each　delegate　implemen
tation；　the　running　total　is　calculated　or　the　maximum　value　is　found。　The　following　code　uses
the　delegates。　
Public　Sub　RunAll（）　
Dim　lst　As　New　List（Of　Integer）（）　
lst。Add（1）　
lst。Add（2）　
lst。Add（3）　
lst。Add（4）　
_runningTotal　=　0　
Iterator。Iterate（lst；　New　ProcessValue（AddressOf　ProcessRunningTotal））　
Console。WriteLine（（〃Running　total　is　（〃　&　_runningTotal　&　〃）〃））　
_maxValue　=　Integer。MinValue　
Iterator。Iterate（lst；　New　ProcessValue（AddressOf　ProcessMaximumValue））　
Console。WriteLine（（〃Maximum　value　is　（〃　&　_maxValue　&　〃）〃））　
End　Sub　
In　the　example；　the　RunAll（）　method　instantiates　and　assigns　lst。　Then　to　iterate　the　indi
vidual　elements；　the Iterator。Iterate（）　method　is　called　with　lst　and　the
ProcessRunningTotal（）　method。　After　having　calculated　and　presented　the　running　total；　the
maximum　value　is　calculated　and　displayed。
…………………………………………………………Page　265……………………………………………………………
C　HA　P　TE　R 9 ■ L　E　AR　N　I　N　G A　B　O　U　T L　I　ST　S； DE　L　E　G　AT　E　S　； AN　D L　A　M　B　D　A E　X　PR　E　SSI　O　N　S 243　
The　delegate　solution　is　more　pact　than　the　previous　abstract　base　class　solution。　The
big　advantage　is　the　ability　to　solve　a　problem　using　a　smaller；　piecemeal　approach。　It　is　not
hard　to　implement　a　delegate；　and　it　is　not　hard　to　use　a　delegate。　
Understanding　Lambda　Expressions　
Lambda　expressions　are　an　extension　of　delegates；　but　solve　a　specific　problem。　Let’s　take　the
example　of　calculating　sales　tax。　Sales　tax　in　general　is　a　simple　calculation　in　that　you　take　the
total　amount；　multiply　it　by　the　sales　tax；　and　add　the　result　to　the　amount。　This　gives　you　the
total　a　customer　must　pay。　Calculating　a　sales　tax　is　not　difficult；　but　it　is　something　that　would
be　nice　to　encapsulate　into　a　small　piece　of　functionality。　Thus；　calculating　sales　tax　is　an　excel
lent　use　of　lambda　expressions。　
A　lambda　expression　is　declared　as　a　Function　that　has　a　single　expression　as　a　body。　Following
is　the　declaration　of　a　lambda　expression。
Dim　calculate　=　Function（tax　As　Double；　amount　As　Double）　（tax　*　amount）　＋　amount　
The　lambda　expression　is　declared　as　a　function　without　a　return　type。　The　code　after　the
brackets　is　a　single　expression　that　uses　the　parameters　to　perform　some　action。　In　the　example；
that　single　expression　is　the　calculation　of　the　sales　tax　that　is　added　to　the　amount　to　generate
a　new　total。　
The　lambda　expression　could　be　used　as　follows：　
Console。WriteLine（〃Tax　（〃　&　calculate（0。1；　100）　&　〃）〃）　
The　calculate　lambda　expression　is　called　with　two　numbers　that　are　of　type　Double；　which
generates　an　expression　similar　to　this：　
Function　sdfsdfsdf（tax　As　Double；　amount　As　Double）　As　Double　
Return　（tax　*　amount）　＋　amount　
End　Fun