VB调用VC DLL函数

—————————————————————————VC部分—————————————————————————————————————

声明
********************************************************************************************************
extern "C" _declspec(dllexport)[] _stdcall []
********************************************************************************************************

DLLmain代码填充部分：
********************************************************************************************************
BOOL APIENTRY DllMain( HANDLE hModule, 
                       DWORD  ul_reason_for_call, 
                       LPVOID lpReserved
                     )
{
    switch (ul_reason_for_call)
    {
        case DLL_PROCESS_ATTACH:
        case DLL_THREAD_ATTACH:
        case DLL_THREAD_DETACH:
        case DLL_PROCESS_DETACH:
            break;
    }
    return TRUE;
}


———————————————————————————VB部分—————————————————————————————
声明
********************************************************************************************************

(Public/private/)Declare Function [] Lib "[路径]" Alias"[DLL原名]"([参数表]) As [返回类型]

********************************************************************************************************