Bonjour à tous les 2
en complément de la réponse de Jordane
Class Personne
Public Sub New(ByVal MonNom As String, ByVal MonPrenom As String, ByVal MaDateNaissance As Date)
Nom = MonNom
Prenom = MonPrenom
DateNaissance = MaDateNaissance
End Sub
Private leprenom As String
Public Property Prenom() As String
Get
Return leprenom
End Get
Private Set(ByVal value As String)
leprenom = value
End Set
End Property
Private lenom As String
Public Property Nom() As String
Get
Return lenom
End Get
Set(ByVal value As String)
lenom = value
End Set
End Property
Public Property DateNaissance() As Date
End Class
On peut passer des paramètres à la classe mère de cette façon
Class Client
Inherits Personne
Public Sub New(ByVal Nom As String, ByVal Prenom As String, ByVal Naissance As Date, ByVal LeNumeroClient As Integer)
MyBase.New(Nom,Prenom,Naissance)
NumeroClient = LeNumeroClient
End Sub
Public Property NumeroClient() As Integer
End Class