Discussion :

[Chebil2006]

Salut à tous
J'ai voulu faire une application client/serveur en vb .net 2008 en s'inspirant d'une solution réalisée en vb6. En effet, dans ce dernier j'ai réalisé une interface avec un module de classe (instancing = multiuse ...) à laquelle je peux accéder depuis une autre application via un objet crée à l'aide de la commande createobject("SICBaCServer.NomClasse").
Code :

Code :

Code :

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

set DataServer = CreateObject("SICBaCServer")

Et dans ce cas quand je veux par exemple appeler une fonction je la precède de DataServer.Nom_Fonction (ou variable .....)

Quand j'ai voulu refaire le même travail avec vb 2008, malgré que j'ai referencié l'application serveur (ajouter reference) mais ça n'a pas marché!
Ca sera gentil de m'aider à resoudre ce pb.
Merci

[Chebil2006]

je veux décrire la solution que j'ai trouvé en attendant des idées ou corrections de vos parts.
alors dans la solution serveur (appelé SICBaCServer) j'ai réalisé une classe type com (en modifiant les proprietés de la classe). l'entête devient comme suit

Code :

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

1
2
3
4
5
6
<Microsoft.VisualBasic.ComClass()> Public Class DataInterface
 
    Public Function test() As String
        test = "Hello this is me chebil"
    End Function
End Class

dans la solution client j'ai réalisé le code suivant

Code :

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

1
2
3
Dim DaTaServer As New SICBaCServer.DataInterface
        dim chaineessaie = DaTaServer.test()
        MsgBox(chaineessai)

[charouel]

voila tu peux le fair comme ca

Code :

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

1
2
3
4
5
6
7
<Microsoft.VisualBasic.ComClass()> Public Class DataInterface
 
    Public Function test() As String
        test = "Hello this is me chebil"
     return test
    End Function
End Class

dans la solution client ça

Code :

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

1
2
3
4
Dim DaTaServer As New SICBaCServer.DataInterface
        dim chaineessaie as string
        chaineessaie = DaTaServer.test()
        MsgBox(chaineessai)