Classes dans VB6

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:

---

1 2 3

A as single B as double Pt as cPoint2D

---

avec les routines

Code:

---

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:

---

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:

---

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

Il y a une erreur de varialbe dans ton Property get

Code:

---

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:

---

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:

---

1 2 3 4 5

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

---

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

Citation:

---

Super ça marche

---

bouton :resolu: alors.

Citation:

---

Envoyé par Marmounet

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:

---

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:

---

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:

---

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

---