由VC生成DLL，以供VB等调用

一、在XXX.def中加入（假设工程名叫XXX，要输出的函数名叫MyDLLFunc()）

EXPORTS
    ; Explicit exports can go here
    MyDLLFunc

 

二、在XXX.cpp中写函数的定义

// 输入一个字符串，处理后输出
extern "C" bool __stdcall EXPORT MyDLLFunc(LPTSTR inputStr, TCHAR** outputStr)
...{
    AFX_MANAGE_STATE(AfxGetStaticModuleState());

    CString instr = inputStr;
    CString outstr = SomeProcess(instr);

    _tcscpy(*outputStr, (LPCTSTR)out); 

    return true;
}

 

三、在VB中调用

Public Declare Function MyDLLFunc Lib "C:/yyy/xxx.dll" (ByVal inputStr As String, ByRef outputStr As String) As Boolean

Sub M1() ' 其实是个宏 -_-

    Dim mystr As String * 4096
   
    If MyDLLFunc("ABC", mystr) Then
        MsgBox sss
    End If

End Sub