VB.net学习笔记(十二)继承中的构造、事件、共享方法、共享事件

前端之家收集整理的这篇文章主要介绍了VB.net学习笔记(十二)继承中的构造、事件、共享方法、共享事件前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。


例子源码:http://download.csdn.net/detail/dzweather/5916173

(复习备用)




一、构造函数


继承对构造函数方法的影响与对常规方法的影响不同。


1、不带参的构造函数

用New来创建构造函数。它于创建对象时才运行一次。

构造函数不会有Overridable,Overrides,因为对象都没创建,无法进行重写,所以如果使用这两个关键字会产生语法错误


所有不带参数的构造函数,写与不写,都不会影响继承。



2、带参的构造函数

带参的构造函数,在继承中变得复杂。因为子类的元素继承来自基类,如果基类都构造,那么子类不可能产生。


先看一下无参时:

实际上子类构造函数中第一行代码调用的是基类的构造函数

这个必须是第一行,并且只能占用一行。

如果第一行不是这个显式地写出,则在后台,VB.net会插入一个对父类构造函数的有效调用。下例是手动显式写出:

无参在注释里。(Employee类中)

   Public Sub New()
        MyBase.New("George") 'MyBase.New()
        Debug.WriteLine("Employee Constructor")
    End Sub

构造函数也称ctor,在ILDASM或.NET Reflector工具中经常用到这个术语。


在继承链中,每个构造函数总将调用MyBase.New作为第一行,以保证本类的上一级得到有效的构造。


再结合看一下带参的情况:

怎么把参数带给上一级呢? 上例中第一行用带参方法向上一级。使得上一级能正确使用参数构造。

但上例用的是“具体”的参数值,这叫“硬编码”,硬编码方式限制了程序的通用性,可用一些变量来增加程序的通用性:

   Public Sub New(ByVal name As String)
        MyBase.New(name)
        Debug.WriteLine("Employee Constructor")
    End Sub
(上例Employee类中)


配合子类Employee传来的name参数,基类Person的构造函数如下:

    Public Sub New(ByVal name As String)
        Me.Name = name
        Debug.WriteLine("Person Constructor")
    End Sub

这样就完成了带参数函数的匹配。


但上例中出现了一个严重的错误

Person中的Name属性被子类Employee重写且重载了。上面调用的是重写版本。

重写版本在子类中,该版本不能使用Dictionary!!!

因为类中任何使用New语句声明的成员变量,如Employee中Dictionary对象,只能在执行完该类的构造函数后,才会被初始化。


这时正在执行Person的构造,所以无法执行Employee的构造,似乎是个死结。。。。

为了解决此问题,须修改Employee类,应去掉字段中的New,改为在方法属性中执行。

修改如下:

    Private mNames As Generic.Dictionary(Of NameType,String)

    Public Overloads Property Name(ByVal type As NameType) As String
        Get
            If mNames Is Nothing Then mNames = New Generic.Dictionary(Of NameType,String)
            Return mNames(type)
        End Get
        Set(value As String)
            If mNames Is Nothing Then mNames = New Generic.Dictionary(Of NameType,String)
            If mNames.ContainsKey(type) Then
                mNames.Item(type) = value
            Else
                mNames.Add(type,value)
            End If
            If type = NameType.normal Then
                MyBase.Name = value
            End If
        End Set
    End Property


但这样又引发了OfficeEmploy中构造的错误,因为Employe中的参数name也要来自它的子类OfficeEmployee,

故OfficeEmployee的构造函数

    Public Sub New(ByVal name As String)
        MyBase.New(name)
        Debug.WriteLine("OfficeEmployee Constructor")
    End Sub


因此这三个继承链上的类,构造情况如图:



因此,继承链上的各类构造函数如果带参数,须仔细考虑上下级类的构造函数带参情况。


仔细看一下构造中的流程:


子类custom进入构造时,将调用父类Peron的构造,构造中会对New进行初始化,所以对mName初始化。父类构造完成后

将返回子类中继续构造,这时对子类中的mName进行初始化,子类完成后,就完成了继承链中上的构造。








