前言
结对作业要求一出来,我就立刻想到了把“计算核心”封装成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的资料少之又少。写下这个方法,希望能给一些新手一点帮助。