lispo
Messages postés49Date d'inscriptiondimanche 2 octobre 2005StatutMembreDernière intervention 1 septembre 2008
-
1 juil. 2006 à 12:01
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013
-
1 juil. 2006 à 13:34
Bonjour a tous,
J'essaye de crée une classe mais je rencontre quelques problèmme
quelqu'un pourrait il m'aider
merci d'avance
Voila comment je procede
'''Dans mon Module Class cercle
Private MonRayon As Double
Private Sub Class_Initialize()
MonRayon = 1
End Sub
Public Property Let MonRayon(Valeur As Double)
MonRayon = Valeur
End Property
Public Property Get MonRayon(Valeur As Double)
MonRayon = Valeur
End Property
Public Property Get Air() As Double
Air = 2 * 3.14 * MonRayon
End Property
'''---------------------------------------------------------------------
'''Dans un simple module
Dim MonCercle As AcadCircle
Set cercle1 = New MonCercle
cercle1.Xorigine = Txt.Value
cercle1.draw
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 201823 1 juil. 2006 à 12:35
Salut,
En effet il y a quelques erreurs avec les propriétés, mais donne nous quelques détails supplémentaires. Tu obtiens quoi ? Un message d'erreur ? Rien ?
8<--------------------------------------------------
Private m_MonRayon As Double
Private m_Air As Double
Private Sub Class_Initialize()
m_MonRayon = 1
End Sub
Public Property Let MonRayon(Valeur As Double)
m_MonRayon = Valeur
End Property
Public Property Get MonRayon() As Double
m_MonRayon = MonRayon
End Property
Public Property Get Air() As Double
m_Air = 2 * 3.14 * m_MonRayon
End Property
-------------------------------------------------->8