Discussion :

[Mass-yas]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim toto As cCalcul
Set toto = New cCalcul

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Aspic]

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

[Mass-yas]

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.

[Aspic]

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.

[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.

[Pol63]

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

[Monkeyget]

Tu as fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Property cValeurTotale() As Double
Get
Return mvarcValeurTotale
End Get
...
End Property

[Mass-yas]

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é.