Lecture de propriété d'une classe

Bonjour,

Je vous expose un problème très bizarre que je rencontre dans une appli en vb.net. Il s'agit d'une dll de calcul qui est ensuite appelé par un programme en Vb6.
Le problème se situe au sein même de la dll.
J'ai une classe cCalcul qui a des propriétés codé classiquement de cette façon :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Public Class cCalcul Private mvarcValeurTotale As Double Private mvarcFacteur As Double   Public Property cValeurTotale() As Double Get mvarcValeurTotale = cValeurTotale End Get Set(ByVal Value As Double) mvarcValeurTotale = Value End Set End Property   Public Property cFacteur() As Double Get mvarcFacteur = cFacteur End Get Set(ByVal Value As Double) mvarcFacteur = Value End Set End Property End Class

---

Dans mon code je déclare un objet cCalcul

Code:

---

1 2	Dim toto As cCalcul Set toto = New cCalcul

---

Et j'affecte les valeurs en fonction d'un calcul réalisé ailleurs

Code:

---

1 2 3 4

With monResultat toto.cFacteur = .Facteur.Value toto.cValeurTotale = .Total.Value End With

---

Si j'affiche monResultat.Facteur.Value et toto.cFacteur j'ai la même valeur, normal.
Et o miracle :
Si j'affiche monResultat.Total.Value j'ai une valeur alors que quand j'affiche toto.cValeurTotale j'ai 0 à chaque fois.

Je comprend vraiment pas comment c'est possible.
Même si je fais :

Code:

---

1 2	toto.cValeurTotale = 10 Msgbox toto.cValeurTotale

---

J'obtiens encore 0. :?

J'ai Option Explicit On pour la classe et le module qui l'utilise.
J'ai Option Strict On seulement pour la classe.

Le problème c'est que pour débogguer c'est pas facile vu que c'est une dll. Je ne peut pas mettre d'espions ou des points d'arrêts. A moins que quelqu'un m'explique comment faire.

Merci de vos suggestions.

Ca m'etonnerais que ce soit une erreur dans la DLL car c'est très rare. mais si c'est le cas alors c'est foutu car tu ne pourras pas aller modifier le code de la dll (sauf si c'est toi qui l'a créée) !

De plus utilise les balises code c'est par pour rien qu'elles existent ! Car la ton post est incomprehensible.

Cdl

Bonjour,

Désolé pour les balises code j'avais zappé.

Le code que je présente, c'est une classe de la dll. Les tests que je fais (MsgBox) sont aussi dans la dll. C'est ça qui m'inquiètes.

C'est toi qui a créée la DLL ? car sinon comment fais tu pour acceder à son code source ?

De toute maniere tu ne pourras pas le modifier si la DLL ne t'appartient pas.

Oui c'est moi qui est créé la DLL. Le code en VB.NET est le code de la DLL. Il y a plusieurs classes dans cette DLL dont celle qui me pose problème.
L'appli VB6 me sert à l'appeler, mais les valeurs erronés que je récupère je les obtiens de la DLL en ajoutant un MsgBox dans le code. Si je pouvais debugguer la DLL comme un exe je mettrais des points d'arrêts et des espions, mais la je peux pas.

Citation:

---

Envoyé par Mass-yas

Oui c'est moi qui est créé la DLL. Le code en VB.NET est le code de la DLL. Il y a plusieurs classes dans cette DLL dont celle qui me pose problème.
L'appli VB6 me sert à l'appeler, mais les valeurs erronés que je récupère je les obtiens de la DLL en ajoutant un MsgBox dans le code. Si je pouvais debugguer la DLL comme un exe je mettrais des points d'arrêts et des espions, mais la je peux pas.

---

si, vous pouvez un peu
vous créer un projet vb.net, vous y ajouter votre projet dll vb.net
dans le projet executable vous faites quelques lignes de code pour tester ce qui bug et les points d'arrets fonctionnent



et vos 2 property Get sont étranges
=>
Public Property cValeurTotale() As Double
Get
mvarcValeurTotale = cValeurTotale
End Get

moi je mets juste return mvarcValeurTotale
enfin ca devrait surtout etre l'inverse selon moi cValeurTotale = mvarcValeurTotale

Tu as fait :

Code:

---

1 2 3 4 5 6 7

Public Property cValeurTotale() As Double Get mvarcValeurTotale = cValeurTotale End Get ... End Property

---

Ca serait peut-être mieux de faire :

Code:

---

1 2 3 4 5 6 7

Public Property cValeurTotale() As Double Get Return mvarcValeurTotale End Get ... End Property

---

:)

Merci pour la réponse. C'est évident que c'est ça le problème.
L'utilisation du Return permet d'éviter ce genre de problème à mon avis.
J'ai du vouloir faire trop de copier coller et je me suis mélangé les pinceaux. Et vu que j'avais la même erreur à d'autres endroits j'avais pas percuté.