Création d'un activex instanciable avec CreateObject

Bonjour,

Je souhaite créer un controle Activex (rtfbox utilisant
RichEd20.dll).
L'utilisation en mode "Early Binding" fonctionne sans pb :
Dim obj As RichEdit.rtfBox
Set obj = New RichEdit.rtfBox

Par contre, je voudrais créer dynamiquement plusieurs
instances de ce controle afin d'obtenir un formulaire.
J'utilise CreateObject("Late Binding").

Dim obj As object
Set obj = CreateObject("RichEdit.rtfBox")

Malheureusement, j'obtiens un message d'erreur à la
création :
erreur 398 "Site client non disponible"

Apres qq recherches, je comprends que je fais appel à
UserControl lors de UserControl_InitProperties alors qu'il
n'existe pas encore.
- UserControl.Ambient.UserMode
- UserControl.hwnd
- UserControl.Parent.hwnd

J'ai trouvé une explication indiquant qu'il est necessaire
d'implémenter une interface IDispatch pour utiliser
createObject et donc rendre disponible l'acces à
UserControl lors de InitProperties.

"CreateObject call invokes CoCreateInstance with the
object's CLSID and requests a pointer to the object's
IDispatch interface."
(http://sern.ucalgary.ca/Courses/CPSC/547/W2000/webnotes/CO
M/COM.html)

Une méthode alternative fonctionne
set obj = Controls.Add("RichEdit.rtfBox","rtfName")
mais necessite de passer par l'objet OBJECT pour manipuler
les méthodes et propriétés de l'ocx.
obj.object.text="hello"
alors que les methodes de base se trouvent toujours sous
obj :
obj.visible = true

Est ce que mes explications sont exactes ?
Comment modifier mon controle activex de facon a ce que je
puisse en créer des instances dynamiquement avec
CreateObject ?
Utiliser une typelib OLE... Implémenter une gestion de
IDispatch... Autre chose...

Merci de votre réponse

LudoO

-----Message d'origine-----
Salut,

Avec quoi as tu créé ton controle ? VB ? VC++?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LudoO wrote:

Bonjour,

Je souhaite créer un controle Activex (rtfbox utilisant
RichEd20.dll).
L'utilisation en mode "Early Binding" fonctionne sans

Dim obj As RichEdit.rtfBox
Set obj = New RichEdit.rtfBox

Par contre, je voudrais créer dynamiquement plusieurs
instances de ce controle afin d'obtenir un formulaire.
J'utilise CreateObject("Late Binding").

Dim obj As object
Set obj = CreateObject("RichEdit.rtfBox")

Malheureusement, j'obtiens un message d'erreur à la
création :
erreur 398 "Site client non disponible"

Apres qq recherches, je comprends que je fais appel à
UserControl lors de UserControl_InitProperties alors

n'existe pas encore.
- UserControl.Ambient.UserMode
- UserControl.hwnd
- UserControl.Parent.hwnd

J'ai trouvé une explication indiquant qu'il est

d'implémenter une interface IDispatch pour utiliser
createObject et donc rendre disponible l'acces à
UserControl lors de InitProperties.

"CreateObject call invokes CoCreateInstance with the
object's CLSID and requests a pointer to the object's
IDispatch interface."

M/COM.html)

Une méthode alternative fonctionne
set obj = Controls.Add("RichEdit.rtfBox","rtfName")
mais necessite de passer par l'objet OBJECT pour

les méthodes et propriétés de l'ocx.
obj.object.text="hello"
alors que les methodes de base se trouvent toujours sous
obj :
obj.visible = true

Est ce que mes explications sont exactes ?
Comment modifier mon controle activex de facon a ce que

puisse en créer des instances dynamiquement avec
CreateObject ?
Utiliser une typelib OLE... Implémenter une gestion de
IDispatch... Autre chose...

Merci de votre réponse

LudoO

.