System.EntryPointNotFoundException вызывает DLL Visual C++ из VB.NET ⇐ C++

[Anonymous]

В учебных целях я создал свою первую очень простую DLL Visual C++ и хочу использовать ее в VB.Net.
pch.h

Код: Выделить всё

#ifndef PCH_H
#define PCH_H
#include "framework.h"
//#include "Code.h"
#endif //PCH_H

code.h

Код: Выделить всё

#pragma once
#include "pch.h"
#include 
using namespace std;

#ifndef ADD_CODE_H
#define ADD_CODE_H
//extern "C"  //debugger says that IS NOT compatible with the __stdcall declaration
//{
__declspec(dllexport) string __stdcall add_code(string text); //same if I remove   __stdcall
//}
#endif

code.cpp

Код: Выделить всё

#include 
#include 
#include "pch.h"
#include "Code.h"

using namespace std;

string __stdcall add_code(string text) {         //same if I remove __stdcall
return text;
}

dllmain.cpp

Код: Выделить всё

#include "pch.h"
#include "Code.h"

BOOL APIENTRY DllMain( HMODULE 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;
}

Ошибок при компиляции кода Visual C++ нет. Пробовал как x86, так и x64.
Из VB.NET я пытаюсь вызвать DLL с помощью этого кода:

Код: Выделить всё

Imports System.Runtime.InteropServices

 '' //same if I remove stdcall Convention
Private Shared Function add_code(ByVal text As String) As String
End Function

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim foo As String = add_code("ppp")

End Sub

Пробовал как x86 (dll x86), x64 (dll x64), так и любой процессор (dll x86 или x64).
Я получаю сообщение об ошибке:

System.EntryPointNotFoundException: не удалось найти точку входа с именем «add_code» в DLL

РЕДАКТИРОВАТЬ

@Remy
Я удалил все ссылки на "__stdcall" и раскомментировал код "extern "C" в dll C++, так что теперь функцию следует экспортировать как "_add_code".
Я изменил объявление DLL в:

Код: Выделить всё

 
Private Shared Function _add_code(ByVal text As String) As  String
End Function

Код: Выделить всё

 Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim foo As String = _add_code("ppp")

End Sub

Ничего не меняется, получаю ту же старую ошибку. Но в Интернете я вижу, что dll C++ МОЖЕТ возвращать строки!

Подробнее здесь: https://stackoverflow.com/questions/797 ... rom-vb-net