Visual C++ 编写供 VB.Net调用的DLL- VB

vb.net教程https://www.xin3721.com/eschool/vbnetxin3721/

跟我一样，很多初学者确实很难编写出如题的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

        '============= 用VB实现以上调用函数的相同功能 ====================
        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)
        '============== 调用DLL 里的Add函数===========================
        a1 = Add(21, 34)
        Console.WriteLine(a1.ToString)

        Console.ReadLine()

    End Sub