VB.Net中文教程(6) 母子对象关系

页面导航:首页 > 软件编程 > vb.net > VB.Net中文教程(6) 母子对象关系

VB.Net中文教程(6) 母子对象关系

来源: 作者: 时间:2016-02-05 12:32 【

请注意 ......著作权所有人:物泽计算机事业股份有限公司、 MISOO对象技术顾问团队、对象导向杂志作者、等。u本文件摘自 对
 

请注意 ......
著作权所有人:物泽计算机事业股份有限公司、
              MISOO对象技术顾问团队、对象导向杂志作者、等。
u本文件摘自 对象导向杂志、精通对象观念与技术等书籍著作。
u本文件仅供您的参阅,请遵守著作权法,不得做其它商业用途。


主题:      母子对象关系
 副题:            Whole-Part关系


??????  内容  ??????
v 1. 特殊Whole-Part关系
     ---- 母子对象关系
v 2. 母子对象谁先诞生﹖
v 3. 类别继承与母子对象

 

1. 特殊Whole-Part关系
   ---- 母子对象关系

     大家已经熟悉父子类别关系﹐也就是「继承」关系了。于此说明另一种常见关系── 母子对象。一般称之为「组合/部分」关系。日常生活中﹐处处可见到这种母子对象。例如﹐客厅内有沙发、桌子、椅子等等。客厅是母对象﹐沙发、桌子、椅子是子对象。再如计算机屏幕上的窗口内有按钮、选择表、对话盒等等。窗口是母对象﹐按钮、选择表是子对象。于此将说明如何建立母子对象关系。有了关系﹐母子就能互相沟通了。母子对象之间﹐如何沟通呢﹖也就是说﹐母对象如何呼叫子对象的程序呢﹖反过来﹐子对象如何呼叫母对象的程序呢﹖欲呼叫对方的程序﹐必先与对方建立关系才行。因之﹐如何建立母子对象关系﹐是顶重要之课题﹗
    请先看个例子﹐有两个类别──Room和Desk。若Room代表房间﹐Desk代表房间内的桌子﹐则它们会诞生母子对象﹕

       

通常﹐您会依房间的大小来决定桌子的大小。因之﹐Desk对象应跟Room对象沟通﹐取得房间的大小﹐才决定自己的大小。若有个Room之参考﹐则Desk对象就能跟Room对象沟通了。于是﹐可设计下述VB程序:

ex01.bas
Imports System.ComponentModel
Imports System.Drawing
Imports System.WinForms
----------------------------------------------------
Class Room
    Protected rSize As Double
    Shared motherObject As Room

    Public Sub New()
        motherObject = Me
    End Sub
    Shared Function GetMother() As Room
        GetMother = motherObject
    End Function
    Public Function GetSize() As Double
        GetSize = rSize
    End Function
End Class

Class Desk
    Protected dSize As Double
    Public Sub New()
        dSize = Room.GetMother().GetSize() * 0.18
    End Sub
    Public Function GetSize() As Double
        GetSize = dSize
    End Function
End Class
----------------------------------------------------
Class MyRoom
    Inherits Room
    Private rd As Desk
   
    Public Sub New()
        rSize = 100
        rd = New Desk()
    End Sub
    Public Sub Show()
        MessageBox.Show("Room Size: " + str(rSize))
        MessageBox.Show("Desk Size: " + str(rd.GetSize()))
    End Sub
End Class
----------------------------------------------------
Public Class Form1
    Inherits System.WinForms.Form
   
    Public Sub New()
        MyBase.New()
        Form1 = Me
        This call is required by the Win Form Designer.
        InitializeComponent()
        TODO: Add any initialization after the InitializeComponent() call
    End Sub
    Form overrides dispose to clean up the component list.
    Public Overrides Sub Dispose()
        MyBase.Dispose()
        components.Dispose()
    End Sub
#Region " Windows Form Designer generated code "
     .....
#End Region
    Protected Sub Form1_Click( ByVal sender As Object,
                            ByVal e As System.EventArgs)
        Dim r As New MyRoom()
        r.Show()
    End Sub
End Class

此程序输出:
             Room Size: 100
             Desk Size:  18

Desk类别内之指令──
      Room.GetMother().GetSize()

就是Desk对象与Room对象之沟通了。MyRoom类别有个rd参考﹐指向子对象﹐如下﹕

              

母对象经由rd参考来跟子对象沟通。反过来﹐子对象经由Room.GetMother()参考跟母对象沟通。
2. 母子对象谁先诞生﹖
   
    在VB里﹐有时候子对象比母对象早诞生完成。就像建造房子﹐建到半途﹐改而建造桌子﹐桌子建好了﹐再继续把房子建完成。由于这不太合乎人们的日常生活习惯﹐令人感到困惑﹗在计算机软件上﹐也有类似的冲突。例如﹐在Windows 下﹐母窗口建好了﹐才建立窗内的按钮、选择表等子对象。但VB有时并非如此﹗因之﹐如何化解这冲突﹐是个重要的话题。兹拿上小节的例子来说明吧﹗该例子中﹐其诞生对象之过程为﹕
Step 1: 先诞生母对象。
                         
 Step 2: 接着建立子对象。
                         

这过程合乎人们的习惯﹐是美好的。其原因是﹕MyRoom类别在其建构者New()程序里呼叫Desk的New()诞生Desk子对象。假若您写下述程序﹐就出问题了﹗

ex02.bas
Some error here!
Imports System.ComponentModel
Imports System.Drawing
Imports System.WinForms
----------------------------------------------------
Class Room
    Protected rSize As Double
    Shared motherObject As Room

    Public Sub New()
        motherObject = Me
    End Sub
    Shared Function GetMother() As Room
        GetMother = motherObject
    End Function
    Public Function GetSize() As Double
        GetSize = rSize
    End Function
End Class

Class Desk
    Protected dSize As Double
    Public Sub New()
        dSize = Room.GetMother().GetSize() * 0.18
    End Sub
    Public Function GetSize() As Double
        GetSize = dSize
    End Function
End Class
----------------------------------------------------
Class MyRoom
    Inherits Room
    Private rd As New Desk()
   
    Public Sub New()
        rSize = 100
    End Sub
 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<