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

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

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

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

Me.Create() End Sub........也能写为:Class MyRoom Inherits Room Private rd As Desk

 

 

Me.Create()

   End Sub

........

 

也能写为:

Class MyRoom

   Inherits Room

   Private rd As Desk

  

   Public Sub New()

       rd = New Desk()

       Me.Create()

   End Sub

........

 

只要确保Desk类别的指令──

     dSize = Room.GetMother().GetSize() * 0.18

 

是在MyRoom类别的指令──

     rSize = 100

 

之后执行即可了。

   上述的子对象是透过Shared 程序来取得母对象的参考值﹐然后才跟母对象沟通。如果不透过Shared程序,也可以采取下述方法:

 

ex04.bas

Imports System.ComponentModel

Imports System.Drawing

Imports System.WinForms

----------------------------------------------------

Class Room

   Protected rSize As Double

  

   Public Overridable Sub Create()

   End Sub

   Public Function GetSize() As Double

       GetSize = rSize

   End Function

End Class

 

Class Desk

   Protected dSize As Double

   Protected myMother As Room

  

   Public Sub Create(ByVal mo As Room)

       myMother = mo

       dSize = myMother.GetSize() * 0.18

   End Sub

   Public Function GetSize() As Double

       GetSize = dSize

Tags:

文章评论

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

<