二、Protected


Protected是Pulic与Private的混合品种,对类外它Private,对类内(继承链)它是Public。


Friend 仅用于项目或组件中的代码

Protected Friend 派生类或项目内,或者两者绋可

Protected Friend—Available to code within your project/component and classes thatinherit from the class whether in the project or not.


下面在Person增加如下Protected成员:

    Private mID As String
    Protected Property Identity() As String
        Get
            Return mID
        End Get
        Set(value As String)
            mID = value
        End Set
    End Property


子类Employee添加

    Public Property EmployeeNumber() As Integer
        Get
            Return CInt(Identity)
        End Get
        Set(value As Integer)
            Identity = value
        End Set
    End Property
可以看到继承后,在类内Protected成员可以象Public那样直接使用。

Protected对类外的对象是不可见的,因此很好完成封装效果控制。








三、继承中的事件


在 Person类添加事件:

    Private mName As String

    Public Event NameChanged(ByVal newName As String)

    Public Overridable Property Name() As String
        Get
            Return mName
        End Get
        Set(value As String)
            mName = value
            RaiseEvent NameChanged(mName)
        End Set
    End Property


Employ类及OfficeEmployee类的Name属性

'============Employee类中Name属性代码=================

    Private mNames As Generic.Dictionary(Of NameType,value)
            End If
            If type = NameType.normal Then
                MyBase.Name = value
            End If
        End Set
    End Property

    Public Overloads Overrides Property Name() As String
        Get
            Return Name(NameType.normal)
        End Get
        Set(value As String)
            Name(NameType.normal) = value
        End Set
    End Property

'=============OfficeEmployee类中Name属性代码============

    Public Shadows Property Name() As String
        Get
            Return MyBase.Name(NameType.informal)
        End Get
        Set(value As String)
            MyBase.Name = value
        End Set
    End Property


主程序中添加接收事件:
Public Class Form1
    Private Sub btnOK_Click(sender As Object,e As EventArgs) Handles btnOK.Click
        Dim temp As Employee = New officeEmployee("zheng")

        AddHandler temp.NameChanged,AddressOf OnNameChanged
        With temp
            temp.Name = "Fred"
        End With
    End Sub

    Private Sub OnNameChanged(ByVal newName As String)
        MsgBox("Name Changed:" & newName)
    End Sub
End Class

运行,执行顺序如下:



可以看到,事件是可以继承的。


结论:

子类可以访问其基类中的事件,但子类中的代码不能直接用代码引发该事件

上例中不能用Employee或OfficeEmployee中的RaiseEvent方法来引用NameChanged事件。(尽管Person中定义事件为Public),只有Person才能用RaiseEvent引发本类定义的事件。


下例是Employee中用RaseEvent使用Person中的事件,将出错:

    Private mSalary As Double
    Public Property Salary() As Double
        Get
            Return mSalary
        End Get
        Set(value As Double)
            mSalary = value
            'RaiseEvent DataChanged("Salary",value) '出错,子类不能直接用语句引发基类事件
        End Set
    End Property


但,可用Protected把该语句包装成方法后,供后面子类调用方法,从而间接激发:

'==========基类Person用Protected方法来包装RaiseEvent================
    Protected Sub OnDataChanged(ByVal field As String,ByVal value As Object)
        RaiseEvent DataChanged(field,value)
    End Sub


'==========子类Employee中用调用方法的形式间接激发事件==================
    Public Property Salary() As Double
        Get
            Return mSalary
        End Get
        Set(value As Double)
            mSalary = value
            'RaiseEvent DataChanged("Salary",value) '子类不能直接用语句引发基类事件
            OnDataChanged("Salary",value)
        End Set
    End Property


这样,在子程序分别定义好接收事件,并关联好事件:

