Discussion :

[Marmounet]

Bonsoir,
J'ai créer une première classe toute simple de type

cPoint2D qui a 2 propriétés : X et Y

Je viens de créer une nouvelle classe
cNouvelle qui possède 3 propriété ,

Code :

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

1
2
3
A as single
B as double
Pt as cPoint2D

avec les routines

Code :

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

1
2
3
4
5
6
7
8
Property Get Pt() As cPoint2D
    ' Propriété en lecture
    Pti = mPt
End Property
Property Let Pt(Point As cPoint2D)
    ' Propriété en écriture
    mPt = Point
End Property

C'est içi que réside le pb
Dans un module j'écris

Code :

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

1
2
  dim Nouv as new cNouvelle
  Nouv.Pti.X=2

Pas d'erreur à l'écriture mais si je lance l'exécution
il y a une erreur au retour (dernière ligne) de

Code :

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

1
2
3
4
Property Get Pt() As cPoint2D
    ' Propriété en lecture
    Pti = mPt
End Property

1) Quelqu'un peut il m'explique comment créer un objet contenant un autre objet utilisateur?
2) Dans le même style comment integrer un tableau dans une nouvelle classe d'utilisateur
Merci par avance

[Delbeke]

Il y a une erreur de varialbe dans ton Property get

Code :

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

1
2
3
4
5
Property Get Pt() As cPoint2D
    ' Propriété en lecture
    'Pti = mPt
    Pt = mPt
End Property

Mais çà ne suffira pas à faire fonctionner ton code

On utilise set, au lieu du let pour l'affectation de classes.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Pt as New Nouvelle
Property Get Pt() As cPoint2D
    Set Pt = mPt
End Property
Property Set Pt(Point As cPoint2D)
    ' Propriété en écriture
    Set mPt = Point
End Property

Ensuite dans ton code, il faudra créer une occurence de cPoint2D , tu affectes les deux membres, puis tu donnes l'occurence à manger a ta deuxieme classe

Code :

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

1
2
3
4
5
Dim Pt New cPoint2D
dim Nouv as new cNouvelle
Pt.X = 5
Pt.Y = 2
Set Nouv.Pt = Pt

[Marmounet]

Super ça marche.
Je ne saisi pas bien la différence entre SET et LET
Merci encore pour l'aide

[ProgElecT]

Super ça marche

bouton alors.

[zazaraignée]

Super ça marche.
Je ne saisi pas bien la différence entre SET et LET
Merci encore pour l'aide

On utilise Let pour la déclaration d'une propriété.

Exemple provenant de MSDN (en anglais) :

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
Dim CurrentColor As Integer
Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3
 
' Set the pen color property for a Drawing package.
' The module-level variable CurrentColor is set to
' a numeric value that identifies the color used for drawing.
Property Let PenColor(ColorName As String)
   Select Case ColorName   ' Check color name string.
      Case "Red"
         CurrentColor = RED   ' Assign value for Red.
      Case "Green"
         CurrentColor = GREEN   ' Assign value for Green.
      Case "Blue"
         CurrentColor = BLUE   ' Assign value for Blue.
      Case Else
         CurrentColor = BLACK   ' Assign default value.
   End Select
End Property
 
' The following code sets the PenColor property for a drawing package
' by calling the Property let procedure.
 
PenColor = "Red"

On utilise Set pour affecter une valeur à une propriété. C'est ce qui permet d'affecter une nouvelle valeur à une propriété quand on utilise la classe depuis un autre module ou une autre classe...

Autre exemple provenant aussi de MSDN (en anglais, toujours... puisque je n'ai que cette version et que j'y suis habituée...)

Code :

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

1
2
3
4
' The Pen property may be set to different Pen implementations.
Property Set Pen(P As Object)
   Set CurrentPen = P   ' Assign Pen to object.
End Property

ou encore pour affecter une valeur d'objet à une variable objet. Petit exemple de code (de mon cru, celui-là) d'utilisation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Fenetre As frmDialogue  ' une fenêtre déjà définie lors de la phase de développement
 
Private Sub AfficherDialogueModale()
    Set Fenetre = New frmDialogue
    Fenetre.Capition = "Salut Marmounet !"
    Fenetre. Show mbModal
End Sub
 
Private Sub FermerDialogueModale()
    Fenetre.Hide   ' Masque la fenêtre mais elle reste ouverte
    Unload Fenetre ' Ferme la fenetre masquée
    Set Fenetre = Nothing ' Libère la mémoire
End Sub