Discussion :

[speedster]

Bonjour,

J'ai ajouté dans les références de mon projet, la dll d'un projet existant contenant des fonctions que je souhaite appeler, mais le problème est que ces fonctions se trouvent dans un module standard (.bas) et je n'arrive pas à y accèder.

Je n'accède uniquement qu'aux modules de classe.

En gros, j'ai un module module1.bas, un module de classe classe1.cls et la fonction f1() dans le module1.bas et la fonction f2() dans la classe1.cls.

J'arrive à accèder à f2() mais impossible d'accèder à f1() :

Code :

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

1
2
3
4
Dim maDll As MaDll.classe1
Set maDll = New MaDll.classe1
 
maDll.f2()

... mais comment faire pour accèder à f1() ?

[zazaraignée]

Salut

Juste une idée comme ça.

J'essaierais ceci:

Code :

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

Dim monObjet As New Classe1  ' qui aurait du être renommée, en passant

[medkarim]

les modile bas d'in projet dll sont privés et non accessible à l'utilsateur
faut mettre les fonction deans in module de classe avec propriété instansed sur global multiuse

[MGD_Software]

A ma connaissance, les procédures d'une DLL activeX situées dans des modules sont "friend" même si elles sont déclarées publiques. En conséquence, elles ne peuvent être vues de l'extérieur de la DLL.

Si tu as besoin d'exporter des procédures situées dans des modules, le mieux est de créer une classe "poubelle", qui aura la propriété Instancing égale à GlobalMultiUse.

Dans cette classe, tu déclares tes procédures publiques et tu y appelles la procédure du module.

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
Dans la classe GlobalClass.cls : 
Public function f1()
    f1 = module1.f1
end function

Dans le module module1 :
public function f1()
    .....
    f1 = ....
end function

Avantage de ce système : la classe GlobalClass étant GlobalMultiUse, il n'est pas nécessaire de la référencer dans le code de l'application cliente. Dans cette dernière, il suffira d'écrire :

Code :

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

MyVar = f1()

au lieu de

Code :

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

1
2
Dim MyClass = New GlobalClass
MyVar = MyClass.f1()

C''est donc très intéressant, car les fonctions ainsi créées semblent faire partie du langage, ou tout au moins de l'application courante.

Seule restriction importante à ce système : les procédures appelées ne doivent pas contenir de variables persistantes. En effet, elles sont globales, et leurs variables sont réutilisées à chaque appel. Il n'y a qu'une seule et unique instance de la fonction pour toute l'application. Il faut donc éviter l'emploi de variables globales ou statiques dans les procédures appelées (ce qui est de toutes façons une bonne manière de programmer).

Ce genre de fonctions est surtout adapté à des fonctions paramétrées ne travaillant qu'avec des variables locales (des fonctions bien écrites, quoi). C'est dailleurs souvent le cas des fonctions situées dans un module.

J'espère avoir apporté ma pierre à l'édifice...

[speedster]

Merci pour vos réponses.

J'ai finalement opté par ajouter les modules bas dans mon projet. En réalité ils référencent l'autre projet et ne sont pas en double.