46 lines
1.5 KiB
VB.net
46 lines
1.5 KiB
VB.net
|
'------------------------------------------------------------------------------
|
||
|
|
' <auto-generated>
|
||
|
|
' This code was generated from a template.
|
||
|
|
'
|
||
|
|
' Manual changes to this file may cause unexpected behavior in your application.
|
||
|
|
' Manual changes to this file will be overwritten if the code is regenerated.
|
||
|
|
' </auto-generated>
|
||
|
|
'------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
Imports System
|
||
|
|
Imports System.Collections.Generic
|
||
|
|
|
||
|
|
Namespace AdvancedPatternsVB
|
||
|
|
|
||
|
|
Partial Public Class BuildingMf
|
||
|
|
Public Property BuildingId As System.Guid
|
||
|
|
Public Property Name As String
|
||
|
|
Friend Property Value As Decimal
|
||
|
|
|
||
|
|
|
||
|
|
Private _Address As AddressMf = New AddressMf
|
||
|
|
Friend Property Address As AddressMf
|
||
|
|
Get
|
||
|
|
Return _Address
|
||
|
|
End Get
|
||
|
|
Private Set(ByVal value As AddressMf)
|
||
|
|
_Address = value
|
||
|
|
End Set
|
||
|
|
End Property
|
||
|
|
|
||
|
|
Public Overridable Property Offices As ICollection(Of OfficeMf) = New HashSet(Of OfficeMf)
|
||
|
|
|
||
|
|
Private _MailRooms As ICollection(Of MailRoomMf) = New HashSet(Of MailRoomMf)
|
||
|
|
Friend Property MailRooms As ICollection(Of MailRoomMf)
|
||
|
|
Get
|
||
|
|
Return _MailRooms
|
||
|
|
End Get
|
||
|
|
Private Set(ByVal value As ICollection(Of MailRoomMf))
|
||
|
|
_MailRooms = value
|
||
|
|
End Set
|
||
|
|
End Property
|
||
|
|
|
||
|
|
End Class
|
||
|
|
|
||
|
|
End Namespace
|