Discussion :

[stracoma]

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

[nek_kro_kvlt]

Je suis pas sur de comprendre, mais peut etre tu veux utiliser des getters / setters pour hauteur, example:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
private _hauteur
Public Property Hauteur() As Integer
	Get
	    Return _hauteur
	End Get
	Set(ByVal value As Integer)
	    _hauteur = value +3
	End Set
    End Property

[stracoma]

Non je ne parle pas des geters et seters.
sans passer par le constructeur de recopie je cherche ceci (est ce possible?):

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
        Dim rect3 As New Rectangle
        rect1.affiche() ' doit afficher: 10 ==== 20
        rect2.affiche() ' doit afficher: 13 ==== 26
        rect3.affiche() ' doit afficher: 16 ==== 32
 
        Console.ReadKey()
 
    End Sub
 
End Module

Donc après chaque création d'un objet on rajoute 3 à la hauteur et 6 à la largeur

[MABROUKI]

bonjour
Tout est possible,le tout est de definer avec precision ce qu'on veut ...
Ce comportement curieux de ton shape Rectangle (s'il a une utilite concrete) peut etre implemente par un class avec un compteur d'instance ( = les objets "representant" du class en OOP ) comme ceci:
code .vb du class revu et renomme (pour eviter la confusion avec le class Rectangle de l'API gdi .net):

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Public Class ShapeRectangle
    'maxi instance autorise
    Private Const MaxInstance = 3
    ' compteur d'instance 
    Private Shared countInstance As Integer = 0
    Public Sub New()
 
        If countInstance < MaxInstance Then
            Me.heightValue = 10 + countInstance * 3
            Me.widthValue = 20 + countInstance * 6
            ' maj du cpteur d'instance
            countInstance += 1
        Else
            'reset du compteur
            countInstance = 0
            Me.heightValue = 10 + countInstance * 3
            Me.widthValue = 20 + countInstance * 6
        End If
 
    End Sub
    Private heightValue As Double
    Public ReadOnly Property Height As Double
        Get
            Return heightValue
        End Get
    End Property
    Private widthValue As Double
    Public ReadOnly Property Width As Double
        Get
            Return widthValue
        End Get
 
    End Property
 
 
    Public Function AfficheHeightWidth()
        Return "H : " & Me.Height.ToString & " ============ W : " & Me.Width.ToString
    End Function
End Class

code du form utilisateur(1 button+2 textbox):

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
17
18
 
Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rect1 As New ShapeRectangle
        Dim rect2 As New ShapeRectangle()
        Dim rect3 As New ShapeRectangle()
        TextBox1.Text = rect1.AfficheHeightWidth() + Environment.NewLine +
            rect2.AfficheHeightWidth + Environment.NewLine +
            rect3.AfficheHeightWidth
 
        Dim rect4 As New ShapeRectangle
        TextBox2.Text = rect4.AfficheHeightWidth() 
 
 
    End Sub
End Class

bon code....

[stracoma]

Merci MABROUKI de votre réponse. Vous êtes allés trop loin dans votre code, mais vous m'avez filé l'idée

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
Public Class Rectangle
    Public hauteur As Double
    Public largeur As Double
    Public Shared N As Integer = 0
    Public Shared M As Integer = 0
    Public Sub New()
        Me.hauteur = 10 + N
        Me.largeur = 20 + M
        N += 3
        M += 6
    End Sub
    Public Sub affiche()
        Console.WriteLine(Me.hauteur & " ============== " & Me.largeur)
    End Sub
End Class

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Module Module1
 
    Sub Main()
        Dim rect1 As New Rectangle
        Dim rect2 As New Rectangle
        Dim rect3 As New Rectangle
        rect1.affiche()
        rect2.affiche()
        rect3.affiche()
        Console.ReadKey()
 
    End Sub
 
End Module

un code inutile pour certains est peut être crucial pour d'autres
Une autre fois merci