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

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

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