Public Class Form1

    Private Sub btnOK_Click(sender As Object,AddressOf OnNameChanged
        AddHandler temp.DataChanged,AddressOf OnDataChanged '关联到事件
        temp.Name = "Fred"
        temp.Salary = 300
    End Sub

    Private Sub OnNameChanged(ByVal newName As String)
        MsgBox("Name Changed:" & newName)
    End Sub

    Protected Sub OnDataChanged(ByVal field As String,ByVal newValue As Object) '事件处理
        MsgBox("New  " & field & ": " & CStr(newValue))
    End Sub

End Class
注意的是主程序中接收事件OnDataChanged与类中的OnDateChanged是不一样的。

因为类中的是Protected它只能在类内使用,不能对外。









四、共享方法


共享方法是类在加载时就被加载到内存中的方法,在整个运行过程中保持不变,因而不能重写。

但非共享方法是在对象实例化时才单独申请内存空间,为每一个实例分配独立的运行内存,因而可以重写。


同时注意到共享方法是类加载(而不是对象实例化)时就产生,且固定了内存位置,而非共享方法是对象实例化时再

分配内存空间,其内存的地址是随即产生,无法定向,所以共享方法不能访问非共享方法。按照C++的说法,就是共享

方法是没有This指针的。


共享方法可以被继承,也可以被重载或隐藏,但不能重写!!

下例用类名调用共享比较方法

'==============Person类中的共享方法添加代码=====================
    Public Shared Function Compare(ByVal person1 As Person,ByVal person2 As Person) As Boolean
        Return person1.Name = person2.Name
    End Function

'==============主程序中调用程序===================
    Private Sub btnOK_Click(sender As Object,e As EventArgs) Handles btnOK.Click
        Dim emp1 As New Employee("Fred")
        Dim emp2 As New Employee("Mary")
        MsgBox(Person.Compare(emp1,emp2)) '继承共享方法
    End Sub



继承与重载共享方法

继续添加,以便共享方法在子类Employee中重载(类型不一样):

'==============Employee类中重载共享方法=====================
    Public Overloads Shared Function Compare(ByVal employee1 As Employee,ByVal employee2 As Employee) As Boolean
        Return employee1.EmployeeNumber = employee2.EmployeeNumber
    End Function

'==============主程序中调用程序==========
    Private Sub btnOK_Click(sender As Object,e As EventArgs) Handles btnOK.Click
        Dim emp1 As New Employee("Fred")
        Dim emp2 As New Employee("Mary")
        emp1.EmployeeNumber = 1
        emp2.EmployeeNumber = 1
        MsgBox(Person.Compare(emp1,emp2)) '继承共享方法
        MsgBox(Employee.Compare(emp1,emp2)) '重载比较
    End Sub

显示为:False、True。因为第一个调用的Person版本的比较,第二调用的是Employee版本的比较。

如果上面重载方法移动至OfficeEmploy中时,显示结果将是:False,False

因为它们两个都会调用Person中的Compare方法,所以结果一样。




隐藏共享方法

虽然不能重写,但可隐藏,在OfficeEmployee中定义一个与父类Employee方法签名一样的共享方法

'==============OfficeEmploy类中隐藏共享方法=====================
    Public Shared Shadows Function Compare(ByVal person1 As Person,ByVal person2 As Person) As Boolean
        Return person1.Age = person2.Age
    End Function

'==============主程序中调用程序==========
    Private Sub btnOK_Click(sender As Object,e As EventArgs) Handles btnOK.Click
        Dim emp1 As New Employee("Fred")
        Dim emp2 As New Employee("Mary")
        emp1.Age = 25
        emp2.Age = 20
        MsgBox(officeEmployee.Compare(emp1,emp2))
    End Sub
结果:显示False

尽管对象是Employee,例共享方法是通过类名调用,这里用的是OfficeEmployee,故用它的共享方法

虽然它也继承了上一级Employee的共享方法,但因隐藏原因,将使用本类的共享方法








五、共享事件


1、共享事件可以被继承。象前面事件一样。

2、同理子类中不能用RaiseEvent来引发父类的共享事件。只能象前面一样用Protected包装后,调用方法间接引发。

原文链接:https://www.f2er.com/vb/258624.html

猜你在找的VB相关文章