Application exe ActiveX

Bonjour,

Je dois créer une application VB6 utilisant des .exe activeX.
Elle serait constitué d'un exe principal qui doit lancer une dixaine exe activeX.
Si quelqu'un a déjà créé ce genre d'application, pourrait il me donner des conseils ou m'indiquer où trouver les bonnes infos.

Merci

Commence par pondre quelque lignes de codes pour voir si tu y arrives ou pas et reviens nous poser des questions si tu butes sur quelque chose.

Je veux lancer l'exe activeX depuis une application en passant des paramètres (dans un premier temps). Dans l'état actuel, je n'arrive pas à utiliser la propriété.
Je voudrais ensuite récupérer deux variables en retour.


Voici le code de l'appli appelante (sans ihm) :

Code:

---

1 2 3 4 5 6 7 8 9

Private mcmnTest As Monitor   Public Sub Main()   'mcmnTest.Marque = "fiat" Set mcmnTest = New Monitor   End Sub

---

----------------
Voici le code de l'exe activeX :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Option Explicit   Private m_Marque As String Private vTrace As String     Property Get Marque() As String Marque = m_Marque End Property   Property Let Marque(value As String) m_Marque = value End Property     Private Sub Class_Initialize() vTrace = Me.Marque Open "D:\Perso\test" & ".log" For Append As 1 'Ecriture du debut d'execution Print #1, "" Print #1, vTrace & " " & Format(Now, "HH.MM.SS") End Sub   Private Sub Class_Terminate() Print #1, "Fin d'execution :" Close 1 End Sub

---