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 [返回类型]

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

 

posted @ 2015-04-10 15:40  cnfanghj  阅读(331)  评论(0编辑  收藏  举报