Discussion :

[medbouh]

Bonjour
voila j'ai deux programme vb, et je vaudrais que le programme 2 puisse appler une fonction du programme 1 afin de recuperer une variable.

est-il possible, sinon est-ce que il y'a une autre methode.

et merci de votre aide

[ouskel'n'or]

je vaudrais que le programme 2 puisse appler une fonction du programme 1 afin de recuperer une variable.

Je ne suis pas spécialiste VB mais ça m'étonnerait que tu puisses faire ça. Par contre, un passage de paramètre d'un programme à un autre, j'ai lu ça et donc, ça existe (mais je crains que ce ne soit qu'au lancement de prog2)
Reste la solution du tampon.tmp ou tampon.txt, dans lequel tu places ta donnée depuis Prog1 et la récupère depuis Prog2.

Juste en attendant d'autres réponses plus éclairées sur la question

A+

[jmfmarques]

L'idée du tremplin .txt me paraissait également bonne, mais je suis gêné par :

puisse appler une fonction du programme 1 afin de recuperer une variable.

ce qui n'est pas pareil qu'un résultat calculé par l'un et à passer à l'autre.
si, depuis le prog2 il appelle une fonction du prog1 qui retourne des valeurs calculées sur la base de qui existe en appli1... c'est tout autre chose... et dans ce cas, ce qui devrait figurer dans un trmplin txt, ce seraient les paramètres à utiliser, la fonction devant alors, quant à elle, faire l'objet d'un module inclus dans les 2 applis.

[medbouh]

merci de vos reponse que j'ai trouvé interessante pour d'autre utilisation.

en ce qui concerne mon probleme j'ai trouvé une solution entre temps qui est d'utilisé les Winsock.


je vous remercie bq pour vos reponse

[ouskel'n'or]

C'est gentil de nous remercier mais si tu pouvais nous la communiquer, il est possible (...) que ça intéresse d'autres intervenants.

Merci pour eux

A+

[enibris]

Bonjour,

Tu as la possibilite utiliser DDE

[medbouh]

la solution que j'ai réalisé est ca :

1.cote Programme2 où se trouve la fonction :
a)il faut inserer deux composant WinSock que j'ai appler WinListen et WinClient . et le code c'est ca:

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
29
30
31
32
33
34
 
 
Private Sub Form_Load()
    WinListen.LocalPort = 2000
    WinListen.Listen
End Sub
 
Private Sub WinListen_ConnectionRequest(ByVal requestID As Long)
    If WinListen.State <> sckClosed Then WinListen.Close
    WinListen.Accept requestID
End Sub
 
Private Sub Timer1_Timer()
    Dim IP As String
 
    Nbr=list1.ListCount - 1
    For i=0 to Nbr
    	List1.ListIndex = 0
                IP = Split(List1.Text,"#")(3)
                WinClient.Connect IP, 2000
	Param1 = Split(List1.Text,"#")(0)
	Param2 = Split(List1.Text,"#")(1)
	Param3 = Split(List1.Text,"#")(2)
	Resultat = NomDeLaFonction(Param1,Param2,Param3)
	WinClient.SendData Resultat
    	List1.RemoveItem (0)
                Winclient.Close
    Next i
End Sub
 
Private Sub WinListen_DataArrival(ByVal bytesTotal As Long)
    WinListen.GetData donnee, vbString
    List1.AddItem donnee
End Sub

2.Cote Programme1 il faut aussi insert deux composant WinSock, plus 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
Private Sub WinListen_ConnectionRequest(ByVal requestID As Long)
    If WinListen.State <> sckClosed Then WinListen.Close
    WinListen.Accept requestID
End Sub
 
Private Sub WinListen_DataArrival(ByVal bytesTotal As Long)
    WinListen.GetData donnee, vbString
    List1.AddItem donnee
End Sub
 
Private Sub Form_Load()
    WinListen.LocalPort = 2000
    WinListen.Listen
End Sub
 
Private Sub Timer1_Timer()
    Nbr=list1.ListCount - 1
    For i=0 to Nbr
    	List1.ListIndex = 0
	Text1.Text=List1.Text
    	List1.RemoveItem (0)
    Next i
End Sub
 
Private Sub Command2_Click()
    IP = AdresseIpDuPosteDistant
    WinClient.Connect IP, 2000
    WinClient.SendData Param1 & "#" & Param2 & "#" & Param3 & "#" & IPDuPosteLocal
    Winclient.Close
End Sub

dans les deux programme L'IP sera toujours l'IP du Poste Local car les deux programme tourne tous les 2 dans la meme machine OK.




j'aimerais bien connaitre ca : Tu as la possibilite utiliser DDE. merci et @+++ [/b]