Programmation de librairies dll win32
pour Access avec Visual C++ Express

AdditionalDependencies="kernel32.lib"

AdditionalDependencies="kernel32.lib user32.lib gdi32.lib winspool.lib 
                  comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib"

 WIN_APP.disabled = true;
 WIN_APP_LABEL.disabled = true;
 DLL_APP.disabled = true;
 DLL_APP_LABEL.disabled = true;

// WIN_APP.disabled = true;
// WIN_APP_LABEL.disabled = true;
// DLL_APP.disabled = true;
// DLL_APP_LABEL.disabled = true;

    // Fichiers d'en-tête Windows :
    #include <windows.h>
    

void __stdcall TestMessage()
{
	MessageBox(NULL,"test message","test titre",MB_OK);
}

LIBRARY TestCPP
EXPORTS
TestMessage @1

------ Début de la génération : Projet : TestCPP, Configuration : Release Win32 ------
Compilation en cours...
stdafx.cpp
Compilation en cours...
TestCPP.cpp
Édition des liens en cours...
   Création de la bibliothèque E:\Transfert_doc\Programmation\VCExpress\TestCPP\Release\TestCPP.lib
             et de l'objet E:\Transfert_doc\Programmation\VCExpress\TestCPP\Release\TestCPP.exp
Génération de code en cours
Fin de la génération du code
Incorporation du manifeste en cours...
Le journal de génération a été enregistré à l'emplacement 
             "file://e:\Transfert_doc\Programmation\VCExpress\TestCPP\TestCPP\Release\BuildLog.htm"
TestCPP - 0 erreur(s), 0 avertissement(s)
========== Génération : 1 a réussi, 0 a échoué, 0 mis à jour, 0 a été ignoré ==========

Public Declare Sub TestMessage Lib "E:\Transfert_doc\Programmation\VCExpress\TestCPP\release\TestCPP.dll" ()

Private Sub CmbTestDll_Click()
TestMessage
End Sub

Public Declare Sub TestMessage Lib "TestCPP.dll" ()
Public Declare Function LoadLibrary Lib "Kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

Private Sub CmbTestDll_Click()
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "TestCPP.dll"
TestMessage
End Sub

    // Fichiers d'en-tête Windows :
    #include <windows.h>
    #include "olectl.h"
    

    void __stdcall TestMessage(DWORD pHwnd,BSTR pTexte,BSTR pTitre)
    

    void __stdcall TestMessage(DWORD pHwnd,BSTR pTexte,BSTR pTitre)
    {
    	MessageBox(HWND(pHwnd),LPCSTR(pTexte),LPCSTR(pTitre),MB_OK);
    }
    

    Public Declare Sub TestMessage Lib "E:\Transfert_doc\Programmation\VCExpress\TestCPP\release\TestCPP.dll" _
             (ByVal pHwnd As Long, ByVal pTexte As String, ByVal pTitre As String)
    

    Private Sub CmbTestDll_Click()
    TestMessage Me.Hwnd, "Mon message", "Mon Titre"
    End Sub
    

int __stdcall TestMessage(DWORD pHwnd,BSTR pTexte,BSTR pTitre)
{
    int lResultat;
	lResultat = MessageBox(HWND(pHwnd),LPCSTR(pTexte),LPCSTR(pTitre),MB_YESNO);
	Return lResultat;
}

Public Declare Function TestMessage Lib "E:\Transfert_doc\Programmation\VCExpress\TestCPP\release\TestCPP.dll" _
         (ByVal pHwnd As Long, ByVal pTexte As String, ByVal pTitre As String) As Long

#define IDYES               6
#define IDNO                7

Public Const IDYES = 6
Public Const IDNO = 7

Private Sub CmbTestDll_Click()
Dim lResultat As Long
lResultat = TestMessage(Me.Hwnd, "Mon message", "Mon Titre")
MsgBox "Vous avez cliquez sur " & IIf(lResultat = IDYES, "Oui", "Non")
End Sub