cs_Cameleon69
Messages postés98Date d'inscriptionlundi 31 décembre 2001StatutMembreDernière intervention 7 août 20052 10 déc. 2003 à 15:29
Cela permet de travailler sur des éléments en objet, comme pour les controles.
Cela permet de simplifier le code et de réutiliser cette classe dans un autre projet.
Dans mon cas une collection ou un tableau aurait peut-être suffit mais je voulais faire un essais avec les classes pour avoir une idée de ce que cela pouvait donner.
Merci pour la simplification Xya.
Xya
Messages postés103Date d'inscriptionlundi 8 juillet 2002StatutMembreDernière intervention24 novembre 2005 10 déc. 2003 à 14:46
C'est pas mal du tout, tu pourrais juste simplifier un peu Activities.Add:
Ta fonction Add demande un paramètre (Activities) qui est la même que l'instance en cours de la classe:
NewActivite.Add NewActivite, "Activité (" & nb & ")", ...
En enlevant ce paramètre et en remplaçant Activities par Me, ça done:
Public Function Add(ByVal sName As String, ByVal sComment As String, ByVal nPosDeb As Integer, ByVal nPosFin As Integer, ByVal nDuree As Integer, ByVal nColor As Integer, ByVal nJour As Integer, ByVal nMois As Integer, ByVal bBDD As Boolean, Optional ByVal sKey As String) As Activity
...
'définir les propriétés passées à la méthode
Set objNewMember.Activities = Me
...
End Function
et dans Command1_Click:
NewActivite.Add "Activité (" & nb & ")", ...
Xya
darkteam
Messages postés46Date d'inscriptionmardi 9 décembre 2003StatutMembreDernière intervention18 juin 2010 10 déc. 2003 à 14:46
10 déc. 2003 à 15:29
Cela permet de simplifier le code et de réutiliser cette classe dans un autre projet.
Dans mon cas une collection ou un tableau aurait peut-être suffit mais je voulais faire un essais avec les classes pour avoir une idée de ce que cela pouvait donner.
Merci pour la simplification Xya.
10 déc. 2003 à 14:46
Ta fonction Add demande un paramètre (Activities) qui est la même que l'instance en cours de la classe:
NewActivite.Add NewActivite, "Activité (" & nb & ")", ...
En enlevant ce paramètre et en remplaçant Activities par Me, ça done:
Public Function Add(ByVal sName As String, ByVal sComment As String, ByVal nPosDeb As Integer, ByVal nPosFin As Integer, ByVal nDuree As Integer, ByVal nColor As Integer, ByVal nJour As Integer, ByVal nMois As Integer, ByVal bBDD As Boolean, Optional ByVal sKey As String) As Activity
...
'définir les propriétés passées à la méthode
Set objNewMember.Activities = Me
...
End Function
et dans Command1_Click:
NewActivite.Add "Activité (" & nb & ")", ...
Xya
10 déc. 2003 à 14:46