1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| Public Class Adresse
Public Property Id As Integer
Public Property Pays As Pays
Public Property Zip As Zip
Public Property Rue As String
Public Property Num As String
Public Property Box As String
Public Property TypeAdresse As TypeAdresse
Public Sub New(ByVal id As Integer, ByVal pays As Pays, ByVal zip As Zip, ByVal rue As String, _
ByVal num As String, ByVal box As String, ByVal type As TypeAdresse)
Me.Id = id
Me.Pays = pays
Me.Zip = zip
Me.Rue = rue
Me.Num = num
Me.Box = box
Me.TypeAdresse = type
End Sub
End Class
Public Class TypeAdresse
Public Property Id As Integer
Public Property Name As String
Public Sub New(ByVal id As Integer, ByVal name As String)
Me.Id = id
Me.Name = name
End Sub
End Class
Public Class Zip
Public Property Id As Integer
Public Property Code As String
Public Property Name As String
Public Property Pays As Pays
Public Sub New(ByVal id As Integer, ByVal code As String, ByVal name As String, ByVal pays As Pays)
Me.Id = id
Me.Code = code
Me.Name = name
Me.Pays = pays
End Sub
End Class |
Partager