Création d'une DLL en vb.netRésolu

Question

Bonjour, 
Je ne sais pas comment créer une DLL sous visual studio pro 2017.
Quel choix faire quand on fait nouveau projet ?
Que déclarer pour que ce soit une DLL ?
Bilou

NHenry · Answer

DLL est un terme générique, tu veux faire une :
- DLL Native Win32/64
- DLL ActiveX
- DLL COM
- DLL .NET
- ...
?

Whismeril · Answer

Bonsoir,

tu codes en VB.Net, utiliser une dll native en .Net est assez chiant, du coup, vu que tu poses la question, je suis près à parier que tu n'en a jamais utilisé.

Tu veux t'en resservir dans tes prochains programmes (en .Net je suppose), du coup en faire une native est contre productif.

Donc, comme l'a écrit NHenri, il te faut faire une dll .Net.
Pour cela, il suffit de mettre tout tes codes réutilisables dans un projet "Bibliothèque de Classes".
Tu ajoutes ce projet à toutes tes solutions.
Tu référence ce projet dans chaque projet de la solution qui en a besoin.
Pour chaque classe qui le nécessite, tu importe le namespace.
En fait tu fait exactement comme quand tu utilises n'importe quelle dll du framework qui ne sont pas incluses automatiquement dans un nouveau projet.

 Je fais cela très souvent

Bilou47190 · Answer

J'ai loupé un truc ?

Mon projet DLL :

Public Class Dll_Perso
    Public Function Mon_Test(Msg As String) As String
        MsgBox(Msg)
        Return ("ok")
    End Function
End Class

La génération est ok, j'ai bien ma DLL

Mon projet pour tester :
Le module :
Imports Dll_Perso
Module Module1
    Declare Function Mon_Test Lib "Dll_Perso" (ByVal toto As String)
End Module

Le form :
Public Class Form1
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim tst As String
        tst = Mon_Test("eeee")
    End Sub
End Class

Et voila mon erreur :

System.Runtime.InteropServices.MarshalDirectiveException : 
'Restriction PInvoke : impossible de retourner des variants.'

Exception levée : 'System.Runtime.InteropServices.MarshalDirectiveException' dans WindowsApp1.exe
Une exception non gérée du type 'System.Runtime.InteropServices.MarshalDirectiveException' s'est produite dans WindowsApp1.exe
Restriction PInvoke : impossible de retourner des variants.

Whismeril · Answer

Au temps pour moi, tu t'es déjà pris la tête avec des dll natives.

Mais c'est pas ça que je te propose

 




 

Code de ClassePerso.Vb

Imports System.Windows.Forms

Public Class ClassePerso
    Public Function Mon_Test(Msg As String) As String
        MessageBox.Show(Msg) 'MsgBox c'est du VB6, pas du VB.Net, il vaut mieux éviter de mélanger
        Return "ok"
    End Function

End Class

Code de Form1

Imports ExempleBibliotheque

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim maClassePerso As New ClassePerso()
        maClassePerso.Mon_Test("Coucou")
    End Sub
End Class

Tu peux aussi utiliser une méthode partagée

Imports System.Windows.Forms

Public Class ClassePerso
    Public Function Mon_Test(Msg As String) As String
        MessageBox.Show(Msg) 'MsgBox c'est du VB6, pas du VB.Net, il vaut mieux éviter de mélanger
        Return "ok"
    End Function

Public Shared Function Mon_Test2(Msg As String) As String
        MessageBox.Show(Msg) 'MsgBox c'est du VB6, pas du VB.Net, il vaut mieux éviter de mélanger
        Return "ok"
    End Function

End Class

Imports ExempleBibliotheque

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim maClassePerso As New ClassePerso()
        maClassePerso.Mon_Test("Coucou")

ClassePerso.Mon_Test2("Coucou2")
    End Sub
End Class

Bilou47190 · Answer

Salut,
C'est tout bon.
Merci beaucoup

Création d'une DLL en vb.net

5 réponses

Votre réponse

sur les mêmes thèmes