Module de classe

Question

Bonjour à tous,

Quelqu'un pourrait il me dire qu'elle est la référence à ajouter à mon projet pour pouvoir utiliser les propriétés de mes modules de classe.

J'initialise la collection et l'objet mais je n'est pas accès aux propriétés.

Merci d'avance

cs_starfighter · Answer

tes propriétés et méthodes sont déclarer public?

mllezozo · Answer

Oui , j'ai bien tout déclaré en public mais pa moyen d'avoir accès

crenaud76 · Answer

Il n'y a aucune référence à ajouter !!!
Si c'est bien en Public cale devrait être dispo !!
Tu as quoi comme msg d'erreur !!

Christophe R.

cs_starfighter · Answer

Peut tu faire voir un bout de ton code?

mllezozo · Answer

Ca c'est mon module de classe

Private Qte As Integer
Private DatePrev As Date
Private DateEff As Date
Private Prix As Double
Private Remarque As String
Private bSolde As Integer
Private DateBacc As Date
Private QteLiv As Integer

Public Property Let init_cle(iCle As Integer)
cle = iCle
End Property

Public Property Get cle() As Integer
cle = cle
End Property

Et dans ma form
Dim clsAcc As New Collection
Dim objAcc As New clsAccessoire

Set objAcc = Nothing
et là je voudrais voir mes propriétés en mettant
objacc.

mais rien ne s'affiche, je n'est pa de message d'erreur mai je n'ai pas accès aux propriétés

cs_starfighter · Answer

pourquoi fais tu Set objAcc = Nothing , en faisant cela , tu supprime ton instance donc, quand tu essaye d'utilise sa propriete il met erreur, c'est normal. le Set objAcc = Nothing  tu le fais quand tu n'a plus besoin de ton objet.

cs_starfighter · Answer

De plus pour afficher, il faudrais faire :
objAcc.cle =1
msgbox objAcc.cle

cs_starfighter · Answer

En faite ta classe n'est pas bonne il faut

'Sont elles utiliser?
Private Qte As Integer
Private DatePrev As Date
Private DateEff As Date
Private Prix As Double
Private Remarque As String
Private bSolde As Integer
Private DateBacc As Date
Private QteLiv As Integer
'
private mCle as integer 'En plus

Public Property Let init_cle(iCle As Integer)
mCle = iCle
End Property

Public Property Get cle() As Integer
cle = mCle 
End Property

cs_starfighter · Answer

Mince j'ai oublié (encore)
En faite ta classe n'est pas bonne il faut

'Sont elles utiliser?
Private Qte As Integer
Private DatePrev As Date
Private DateEff As Date
Private Prix As Double
Private Remarque As String
Private bSolde As Integer
Private DateBacc As Date
Private QteLiv As Integer
'
private mCle as integer 'En plus

Public Property Let cle(iCle As Integer)
mCle = iCle
End Property

Public Property Get cle() As Integer
cle = mCle 
End Property

mllezozo · Answer

Nan mais mon souci c'est que normalement quand on code, on met par exemple
objacc.
et qd je met le . je devrais voir apparaitre la liste des méthodes disponibles mais là j'ai rien, j'ai fait un autre projet en faisant pareil et ça marche mais dans ce projet là ça ne marche pa

cs_starfighter · Answer

il faut que tu ais 

private mCle as integer 'En plus

Public Property Let cle(iCle As Integer)
mCle = iCle
End Property

Public Property Get cle() As Integer
cle = mCle 
End Property


et non

Public Property Let init_cle(iCle As Integer)
cle = iCle
End Property

Public Property Get cle() As Integer
cle = cle
End Property

car dans ton cas tu n'utilise pas de variable pour ta proprietes
Cle c'est la propriete Get et non la variable

mllezozo · Answer

Ca ne change rien je viens d'essayer

cs_starfighter · Answer

le nom de ton fichier de ta classe clsAccessoire s'appele coment?

Fulgy · Answer

Salut tout le monde. Je sais pas si le problème vient de la mais quand les propriétées d'un objet ne s'affiche pas après avoir mis le ".", cela peut venir d'une erreur de code qui a été faite avant genre un End If oublié à la fin d'un If.
A+

cs_starfighter · Answer

Quand tu compile ton projet il ne te donne pas d'erreur?

cs_starfighter · Answer

effectivement Fulgy, c'est pour ca que j'ai demander si il avais compiler son code, ca lui donnerais les messages d'erreur.

cs_starfighter · Answer

As tu fais ta classe avec le générateur de classes?

Renfield · Answer

Quel est le problème ?

est-ce que tes propriétés ne sont pas listée 
ou ne fonctionnent elles pas?

pour le 2, voir plus haut

pour le 1, voir ton codage.
tu peux surement désamorcer en faisant Ctrl+F5 (ou en activant la compilation complète a l'execution)

ta classe fait elle partie du même projet ?

si non, lui donner la portée adéquate...

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

cs_DARKSIDIOUS · Answer

Compile ton projet, et mets nous toutes les erreurs qu'il peut t'afficher, ca nous aidera à comprendre d'où peut venir ton problème !

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Module de classe

19 réponses

Discussions similaires