vbnet學(xué)習(xí)筆記(十二)繼承中的構(gòu)造事件共享方法共享事件

例子源碼：/detail/dzweather/5916173 造函數(shù)構(gòu)造函數(shù)不會(huì)有Overridable，Overrides，因?yàn)閷?duì)象都沒(méi)創(chuàng)建，無(wú)法進(jìn)行重寫(xiě)，所以如果使用這兩個(gè)關(guān)鍵寫(xiě)與不寫(xiě)，都不會(huì)影響繼承。類(lèi)的元素繼承來(lái)自基類(lèi)，如果基類(lèi)都構(gòu)造，那么子類(lèi)不可實(shí)際上子類(lèi)構(gòu)造函數(shù)中第一行代碼是調(diào)用的是基類(lèi)的構(gòu)造函數(shù)。這個(gè)必須是第一行，并且只能占用一行。.專(zhuān)業(yè).專(zhuān)注. 如果第一行不是這個(gè)顯式地寫(xiě)出，則在后臺(tái)，動(dòng)顯式寫(xiě)出：無(wú)參在注釋里。(Employee類(lèi)中)[vb]viewplaincopyprint?PublicSubNew()MyBase.New("George")'MyBase.New()Debug.WriteLine("EmployeeConstructor")EndSub參的情況：怎么把參數(shù)帶給上一級(jí)呢?上例中第一行用帶但上例用的是“具體”的參數(shù)值，這叫“硬編碼”，硬編碼方式限制了程序的通用性，可用一些變量來(lái)增加程序的通用性：[vb]viewplaincopyprint?PublicSubNew(ByValnameAsString)MyBase.New(name).專(zhuān)業(yè).專(zhuān)注. Debug.WriteLine("EmployeeConstructor")EndSub [vb]viewplaincopyprint?PublicSubNew(ByValnameAsString)Me.Name=nameDebug.WriteLine("PersonConstructor")EndSub上例中出現(xiàn)了一個(gè)嚴(yán)重的錯(cuò)誤：重寫(xiě)版本在子類(lèi)中，該版本不能使用Employee中Dictionary對(duì)象，只能在執(zhí)行完該類(lèi)的構(gòu)造函造，所以無(wú)法執(zhí)行Employee的構(gòu)造，似乎是個(gè)死為了解決此問(wèn)題，須修改Employee類(lèi)，應(yīng)去掉字段中的New，改為在方法或?qū)傩灾袌?zhí)行。修改如下：.專(zhuān)業(yè).專(zhuān)注. [vb]viewplaincopyprint?PrivatemNamesAsGeneric.Dictionary(OfNameType,String)PublicOverloadsPropertyName(ByValtypeAsNameType)AsStringGetIfmNamesIsNothingThenmNames=NewGeneric.Dictionary(OfNameType,String)ReturnmNames(type)EndGetSet(valueAsString)IfmNamesIsNothingThenmNames=NewGeneric.Dictionary(OfNameType,String)IfmNames.ContainsKey(type)ThenmNames.Item(type)=valueElsemNames.Add(type,value)EndIftype=NameType.normalThenMyBase.Name=valueEndIfIfEndProperty但這樣又引發(fā)了OfficeEmploy中構(gòu)OfficeEmployee，[vb]viewplaincopyprint?PublicSubNew(ByValnameAsString)MyBase.New(name)Debug.WriteLine("OfficeEmployeeConstructor")EndSub因此這三個(gè)繼承鏈上的類(lèi)，構(gòu)造情況如圖：.專(zhuān)業(yè).專(zhuān)注. 因此，繼承鏈上的各類(lèi)構(gòu)造函數(shù)如果帶參數(shù)，須一下構(gòu)造中的流程：將返回子類(lèi)中繼續(xù)構(gòu)造，這時(shí)對(duì)子類(lèi)中的mName進(jìn)行初始化，子類(lèi)完成后，就完成了繼承鏈中上的構(gòu)造。Friend僅用于項(xiàng)目或組件中的代碼ProtectedFriend派生類(lèi)或項(xiàng)目?jī)?nèi)，或者兩者紼可ProtectedFriend—Availabletocodewithinyourproject/componentandclassesthatclasswhetherintheprojectornot.inheritfromthe[vb]viewplaincopyprint?PrivatemIDAsStringProtectedPropertyIdentity()AsStringGetReturnmIDEndGetSet(valueAsString)mID=valueEndSetEndProperty子類(lèi).專(zhuān)業(yè).專(zhuān)注. Employee加：[vb]viewplaincopyprint?PublicPropertyEmployeeNumber()AsIntegerGetReturnCInt(Identity)EndGetSet(valueAsInteger)Identity=valueEndSetEnd可以看到繼承后，在類(lèi)內(nèi)Protected成員的事件在Person類(lèi)添加事件：[vb]viewplaincopyprint?PrivatemNameAsStringPublicEventNameChanged(ByValnewNameAsString)PublicOverridablePropertyName()AsStringGetReturnmNameEndGetSet(valueAsString)mName=valueRaiseEventNameChanged(mName)EndSetEndProperty[vb]viewplaincopyprint?'============Employee類(lèi)PrivatemNamesAsGeneric.Dictionary(OfNameType,.專(zhuān)業(yè).專(zhuān)注. String)PublicOverloadsPropertyName(ByValtypeAsNameType)AsStringGetIfmNamesIsNothingThenmNames=NewGeneric.Dictionary(OfNameType,String)ReturnmNames(type)Set(valueAsString)IfmNamesIsNothingThenmNames=NewGeneric.Dictionary(OfNameType,String)IfmNames.ContainsKey(type)ThenmNames.Item(type)=valuemNames.Add(type,value)Iftype=NameType.normalThenMyBase.Name=valueEndSetEndPropertyPublicOverloadsOverridesPropertyName()AsStringReturnName(NameType.normal)Set(valueAsString)Name(NameType.normal)=valueEndProperty'=============OfficeEmployee類(lèi)ShadowsPropertyName()AsStringReturnMyBase.Name(NameTrmal)GetSet(valueAsString).專(zhuān)業(yè).專(zhuān)注. MyBase.Name=valueEndSetEndProperty主程序中添加接收事件：[vb]viewplaincopyprint?PublicClassForm1PrivateSubbtnOK_Click(senderAsObject,eAsEventArgs)HandlesbtnOK.ClickDimtempAsEmployee=NewofficeEmployee("zheng")AddHandlertemp.NameChanged,AddressOfOnNameChangedWithtemptemp.Name="Fred"EndWithEndSubPrivateSubOnNameChanged(ByValnewNameAsString)MsgBox("NameChanged:"&newName)EndSubEndClass運(yùn)行，執(zhí)行順序如下：可以看到，事件是可以繼承的。結(jié)論：子類(lèi)可以訪問(wèn)其基類(lèi)中的事件，但子類(lèi)中的代碼不能直接用代碼引發(fā)該事件。的RaiseEvent方法來(lái)引用NameChanged事件。(盡管.專(zhuān)業(yè).專(zhuān)注. [vb]viewplaincopyprint?PrivatemSalaryAsDoublePublicPropertySalary()AsDoubleGetReturnmSalarymSalary=valueEndGetSet(valueAsDouble)'RaiseEventDataChanged("Salary",value)'出錯(cuò)，子類(lèi)不能直接用語(yǔ)句引發(fā)基類(lèi)事件EndSetEndProperty但，可用Protected把該語(yǔ)句包裝成方法后，供后面子類(lèi)調(diào)用該方法，從而間接激發(fā)：[vb]viewplaincopyprint?'==========基類(lèi)Person用Protected方法來(lái)包裝RaiseEvent================ProtectedSubOnDataChanged(ByValfieldAsString,ByValvalueAsObject)DataChanged(field,value)Event發(fā)事件==================Salary()AsDoubleGetmSalaryEndGetPublicPropertySet(valueAs.專(zhuān)業(yè).專(zhuān)注. Double)mSalary=value'RaiseEventDataChanged("Salary",value)'子類(lèi)不能直接用語(yǔ)句引發(fā)基類(lèi)事件OnDataChanged("Salary",value)EndSetEndProperty這樣，在子程序分別定義好接收事件，并關(guān)聯(lián)好事件：[vb]viewplaincopyprint?PublicClassForm1PrivateSubbtnOK_Click(senderAsObject,eAsEventArgs)HandlesbtnOK.ClickDimtempAsEmployee=NewofficeEmployee("zheng")AddHandlertemp.NameChanged,AddressOfOnNameChangedAddHandlertemp.DataChanged,AddressOfOnDataChanged'關(guān)聯(lián)到事件temp.Name="Fred"temp.Salary=300EndSubPrivateSubOnNameChanged(ByValnewNameAsString)MsgBox("NameChanged:"&newName)EndSubProtectedSubOnDataChanged(ByValfieldAsString,ByValnewValueAsObject)'事件處理MsgBox("New"&field&":"&CStr(newValue))EndSubEndClass注意的是主程序中接收事件OnDataChanged與類(lèi)中的.專(zhuān)業(yè).專(zhuān)注. OnDateChanged是不一樣的。ted就被加載到內(nèi)存中的方法，在整個(gè)運(yùn)行過(guò)程中保持不變，重寫(xiě)。但非共享方法是在對(duì)象實(shí)例化時(shí)才單獨(dú)申請(qǐng)內(nèi)存空間，為每一個(gè)實(shí)例分配獨(dú)立的運(yùn)行內(nèi)存，因而可以重實(shí)例化)時(shí)就產(chǎn)生，且固定了內(nèi)存位置，而非共享方法是對(duì)象實(shí)例化時(shí)再分配內(nèi)存空間，其內(nèi)存的地址是隨即產(chǎn)生，無(wú)法定法，就是共享被繼承，也可以被重載或隱藏，但不能重寫(xiě)??！下例用類(lèi)名調(diào)用共享比較方法：[vb]viewplaincopyprint?'==============Person類(lèi)中的共享方法，添加代碼=====================PublicSharedFunctionCompare(ByValperson1AsPerson,ByValperson2AsPerson)AsBooleanReturn.專(zhuān)業(yè).專(zhuān)注. person1.Name=person2.NameEndFunction'==============主程序中調(diào)用程序===================PrivateSubbtnOK_Click(senderAsObject,eAsEventArgs)HandlesbtnOK.ClickEmployee("Fred")Employee("Mary")Dimemp1AsNewDimemp2AsNewMsgBox(Person.Compare(emp1,emp2))'繼承共享方法EndSub繼承與重載共享方法載(類(lèi)型不一樣)：[vb]viewplaincopyprint?'==============Employee類(lèi)中重載共享方法=====================PublicOverloadsSharedFunctionCompare(ByValemployee1AsEmployee,ByValemployee2AsEmployee)AsBooleanReturnemployee1.EmployeeNumber=employee2.EmployeeNumberEndFunction'==============主程序中調(diào)用程序==========PrivateSubbtnOK_Click(senderAsObject,eAsEventArgs)HandlesbtnOK.ClickEmployee("Fred")Dimemp1AsNewDimemp2AsNew.專(zhuān)業(yè).專(zhuān)注. Employee("Mary")emp1.EmployeeNumber=1emp2.EmployeeNumber=1MsgBox(Person.Co