Salut tout le monde, je vous explique mon problème
J’ai un projet activeX.dll sous borland C++ qui contient
Une méthode qui s’appelle Moyenne qui renvoie un entier
R2 ! Sous visual basic j’ai mis un bouton qui lorsque je
Vais cliquer dessus m’affichera le calcul fait par la méthode
Moyenne ! Ce résultat sera afficher dans une MsgBox pour
L’instant ! Comment dois m’y prendre pour récupérer ce
Résultat sous visual basic ? jai commencer a faire un programme
Mais j’arrive pas a faire ce que je veux ! Merci pour toute aide
(Pour information je suis visual Basic 6.3 avec excel je dis au cas ou
Je me tromperai de forum)
Par contre le code de C++ borland le voici
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 Option Explicit Sub CommandButton1_Click() MsgBox ("Ouverture de l'ActiveX") Dim t As TestAuto Set t = New TestAuto Dim i As Integer i = 2 t.Donnees2 = i Dim zer As Integer zer = t.Donnees1 MsgBox i MsgBox zer t.Moyenne 10 'zer = t.Donnees2 MsgBox zer Set t = Nothing End Sub
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
35
36
37
38
39
40
41
42
43
44
45 #include <vcl.h> #pragma hdrstop #include "TESTAUTOIMPL.H" ///////////////////////////////////////////////////////////////////////////// // TTestAutoImpl STDMETHODIMP TTestAutoImpl::get_Donnees1(VARIANT* Value) { try { } catch(Exception &e) { return Error(e.Message.c_str(), IID_ITestAuto); } return S_OK; }; STDMETHODIMP TTestAutoImpl::Moyenne(int R2) { int i; i=4; i=R2*i; return i; } STDMETHODIMP TTestAutoImpl::set_Donnees2(VARIANT Param1) { try { } catch(Exception &e) { return Error(e.Message.c_str(), IID_ITestAuto); } return S_OK; };
Partager