Bonjour,
J'ai essayé de faire une classe Forme et une classe Cercle qui contient des propriétés comune à Forme (la couleur) mais qui en contient des propriétés pour cercle seulement (le rayon)
J'ai ce code pour la classe cForme :
J'ai ce code pour la classe cCercle :
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 Option Compare Database Option Explicit Private vCouleur As String Public Sub AfficherProprietes() MsgBox Couleur End Sub Public Property Get Couleur() As String Couleur = vCouleur End Property Public Property Let Couleur(ByVal NouvelleValeur As String) vCouleur = NouvelleValeur End Property
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 Implements cFormes Private vRayon As Integer Private Sub cFormes_AfficherProprietes() MsgBox cFormes_Couleur & " " & Rayon End Sub Private Property Get cFormes_Couleur() As String cFormes_Couleur = cFormes.Couleur End Property Private Property Let cFormes_Couleur(ByVal NouvelleValeur As String) cFormes.Couleur = NouvelleValeur End Property Friend Property Get Rayon() As String Rayon = vRayon End Property Friend Property Let Rayon(ByVal NouvelleValeur As String) vRayon = NouvelleValeur End Property
Et puis j'ai ce code sur un bouton d'un formulaire :
J'ai l'erreur : "Variable objet ou variable de blox With non définie"
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 Private Sub Commande0_Click() Dim UneForme As cFormes Set UneForme = New cFormes UneForme.Couleur = "rouge" UneForme.AfficherProprietes Dim UnRond As cCercle Set UnRond = New cCercle UnRond.Rayon = 25 Dim UnCercle As cFormes Set UnCercle = New cCercle UnCercle.Couleur = "vert" UnCercle.AfficherProprietes End Sub
à ces lignes :
Quelqu'un peut m'aider?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3UnCercle.Couleur = "vert" UnCercle.AfficherProprietes
Partager