Bonsoir.
J’essaie de comprendre les constructeurs.
J'ai créé le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class Rectangle
    Public hauteur As Double
    Public largeur As Double
 
    Public Sub New()
        Me.hauteur = 10
        Me.largeur = 20
    End Sub
    Public Sub New(ByVal R As Rectangle)
        Me.hauteur = R.hauteur + 3
        Me.largeur = R.largeur + 6
    End Sub
    Public Sub affiche()
        Console.WriteLine(Me.hauteur & " ============ " & Me.largeur)
    End Sub
End Class
comme vous voyez après chaque rectangle que je crée par copie, j'ajoute 3 à la hauteur et 6 à la largeur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Module Module1
 
    Sub Main()
 
        Dim rect1 As New Rectangle
        Dim rect2 As New Rectangle(rect1)
        Dim rect3 As New Rectangle(rect2)
        rect1.affiche()
        rect2.affiche()
        rect3.affiche()
 
        Console.ReadKey()
 
    End Sub
 
End Module
peut on faire la même chose sans passer par le constructeur de recopie. C'est à dire en ajoutant une instruction dans le constructeur par défaut