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

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