Bilou4719011
Messages postés mardi 3 mars 2009Date d'inscription
31 mai 2018
Dernière intervention
-
30 mai 2018 à 17:17 - Dernière réponse : Whismeril11642
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
23 juin 2018
Dernière intervention
- 31 mai 2018 à 20:31
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
Une dll native win32-64, dans mon programme, j'ai une procédure qui peut me servir pour d'autres programmes, je voudrais en faire une dll pour faire un call à cette proc. Ca m'évite de ré-écrire la même chose à chaque fois
NHenry14209
Messages postés vendredi 14 mars 2003Date d'inscriptionModérateurStatut
23 juin 2018
Dernière intervention -30 mai 2018 à 19:11
Si c'est pour l'utiliser dans d'autres programmes .NET, tu peux directement faire une DLL .NET (regardes dans les types de projets).
Pour faire une DLL Native Win32/64, il faudra passer pas C++ et tu sera en-dehors du framework.
Whismeril11642
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
23 juin 2018
Dernière intervention -30 mai 2018 à 20:58
0
Merci
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.
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.
Whismeril11642
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
23 juin 2018
Dernière intervention -30 mai 2018 à 23:12
0
Merci
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
Pour faire une DLL Native Win32/64, il faudra passer pas C++ et tu sera en-dehors du framework.