Bonsoir.
J’essaie de comprendre les constructeurs.
J'ai créé le code suivant
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 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
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
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
Partager