Approche de la poo avec des classes

Soyez le premier à donner votre avis sur cette source.

Vue 3 433 fois - Téléchargée 455 fois

Description

Ce petit bout de code vous explique comment à partir d'une classe, gérer celle-ci pour faire des ajout, suppression, modification sur des éléments.
Ce code n'est peut-être pas parfait, c'est ma première expérience avec les classes.

Source / Exemple :


1- ajouter des éléments
2- vous pouvez à partir du moment où vous aurez sélectionné un élément le modifier, le supprimer.
3- vous pouvez voir le contenu de la classe en cliquant sur le bouton voir
4- vous pouvez compter le nombre d'éléments enregistrés dans la classe

Conclusion :


Ce n'est qu'une permière approche, si je me suis compliqué pour certaines fonction merci de me dire comment simplifier.
Merci

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Cameleon69
Messages postés
98
Date d'inscription
lundi 31 décembre 2001
Statut
Membre
Dernière intervention
7 août 2005
2
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és
103
Date d'inscription
lundi 8 juillet 2002
Statut
Membre
Dernière intervention
24 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és
46
Date d'inscription
mardi 9 décembre 2003
Statut
Membre
Dernière intervention
18 juin 2010

10 déc. 2003 à 14:46
ca marche mais ca sert a quoi ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.