由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