Utilisation de MSForm en VB6

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:

---

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 :

Citation:

---

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:

---

1 2 3

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

---

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.

Salut

Citation:

---

Envoyé par unparia

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

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:

---

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

---

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

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

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:

---

1 2 3 4

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

---

Mais :

Code:

---

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

Citation:

---

Envoyé par pijaku

[...]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... ;)

Citation:

---

Envoyé par Pierre Fauconnier

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!