关于在VB.NET中调用使用VC++编写的类库dll的一点笔记
前言
结对作业要求一出来，我就立刻想到了把“计算核心”封装成dll，然后使用vb.net编写UI调用dll的思路。然而在实现过程中却遇到了很多的问题。
我在这个过程中是负责使用vb.net编写UI并调用编写好的DLL进行计算的。
目标
使用c++把类封装到dll，并在vb.net中调用该dll，使用该dll中封装好的类。在查找资料的过程中，发现vb.net调用dll的方法主要有两种。
（IDE:Visual Studio 2013 professional）
方法一：使用Declare语句
vb.net:
Public Declare Function getChar Lib "DllFunction.dll" (ByVal strName As String) As String
由于Declare语句只能声明函数，因而我尝试用c语言写了一个dll，也可能是我水平太渣不知道怎么写dll，采用了多种方法仍然不行。
执行后报错如下：
“System.EntryPointNotFoundException”类型的未经处理的异常在 PairProgram.exe 中发生 其他信息: 无法在 DLL“DllFunction.dll”中找到名为“getChar”的入口点。
在这种方法中，对于vb和c中字符串不兼容的问题，不少资料表示在vb.net声明的时候将string声明为ByVal，即可正常传参给c语言中char*类型。本例中没能进行测试。
另外，Declare语句是Visual Basic提供的语句，个人感觉已经是比较过时的语句了。
方法二：使用DllImport
该方法首先需要导入包：
Imports System.Runtime.InteropServices
然后使用DllImport：
<DllImport("d:\DllFunction.dll")> Function getC(ByVal lpClassName As Integer) As Integer
End Function
只可惜，直接出现了语法错误，不能编译。报错如下：
“System.Runtime.InteropServices.DllImportAttribute”不能应用于实例方法。
该错误的具体解释，我并没能在百度上找到相关资料，也许只能在一些不存在的网站上才能找到。
Dllimport是属于.net Framework的，可以在.net Framework下的各个语言中使用，如C#。
方法三：编写类库并添加引用。
第三种方法是在得知类库后偶然想到的，在搜索过程中并没有找到这样的思路。
首先我们使用c++编写dll：
新建一个Visual C++ Class Library空项目，在打开的.h中键入如下代码：
#include<string>
#pragma once
using namespace std;
namespace testDll2 {
public ref class Class1
{
public:
int getInt(int k) {
return k;
}
string getString(string s) {
return s;
}
};
}
然后build solution得到testDll2.dll。
新建一个Visual Basic Forms Application
点击项目(Project)->添加引用(Add Referance)，添加刚刚得到的testDll2.dll。此时，我们已经能够直接使用testDll2.dll中的Class1了。
Dim a As New testDll2.Class1 MsgBox(a.getInt(233), MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Title - getInt")
可得如下结果：
但是我们发现一个问题：我们并不能调用a.getString(s)方法，这个方法根本没有被引用，原因很简单，c++的std::string和vb中的String类并不兼容。
经过多次尝试，最中找到了解决方案，那就是使用System::String，并在代码中使用String^。
C++：
// testDll2.h
#pragma once
using namespace System;
namespace testDll2 {
public ref class Class1
{
public:
int getInt(int k) {
return k;
}
String^ getString(String^ s) {
return s;
}
};
}
这样，在vb.net中便可以识别并正常使用getString()函数。
MsgBox(a.getString(ExpBox.Text), MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Title - getStr")
执行结果如下：
后记
学会了以后才发现其实这是个非常简单的事情，最后的解决方案一两分钟就能讲完，也没有任何技术难度。大神们觉得这么简单没有必要说，渣渣们在门口徘徊就是进不去。受制于各方面的原因，vb.net的各方面资料在网上远不如c/c++、Java那么多。仅剩的一些资料中，很多内容仍然是十几年前不含.net的纯vb内容（找到的最多的解决方案就是使用Declare语句），一部分又是c#.net的内容，真正点中vb.net的资料少之又少。写下这个方法，希望能给一些新手一点帮助。
