Discussion :

[Egurkari]

Bonjour,

Pourriez vous m'indiquer quelques pistes pour faire communiquer une application VB.Net et une application VB6 svp.

En gros, l'application VB.Net doit demander à l'application VB6 d'afficher des données graphiques, la fonction VB6 en charge de faire cela étant à l'heure actuelle bien trop complexe pour la porter en VB.Net ...

Merci d'avance pour vos conseils éclairés,

Cordialement,

Egurkari

PS : peut-être faut-il que je poste également ce message dans le forum VB6 ...

[Pol63]

as tu au moins googlé ??
parce qu'il y a des tas de réponse ...

il y a d'ailleurs une dll pour faire ca qui a déjà circulé sur ce forum
sinon par tcp/ip

[Egurkari]

as tu au moins googlé ??
parce qu'il y a des tas de réponse ...

il y a d'ailleurs une dll pour faire ca qui a déjà circulé sur ce forum
sinon par tcp/ip

Oui Google a déjà été parcouru ... et bien sur un tas de réponses trouvées : sockets, remoting, WCF, SendMessage ... Malheureusement mes compétences dans la communication inter-processus étant très limitée, je n'arrive pas à y voir clair !

Tu parles d'une dll ? Tu peux me pointer l'article stp ?

[Pol63]

si je l'avais retrouvé j'aurais mis un lien

j'ai trouvé ca qui convient peut etre :
http://www.codeproject.com/Articles/...ication-via-Wi

sinon par tcp/ip c'est juste des échanges d'octets (ou de string) ca ne sert pas qu'à faire des échanges inter processus, c'est très généraliste
l'une des 2 applis doit écouter sur un port
l'autre appli se connecte sur localhost:LePortChoisit
et après il suffit de créer un protocole de communication (genre envoyer F001 doit ouvrir telle fenetre sur l'autre appli)

[Egurkari]

si je l'avais retrouvé j'aurais mis un lien

j'ai trouvé ca qui convient peut etre :
http://www.codeproject.com/Articles/...ication-via-Wi

Je regarde ça, cela semble coller à mon cas ...

sinon par tcp/ip c'est juste des échanges d'octets (ou de string) ca ne sert pas qu'à faire des échanges inter processus, c'est très généraliste
l'une des 2 applis doit écouter sur un port
l'autre appli se connecte sur localhost:LePortChoisit
et après il suffit de créer un protocole de communication (genre envoyer F001 doit ouvrir telle fenetre sur l'autre appli)

Par TCP, c'est alors quelle techno ? Sockets ?

[Pol63]

Par TCP, c'est alors quelle techno ? Sockets ?

en vb6 c'est winsock et en .net c'est tcpclient/tcplistener selon le cas et ca encapsule la classe socket

[rv26t]

Bonjour,

Voici deux discussions traitant l'utilisation d'une dll vb6 avec un progrmme vb.net.
ici (détail à partir du post 8) et là (détail à partir du post 13).

Il y a aussi un tuto traitant du sujet sur DVP, mais je ne l'ai pas retrouvé.

[clementmarcotte]

Bonjour,

Tu peux aussi jeter un œil sur cet article microsoftien conçu et écrit en français. Ce n'est pas vraiment spécifique à ta question, mais cela donne un canevas des procédures à effectuer. Il y a aussi un lien pour télécharger un exemple. (J'espère qu'il fonctionne toujours.)



http://msdn.microsoft.com/fr-fr/library/bb727303.aspx

[MABROUKI]

bonjour

Une possibilite si tu as le code source bien sur c'est
1/ Recompiler tel quel en projet ActiveX EXE vb6...
2/ Les datas "transmis" par vb.net seront exposes en tant que props
dans ton projet reconfigure en ActiveX EXE vb6

3/ Rajouter un module class Util à ton projet
3/ class Util doit exposer :
-un procedure Publi Start() dont le seul role sera le point d'entree de ton projet...
-un procedure Public SetData(param1,param2,param3 ,etc) dont le role sera de recuperer les donnees datas depuis vb.net...

code vb6 du form de demarrage(frmActiveX) de ton projet ActiveX EXE :

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
 
Private mvardata1 As Integer 'local copy
Private mvardata2 As Double 'local copy
Private mvardata3 As String 'local copy
Private Sub Command1_Click()
   Text1.Text = data1
   Text2.Text = data2
  Text3.Text = data3
End Sub
Public Property Let data3(ByVal vData As String)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.Data3 = Form1
     mvardata3 = vData
End Property
Public Property Get data3() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Data3
          data3 = mvardata3
 
End Property

code .vb6 du class Util à rajouter à ce projet:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private frm As frmActiveX
Public Sub Start()
Set frm = New frmActiveX
frm.Show
End Sub
 
Public Sub SetDatas(dt2 As Double, dt3 As String, dt1 As Long)
frm.data1 = dt1
frm.data2 = dt2
frm.data3 = dt3
End Sub

Le nom du projet ActiveX Exe etant denomme par ActiveXUTIL.exe(page de proprietes du projet vb6),apres ajout de sa reference dans le projet vb.net sera utiliser avec le code suivant:

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
 
Imports ActiveXUTIL
 
Public Class Form1
    Private UT As Util
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        UT = New Util
        UT.Start()
        UT.SetDatas(15.45, "alpha", 17)
 
    End Sub
 
 
 
 
End Class

Evidemment il faut etre attentif au marshalling des types...
Tu peux manipuler tous les objets du projet ActiveX EXE à condition d'avoir une ref sur eux (prop) dans le "component" class Util....
bon code....