Discussion :

[smaugy]

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

[Delbeke]

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.

[smaugy]

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 :

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

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 :

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

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