Discussion :

[pijaku]

Bonjour,

Je souhaite protéger une classe en créant une dll.
Pas de souci pour la démarche sous VB6.
Cependant, ma classe "implémente" une autre classe : MsForms.
Comment y faire référence?

L'exemple tout bête est celui-ci :

Code :

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

1
2
3
4
5
6
7
Public WithEvents Liste As MsForms.ListBox
 
Private Sub Liste_Click()
    If Liste.ListIndex > -1 Then
        MsgBox Liste.List(Liste.ListIndex)
    End If
End Sub

A la compilation de la dll (sous VB6 au moment ou je clic sur Make Project1.dll), le message d'erreur me donne ceci :

Compile Error:
User-defined type not defined

et me surligne : WithEvents Liste As MsForms.ListBox
Je suppose qu'il faut donc que je lui dise de faire la liaison avec la bibliothèque MsForms, mais comment???

EDIT : J'arrive finalement à compiler ma dll en ajoutant, sous VB6, la référence à MsForms 2.0.
mais bon, l'événement, sous VBA Excel, ne se déclenche pas...
pas de message d'erreur, mon UserForm s'affiche bien, mais l'événement ne se déclenche pas...
Le code d'appel, dans mon UserForm est :

Code :

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

1
2
3
 
Dim Cl As New Project1.Class1
Set Cl.Liste = ListBox1

[unparia]

Bonjour Franck
Si j'ai bien compris, cette erreur se produit sous VB6 (lors de la compilation d'un usercontrol).
C'est normal --->> une listbox VB6 n'est pas un contrôle MsForms.ListBox, mais un contrôle Listbox
Attention, par ailleurs (un contrôle listbox VB6 est TRES différent d'un contrôle Listbox VBA. Ce sont deux activex complètement distincts et la différence est fondamentale).

VB6 ne sait pas gérer une listbox VBA et VBA ne sait pas gérer une listbox VB6.

[Pierre Fauconnier]

Salut

[...]VB6 ne sait pas gérer une listbox VBA et VBA ne sait pas gérer une listbox VB6.

Ne peut-on pas référencer la librairie idoine pour que VB6 puisse utiliser le msforms.listbox?

[pijaku]

Bonjour messieurs,

Ma question a, semble t'il évoluée.
Cf mon edit :
J'arrive finalement à compiler ma dll en ajoutant, sous VB6, la référence à MsForms 2.0.
mais bon, l'événement, sous VBA Excel, ne se déclenche pas...
pas de message d'erreur, mon UserForm s'affiche bien, mais l'événement ne se déclenche pas...
Le code d'appel, dans mon UserForm est :

Code :

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

1
2
Dim Cl As New Project1.Class1
Set Cl.Liste = ListBox1

[Pierre Fauconnier]

Perso, je ne sais pas tester sur le poste sur lequel je travaille...

Peut-être unparia a-t-il une idée...

[pijaku]

Messieurs,

Veuillez excuser l'abr*** que je suis.
Tout curieux de découvrir un nouvel espace de jeu, j'en ai oublié les rudiments de déclaration de variables...

Le code d'appel ne doit pas être :

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
Dim Cl As New Project1.Class1
Set Cl.Liste = Me.ListBox1
End Sub

Mais :

Code :

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

1
2
3
4
Public Cl As New Project1.Class1
Private Sub UserForm_Initialize()
Set Cl.Liste = Me.ListBox1
End Sub

Les rudiments, le B-A-BA quoi....
Désolé, sujet résolu.

Pour info, cela fonctionne drôlement bien, et, pour toi Jacques, cela permet de complètement cacher un code de module de classe VBA et ainsi ne pas dévoiler certaines propriétés.....
Amicalement,
Franck

[Pierre Fauconnier]

[...]Tout curieux de découvrir un nouvel espace de jeu[...]

CA donne envie, hein, de découvrir ce genre de trucs... Quand j'ai commencé à travailler avec VSTO, je me suis senti pousser des ailes...

[pijaku]

CA donne envie, hein, de découvrir ce genre de trucs...

Tout à fait !
On apprends tous les jours, c'est bien cela qui est fantastique!