跟我一樣，很多初學者確實很難編寫出如題的DLL，即使編寫出來也經常在呼叫過程中出現各種問題。我根據摸索寫出了一個DLL，編譯和呼叫程式碼活得通過。

以下舉例簡單說明，具體還有很多問題我也待繼續研究。

1.用Visual C++ 新建一個Win32控制檯 DLL專案（記得打鉤 空專案） 如：MyDll1

2.在標頭檔案新增 Mydll1.h

#pragma once 
#include <iostream>
//函式原型
int __stdcall Add(int a, int b);
void __stdcall  ShuChu();

3.在原始檔新增 Mydll1.cpp

#include "MyDLL1.h"
using namespace std;
int __stdcall Add(int a, int b)
{
return a + b;
}
void __stdcall  ShuChu()
{
unsigned long i = 1;
unsigned long ulNum = 50000;  //迴圈5萬次
while (ulNum != 0)
{
cout <<"The ulNum is: "<< i <<endl ;
ulNum--;
i++;
}
}

4.在專案選單下修改 Mydll1 屬性的配置如下（注意黑體粗體字部分)：

5.先把專案編譯一遍，得到一個Mydll1.map檔案，在這個檔案裡包括該dll檔案成員函式的名字修飾

因為作為初學者甚至是資深專家，都很難搞清楚成員函式名字修飾的規則，所以你必須要靠編譯器本身來弄清楚修飾名。

6.編輯MyDll1.def檔案為如下內容：

LIBRARY
EXPORTS
   Add = ?Add@@YGHHH@Z 
   ShuChu = ?ShuChu@@YGXXZ    

7.再次編譯該專案一次。

這樣就完成了一個可供VB.Net呼叫的Mydll1.DLL檔案，把該檔案拷貝進你要呼叫的VB.Net專案下的 \bin\Debug 資料夾下

8. VB.Net控制檯專案的程式碼如下（具體功用不再詳述）：

Private Declare Function Add Lib "MyDll1.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Private Declare Sub ShuChu Lib "MyDll1.dll" ()
   Sub Main()
Dim a1 As Integer
Dim S1 As DateTime, S2 As DateTime
Dim T1 As TimeSpan, T2 As TimeSpan
Dim i As Long = 1
Dim ulNum As Long = 50000
'==========================================================
S1 = Now
ShuChu()
S2 = Now
T1 = S2.Subtract(S1).Duration
'===========================================================
S1 = Now
While (ulNum <> 0)
    Console.WriteLine("The ulNum is:" & Str(i))
    ulNum -= 1
    i += 1
End While
S2 = Now
T2 = S2.Subtract(S1).Duration
Console.WriteLine(T1.TotalSeconds.ToString)
Console.WriteLine(T2.TotalSeconds.ToString)
'================================================================
a1 = Add(21, 34)
Console.WriteLine(a1.ToString)
Console.ReadLine()
   End Sub

9.修改VB.Net專案屬性/編譯/目標CPU 為x86

10.編譯執行成功！

通過這段VB.Net程式的執行結果，我們會發現：呼叫C++函式的執行效率其實並不如VB.Net同樣功能的程式碼執行效率高，這是為什麼呢？