标准DLL(VC)编写和VB调用

VC编写DLL几种方法的简介+

动态连接库最大的特点就是能节省磁盘空间.当多个进程共享同一个DLL的时候,内存中只有一个DLL的代码.通过映射来使各个进程得以调用.1.用VC建立一个WIN32 DLL我们利用VC编写DLL有几种方法.如果用VC建立一个WIN32 DLL 工程.那这个工程就应该只导出C++的类或全局变量.和全局函数.方法就是在CPP文件中编写你的代码,为每个需要导出的元素进行导出办法是增加如下语句:_declspec(dllexport)你当然可以把它定义成宏例如,如果是一个类STUDENT需要导出, 那么声明时应该是这样写class _declspec{dllexport) student;当然也可以定义时直接导出.我们的客户端,也就是我们调用该函数的客户程序,就需要导入这个类或者函数..填写如下语句:class _declspec(dllimport) student{} // 声明之后就可以利用STUDENT来构造对象,也可以调用它的成员函数..了记住,一定要把工程的连接设置好.要把生成的LIB文件填写好,因为客户程序要想加载DLL,能够准确的调用各个DLL中的函数,都是靠这个LIB文件哪.包括函数的地址等等.当然也可以显示连接利用LOADLIBRARY原型是HMODULE LoadLibrary( LPCTSTR );返回的HMODULE就是一个DLL句柄.所以我们在利用这个句柄来作为参数调用另一个函数GETPROCADDRESSFARPROC GetProcAddress( HMODULE , LPCSTR); //如果利用序号来索引,那么要加上MAKEINTERSOURCE宏返回一个函数指针,利用它来调用函数,LPCSTR是函数名,但你应该利用DUMPBIN来查看一下你导出的函数名,因为C++编译器支持重载,它会以自己的方式重命名.除非你用extern \"C\"用C语言的方式来命名函数.例如一个函数void fun();导出格式应该是extern \"C\" _declspec(dllexport) void fun(); //如果是声明导入函数,直接写原型,如果是声明类,那么一定要是类的头文件声明,包含了成员函数和数据成员的.注意即使是采用了C语言命名方式如果你改变了调用方式_stdcall 那么还是会改变函数命名的,除非你利用DEF文件来导出.EXPORTSfun这样是可以的.2.建立一个MFC扩展DLL扩展DLL是为了更好的支持MFC的类.你建立这个工程后会自动生成一些代码,不要管它先,你把你要动态连接的CPP和相应的.H文件加入到工程,在.CPP文件中需要导出的类上加上AFX_EXT_Class 在.H需要导入的类上加上同样的代码,这样就可以了.例如class AFX_EXT_CLASS CSTUDENT : public CPERSON //.CPP{}class AFX_EXT_CLASS CSTUDENT ; //.H{} //声明3.建立一个常规的DLL如果你要建立扩展的DLL,那么其他的IDE是无法利用的,因为每个编译器的命名方式是不同的.如果你想使其他IDE来调用VC的DLL,那么就建立一个常规的DLL.建立工程以后,编写你要导出的类.例如extern \"C\" _declspec(dllexport) void fun(){AFX_MANAGE_STA TE(AfxGetStaticModuleState( ));}在为每一个需要导出的函数的开头加上这条语句. [Page]在客户端要加上导入语句就可以了.。

（原创）VS2019VB如何生成DLL文件，调用DLL

（原创）VS2019VB如何⽣成DLL⽂件，调⽤DLL ⼀。

⽣成DLL1.打开VS2019,--->"创建新项⽬"------>"类库(NET Framework)---->下⼀步2. 输⼊项⽬名称：bell,3. 输⼊保存位置：D:\4. 点击右下⽅“创建”5.输⼊如下代码：Public Class LearnDLLFunction ABC()ABC = "你好！我学学怎么建⽴DLL⽂件，并怎么调⽤。

"End FunctionEnd Class5.按F5或启动------> "确定"6.这时，在如下⽂件夹中就⽣成了：D:\BELL\bin\Debug\BELL.dll⼆.调⽤dll⽂件1.在vs2019中新建window窗体应⽤程序2. 输⼊项⽬名称：WindowsApp13. 输⼊保存位置：D:\4. 点击右下⽅“创建”5.在窗体Form1中，添加Textbox1控件：6.项⽬----添加引⽤7. 浏览 D:\BELL\bin\Debug\BELL.dll---->添加8.在BELL.DLL前打对号----->确定9.双击Form1窗体，在代码页输⼊⼀下代码：Public Class Form1Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadDim Goodmood As New BELL.LearnDLLTextBox1.Text = goodmood.ABCEnd SubEnd Class10,编译运⾏。

VB, VC, CSharp混合编程-动态库相互调用

如何在VS2008下开发跨开发平台的程序为继承和使用在不同开发平台（VC++6.0, C++Builder, , C#.NET, ）下的已有代码和程序，允许多开发人员合作且分工开发，允许各开发人员使用自己擅长的开发平台，但最终会集合到VS2008开发环境中，这需要在VS2008开发环境下，能够实现代码或程序的共享。

为跨平台/多人员协作模式提供良好的途径，是大型软件开发之必需。

变量类型对照表.xls1．VC++.NET 如何生成VC++ Win32 DLL (*.dll)VC++ Win32 DLL即VC++6.0环境下的DLL。

●File->New Project…●Other Languages->Visual C++->Win32 Project，在Name框内输入Win32 DLL名称，比如“DLLTray”->OK●Next选择DLL->Finish。

一个动态库框架形成。

●为确保能被外部程序调用，VC动态库函数需要设置成__stdcall。

头文件(*.h)中加入该函数的声明语句(DLLTray.h)。

#include<windows.h>int__declspec (dllexport) __stdcall SearchNum_Win32(int number);●可执行文件(*.cpp)中加入执行实现代码(DLLTray.cpp)int__declspec (dllexport) __stdcall SearchNum_Win32(int number){return number + 10;}●Def文件中加入(DLLTray.def)LIBRARY "DLLTray"EX PORTSSearchNum_Win32DLLTray.DLL源代码-2．如何生成，C#.NET，VC++.NET可执行程序(*.exe)或类库(*.dll)File->New Project…->Windows Forms Application (or Class Library, Console Application)3．如何调用Windows API或VC++ Win32 DLL在的可执行程序里重新声明该函数，声明后即可作为自己的函数进行调用。

(完整版)Vb写dll基础

Visual Basic 编写DLL
编写一个简单的DLL
打开VB6.0,新建工程选择ActiveX DLL
修改工程名，工程名将决定生成的DLL的名称，这里顺便把自动生成的类的名称也修改
在类中添加一个方法（sub，或function ）来测试这个DLL
生成一个DLL
调用这个DLL
再新建一个Exe工程
在这个Exe工程里找到并引用刚才生成的DLL
在Exe工程里使用
生成Exe文件，并关闭Exe工程，运行此Exe文件，点击测试DLL
运行效果
关闭Exe,修改DLL工程的属性，并修改DLL的clsTest1.MyMsgbox 方法
重新编译生成新的DLL，并再次运行刚才的Exe文件，点击测试DLL 查看效果：
这说明一点，通过DLL我们不需要重新编写编译Exe文件，只要重新编译DLL文件即可在实际编程中，各个DLL各司其职，组成功能强大，分工明确的软件
比如QQ旋风
DLL公开函数、方法（直接调用，就像调用公共模块中的公共函数一样）
新建一个DLL，命名为test2,并设置自动生成的Class1 的Instancing 属性为
6- GlobalMultiUse（这个类的各种属性和方法可以象简单的全局函数那样被调用。

该类的实例不需要显式创建，因为它会自动创建。

）
我们在这个Class1 中写入一个函数
生成DLL文件
再新建一个Exe工程，并引用这个DLL，然后调用这个DLL的函数进行测试
运行效果：。

在vb中生成dll文件并且调用的方法.

在vb中生成dll文件并且调用的方法.一、DLL制作1．打开新建工程2．选择“Active DLL”，单击“打开”按钮。

3．单击打开按钮后，系统在工程中添加一类模块。

4．为方便对DLL的引用可以改一下名称，如将类模块的名称改为Fraction。

5．在本类模块中添加代码如下。

Option ExplicitPublic NumPublic DenPublic Sub Add(NUm2, Den2)Num = NUm2 + Den2End SubPublic Sub Sbt(NUm2, Den2)Num = NUm2 - Den2End SubPublic Sub Mul(NUm2, Den2)Num = NUm2 * Den2End SubPublic Sub Div(NUm2, Den2)Num = NUm2 / Den2End Sub6．为与其他工程相区别，可将本工程命名为“Math”。

7．生成DLL文件。

二、DLL引用1．建立一个普通窗体。

2．添加引用。

3．在程序中添加以下代码。

Option ExplicitPublic Frac As New Fraction Private Sub Command1_Click() Frac.Add Val(Text1.Text), Val(Text2.Text) Text3.Text = Frac.NumEnd SubPrivate Sub Command2_Click() Frac.Sbt Val(Text1.Text), Val(Text2.Text) Text3.Text = Frac.NumEnd SubPrivate Sub Command3_Click() Frac.Mul Val(Text1.Text), Val(Text2.Text) Text3.Text = Frac.NumEnd SubPrivate Sub Command4_Click() Frac.Div Val(Text1.Text), Val(Text2.Text) Text3.Text = Frac.NumEnd SubPrivate Sub Command5_Click()Text1 = ""Text2 = ""Text3 = ""End Sub 4．运行程序。

用VB调用VC编写的DLL

这些函数名要用做 VB 中声明时的别名。
如果声明时不带别名会出现“Dll 调用约定错误”。
VB 中编写如下代码运行即可：
Option Explicit
Private
Declare
Function
FuncInDll
Lib
"E:\Computer
Science\dll\liudll\dll_withLibAndH.dll" Alias "_FuncInDll@12" (ByVal a As Long,
如何用 VB 调用 VC 编写的 DLL
——DLL 内函数调用采用别名首先用 C++编写： dll_withlibAndH.h 如下： extern "C" __declspec(dllexport) int __stdcall FuncInDll (int a);
dll_withlibAndH.cpp 如下： #include <objbase.h> #include <iostream.h> #include "dll_withLibAndH.h"//看到没有，这就是我们增加的头文件
创建一个.bat 文件并输入：
Cl/c dll_withLibAndH.cpp
Link/dll dll_withLibAndH.obj 之后运行此批处理文件即生成 dll_withLibAndபைடு நூலகம்.dll 文件。用 Dll 函数查看器（Viewdll
程序）查看此 dll 文件内的函数，此处为_FuncInDll@12（12 为此函数的参数字节数），
ByVal b As Long, ByVal c As Long) As Long

MarlabSimulink(2014a)生成C++代码,并用VC2010生成dll供VBA或VB调用使用说明

MarlabSimulink(2014a)生成C++代码，并用VC2010生成dll供VBA或VB调用使用说明一、过程概述1、使用VC2010生成.dll文件，测试VC程序是否正常2、使用VBA调用VC2010生成的.dll文件，测试.dll文件调用的VBA代码是否正常，这里使用Excel VBA主要是为了以后输入输出数据更方便。

3、使用MatlabSimulink模型编译成c++文件。

4、VC2010集成MatlabSimulink生成的c++代码，验证在VC2010环境下能正常运行。

5、VC2010将生成的程序编译成.dll文件，以便于VB调用6、使用步骤1,2验证MatlabSimulink生成的代码二、具体实施过程描述1、使用VC2010生成.dll文件1.1工程建立首先打开VS 2010--> 新建工程 --> Win32 --> Win32项目 --> 输入工程名称(MakeDll)，选择好保存工程的路径-->确定。

在弹出的“应用程序设置”--> "应用成程序型" --> 选择 "DLL(D)" --> 附加选项-> 选择"空项目(E)" ---->点击"完成"进入项目工作窗口1.2开始创建DLL第一步：在头"解决方案资源管理器" --> 头文件 --> 右键 -->添加新建项---→选择"头文件(.h)" -->输入文件名称(max) --> 点击“添加(A)”，完成max.h文件的添加。

max.h头文件中的代码为：1. #ifndef _MAX_H2. #define _MAX_H_3. __declspec(dllexport) int __stdcall fmax(int a,int b);4. #endif代码说明：__declspec(dllexport) 的作用是指定导出该函数为DLL函数；__stdcall是函数调用约定,表示该DLL函数被C/C++以外的语言调用;备注：使用时需要根据实际定义的主函数返回值类型和函数名称修改低3行红色而自体标记部分内容。

vb和vc混合编程实例（ocx和dll）

vb和vc混合编程实例（ocx和dll）（转载）前⾔:由于以前⽤vb和vc++封装过dll和ocx⽂件. 或者在⽹上下的类;若重新编写和封装会很费时和费⼒. 如vb简单易⽤，对数据库操作通⽤类进⾏封装.现在vc中可以引⽤之。

另外由于vc执⾏效率⾼，某些较复杂算法或低层处理可在vc中进⾏封装. 这样经常要求混⽤.下⾯是实际中个例⼦记,分vb6.0,vc++各⾃创建和调⽤四个部分1: vb能封装ocx和active dll⽂件. 注意 active dll是⼀种动态，在被调⽤环境中不仅引⽤这个dll，⽽且还要引⽤这个dll所引⽤的其它⽂件,如 DBCommom.dll 是个数据库操作类封装，它引⽤了Ado 接⼝).其创建略,具体引⽤见后.2.vc中做dll时注意要提供接⼝，供其它程式调⽤.a>创建 win32 Dynamic-Link Library 如项⽬CMyTestDllb>加⼊成员function(在 .h中申明 .cpp中实现)//取电脑名称int CMyTestDll::GetComputerNameE(LPTSTR computer_name){DWORD buf=255;LPTSTR strname=new char[buf];if(GetComputerName(strname,&buf)!=0){strcpy(computer_name,strname);return 1;}return 0;}//计算两个值之和int CMyTestDll::Sum(int a, int b){return(a+b);}c.>⼀定要加上CMyTestDll.def ⽂件，并在在其中定义导出各个function及参数,否则不能被调⽤EXPORTSGetComputerNameE @1;Sum @2; @3;d.>编译成dll便可以.最好每个function定义int为返回值.3.vb引⽤vc中dll 和普通API函数⼀样.(vb的long对应 vc的int)'引⽤Private Declare Function GetComputerNameE Lib "⽬录\MyTestDll.dll" (ByVal strName As String) As LongPrivate Declare Function Sum Lib "⽬录\\MyTestDll.dll" (ByVal g As Long, ByVal b As Long) As Long'调⽤Dim str As String * 20 ' 注意对于传址，⼀定要定义其空间⼤⼩(数组可以不指定)dim a As Long, b As Longa=25 b=78result = GetComputerNameE(str)result=Sum(a, b)4.vc引⽤vb中ocx和dll如 C:\TestVb\DBCommon.dll 是个vb做的数据库通⽤类。

(完整版)vb调用vc的DLL

4.1 新建工程打开在VC++6.0，new 一个Win32-Dynamic-Link Library 工程dlltest4.2 在工程中添加代码4.2.1 添加lib.h 文件：#ifndef _LIB_H_ #define _LIB_H_ extern “ C” int__stdcall add(int,int) ;extern “ C” int __stdcall sub(int,int) ;/*__stdcall 约定如果通过VC++ 编写的DLL 欲被其他语言编写的程序调用，应将函数的调用方式声明为__stdcall 方式，WINAPI都采用这种方式，而C/C++缺省的调用方式却为__cdecl。

__stdcall 方式与__cdecl 对函数名最终生成符号的方式不同*/ #endif4.2.2 添加lib.cpp 文件：#include “ lib.h ”int __stdcall add(int a,int b) {return a+b ;}int __stdcall sub(int a,int b) {return a-b ;}4.2.3 添加lib.def 文件：右击SOURCE FIL E录，添加一个文本文件(不能是word文档，一般是txt 格式的)，将文档重命名为lib.def ，点击打开该文档。

在文档中输入代码：LILBRARY dlltestEXPORTSadd @ 1sub @ 2说明：DLL函数的导出有两种方式。

一种是显式导出：在.h 文件中在函数声明前加入如下语句：__declspec(dllexport) 。

使用该方法是不用添加.def 文档的。

该方法导出的函数，只能被C或C++调用，不能被其他语言调用。

一种是隐式导出：就是在SOURCE FIL目录中添加一个.def文档，在该文档中写入要导出函数的代码。

.def 语法规定注释用分号(;), 且注释不能与代码共享一行，代码说明如下：LIBRARY dlltest；该语句说明了相应的DLL工程。

编写C语言DLL,及C调用DLL(VS2010)

一、编写Dll文档1.新建一DLL项目dll2.#include"stdafx.h"#include"windows.h"#include"dll.h"#pragma comment(lib,"dll.lib")int _tmain(int argc, _TCHAR* argv[]){HelloWorld();return 0;}3.// dllmain.cpp : 定¡§义°? DLL 应®|用®?程¨¬序¨°的Ì?入¨?口¨²点Ì?。

¡ê#include"stdafx.h"#include"dll.h"#include<windows.h>#include<stdio.h>#include<stdlib.h>void HelloWorld (){MessageBox (0, L"Hello World from DLL!\n", L"Hi", MB_ICONINFORMATION);}BOOL APIENTRY DllMain (HINSTANCE hInst /* Library instance handle. */ ,DWORD reason /* Reason this function is beingcalled. */ ,LPVOID reserved /* Not used. */ ){switch (reason){case DLL_PROCESS_ATTACH:break;case DLL_PROCESS_DETACH:break;case DLL_THREAD_ATTACH:break;case DLL_THREAD_DETACH:break;}/* Returns TRUE on success, FALSE on failure */return TRUE;}4.生成菜单下的重新生成解决方案，即得到dll和lib文件，如图：至此DLL文件建立完成。

如何用VC创建及调用DLL

如何用VC创建及调用DLL使用Visual C++（VC++)创建和调用动态链接库(DLL)可以提供一种模块化的方式来组织和重用代码。

本文将介绍如何使用VC++创建DLL，并在另一个VC++项目中调用该DLL。

创建DLL以下是使用VC++创建DLL的步骤：1.打开VC++，在“文件”菜单中选择“新建”->“项目”。

2. 在“新建项目”对话框中，选择“Win32控制台应用程序”。

点击“下一步”。

3.输入项目名称，并选择项目位置，点击“下一步”。

4.在“应用程序类型”对话框中，选择“DLL”并取消勾选“预编译头”。

点击“下一步”。

5.在“进入代码”对话框中，选择“空项目”。

点击“完成”。

6. 创建一个新的源文件，例如“MyDLL.cpp”。

7. 在“MyDLL.cpp”中，编写所需的函数并导出。

例如：```C++#include <Windows.h>// 导出的函数需要使用__declspec(dllexport)修饰extern "C" __declspec(dllexport) int AddNumbers(int a, int b) return a + b;```8. 在项目属性中，选择“链接器”->“高级”，将“入口点”设置为“DllMain”。

9.在“生成”菜单中选择“生成解决方案”，以生成DLL文件。

以下是在VC++项目中调用DLL的步骤：1.打开VC++，在“文件”菜单中选择“新建”->“项目”。

2. 在“新建项目”对话框中，选择“Win32控制台应用程序”。

点击“下一步”。

3.输入项目名称，并选择项目位置，点击“下一步”。

4.在“应用程序类型”对话框中，选择“控制台应用程序”并取消勾选“预编译头”。

点击“下一步”。

5.在“附加选项”对话框中，勾选“空项目”。

点击“完成”。

6.将之前生成的DLL文件复制到新项目的文件夹中。

7.在项目属性中，选择“C/C++”->“常规”，将“附加包含目录”设置为包含DLL文件的文件夹路径。

在VB中调用DLL的方法

在VB中调用DLL的方法方法一：使用Declare语句VB中可以使用Declare语句来声明DLL函数，然后直接调用该函数，具体步骤如下：1.确保DLL文件已经存在，并了解所要调用的DLL函数的名称、参数和返回值类型。

2. 在VB代码的模块级别上，使用Declare语句来声明DLL函数，语法如下：Declare Function functionName Lib "dllFileName" ([参数列表]) As 返回值类型其中，functionName是要调用的DLL函数的名称，dllFileName是DLL文件的名称（带有扩展名），[参数列表]是DLL函数的参数列表，如果没有参数，则可以省略；返回值类型是DLL函数的返回值类型。

3. 在需要调用DLL函数的地方，直接使用函数名进行调用，如：result = functionName([参数])其中，result是接收DLL函数返回值的变量。

4.运行程序，并检查结果是否正确。

方法二：使用COM组件如果DLL文件是使用COM组件进行编写的，可以使用VB的COM互操作性来调用DLL方法，具体步骤如下：1.确保DLL文件已经注册为COM组件，并了解所要调用的DLL方法的名称、参数和返回值类型。

2.在VB项目中添加对DLL文件的引用，方法是在“项目”->“引用”菜单下，选择“添加引用”，然后在“COM”选项卡中找到并选中DLL文件。

3. 创建一个COM对象，可以使用CreateObject或者New关键字，具体语法如下：Dim obj As ObjectSet obj = CreateObject("dllFileName.ClassName")'或者Dim obj As New dllFileName.ClassName其中，dllFileName是DLL文件的名称（不带扩展名），ClassName是DLL内部的类名。

【转】vb调用dll函数声明方法

【转】vb调用dll函数声明方法用vc写的DLL的有__stdcall才可以被其他的调用，所以。

vb调用16 位DLL 调用方法与32 位DLL 调用方法类同。

语法：[Public | Private] Declare Fun Function name Lib "li bname" [Alias "aliasname"]ction [([arglist])] [As type]Declare 语句的语法包含下面部分：Public 可选的。

用于声明对所有模块中的所有其它过程都可以使用的函数。

Private 可选的。

用于声明只能在包含该声明的模块中使用的函数。

name 必需的。

任何合法的函数名。

动态链接库的入口处（entry points）区分大小写。

libname 必需的。

包含所声明的函数动态链接库名或代码资源名。

Alias 可选的。

表示将被调用的函数在动态链接库(DLL) 中还有另外的名称。

当外部函数名与某个函数重名时，就可以使用这个参数。

当动态链接库的函数与同一范围内的公用变量、常数或任何其它过程的名称相同时，也可以使用Alias。

如果该动态链接库函数中的某个字符不符合动态链接库的命名约定时，也可以使用Alias。

aliasname 可选的。

动态链接库。

如果首字符不是数字符号(#)，则aliasname 是动态链接库中该函数的入口处的名称。

如果首字符是(#)，则随后的字符必须指定该函数的入口处的顺序号。

arglist 可选的。

代表调用该函数时需要传递的参数的变量表。

type可选的。

Function 返回值的数据类型；可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal （目前尚不支持）、Date、String（只支持变长）或Variant，用户定义类型，或对象类型。

arglist 参数的语法以及语法各个部分如下：[Optional] [ByVal | ByRe ByRef] [ParamArray] varnam e[( )] [As type] 部分描述：Optional可选的。

如何用VB编写自己的DLL文件，并调用其中的函数

如何用VB编写自己的DLL文件，并调用其中的函数一、VB编写自己的DLL文件1.新建一个VB工程，工程类型为ActiveX DLL类型。

2.设定工程的名字和类模块的名字。

这里我使用的工程的名字是DLLTest，类模块的名字是Class1。

3.在类模块中写入要封装的函数这里我写了一个计算长方体的体积的函数，代码如下：1.Function calVolume(ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double2.calVolume = a * b * c3.End Function4.保存工程，并生成Dll文件。

通过选择”文件“->”生成DllT est.dll“，生成Dll文件。

至此，完成Dll文件的制作。

二、如何调用自己制作的Dll文件中的函数1.新建一个VB工程，工程类型为标准EXE类型。

2.注册制作的Dll文件。

注册命令格式为：regsvr32 dll文件的绝对地址名称举例说明：比如我把上面我生成的DllTest.dll放在了E盘的VbTest文件里面了，那么我的注册命令为：regsvr32 E:\VbTest\DllTest.dll。

如果注册成功，系统会有弹窗提示。

（测试发现，注册dll文件时，路径文件夹的名字不能有空格）3.在工程中添加相关引用。

”工程“->”引用“->”DllTest“，在DllTest前面打上对勾，即可。

4.编写调用Dll文件的相关代码。

这里我在主窗体中添加了一个按钮，在按钮里面写入了如下代码：Private Sub Command1_Click()Dim MyObj As DllT est.Class1 Set MyObj = New Class1Dim aa As DoubleDim bb As DoubleDi m cc As DoubleDim tempVolume As Doubleaa = 1.1bb = 2.2cc = 3.3tempVolume = MyObj.calVolume(aa, bb, cc)MsgBox temp VolumeEnd Sub另外，我添加了一个模块，在模块中写入了如下代码：Public Declare Function calVolume Lib 'DllTest.dll' (ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double5.至此结束。

vb动态加载dll的一个类,实现vb动态加载dll并动态调用dll导出的函数的一个方便办法

vb动态加载dll的一个类,实现vb动态加载dll并动态调用dll导出的函数的一个方便办法自从会vb用调用动态库函数以来,我一直在想:如何动态的调用dll 里的函数?网上有一个用CallWindowProc函数的方法,不过我还是喜欢自己有个办法.今天工夫不负有心人,我终于把我心中一直想的办法给实现了,干脆就往自己的空间上贴吧.错误的地方,希望可以得到有这方面的师傅给以指正,以求进步!对于系统api我没有尝试,如果调用约定相符,应该适用于对系统api的调用.我自己用c写个dll,然后在vb里写了这个类.以下代码只是我简单的实现,主要的是看实现的道理.vc代码:///'我把dll文件名命名为:dll#include <Windows.h>#include <stdlib.h>#include <string.h>#include 'stdafx.h'BOOL APIENTRY DllMain( HANDLE hModule,DWORD ul_reason_for_call,LPVOID lpReserved){return TRUE;}extern 'C' BOOL _declspec(dllexport) add(int a){MessageBoxA(NULL,'运行在dll里!','成功',MB_OK);return 1;}///vb代码:'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''类代码:Private 状态标志 As BooleanPrivate 模块句柄 As LongPrivate 本地函数地址备份(0 To 4) As BytePrivate 被替换函数的地址 As LongPublic Function 替换函数地址(模块名As String, 函数名As String, 本地函数地址 As Long) As BooleanIf 0 = 本地函数地址 Then替换函数地址 = 0Exit FunctionEnd If被替换函数的地址 = 替换函数地址Dim 函数地址 As LongDim a As LongDim 跳转指令(0 To 4) As Byte'加载模块模块句柄 = LoadLibrary(模块名)If 0 <> 模块句柄 Then'状态标志 = 1Else:替换函数地址 = 0Exit Function'检索函数地址函数地址 = GetProcAddress(ByVal 模块句柄, ByVal 函数名)If 0 <> 函数地址 Then'状态标志 = 1Else替换函数地址 = 0Exit FunctionEnd If'计算跳转地址a = 函数地址 - (本地函数地址 + 5)'构造跳转地址跳转指令(0) = 233a = WriteProcessMemory(-1, ByVal VarPtr(跳转指令(1)), ByVal VarPtr(a), 4, 0)If 0 = a Then替换函数地址 = 0Exit FunctionEnd If'先备份本地函数入口指令a = WriteProcessMemory(-1, ByVal VarPtr(本地函数地址备份(0)), ByVal 本地函数地址, 5, 0)If 0 = a Then替换函数地址 = 0Exit FunctionEnd If'写入跳转指令a = WriteProcessMemory(-1, ByVal 本地函数地址, ByVal VarPtr(跳转指令(0)), 5, 0)If 0 = a Then替换函数地址 = 0Exit FunctionElse:状态标志 = 1替换函数地址 = 1End IfEnd FunctionPublic Function 还原函数地址() As BooleanIf 0 = 状态标志 Then还原函数地址 = 0Exit FunctionEnd IfDim a As Longa = WriteProcessMemory(-1, ByVal 被替换函数的地址, ByVal VarPtr(本地函数地址备份(0)), 5, 0)If 0 = a Then还原函数地址 = 0Exit FunctionElse:状态标志 = 0还原函数地址 = 1End IfFreeLibrary 模块句柄End FunctionPublic Function 当前状态() As Boolean当前状态 = 状态标志End Function''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''vb普通模块代码:'读写内存的api函数Public Declare Function WriteProcessMemory Lib 'kernel32' (ByVal hProcess As Long, ByVal _lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long'加载模块的api函数Public Declare Function LoadLibrary Lib 'kernel32' Alias 'LoadLibraryA' (ByVal lpLibFileName As String) As Long '检索模块里函数地址的api函数Public Declare Function GetProcAddress Lib 'kernel32' (ByVal hModule As Long, ByVal lpProcName As String) As Long 'Public Declare Function FreeLibrary Lib 'kernel32' (ByVal hLibModule As Long) As Long'模拟一个函数与dll里,我们想调用函数类型和参数一致, 用类将函数的地址替换Public Function 测试函数(参数 As Long) As Boolean'我们随便给返回0,因为这个指令将不会被程序执行到测试函数 = 0End Function''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''vb窗口模块代码:Private Sub Form_Load()Dim 模块名 As String, 函数名 As String模块名 = App.Path + '/dll.dll''模块名现在可以自己定了,自由了!函数名 = 'add'Dim p As BooleanDim aa As New Class1p = aa.替换函数地址(模块名, 函数名, AddressOf 测试函数) If p Then测试函数 0'将会弹出对话筐:运行在dll里!aa.还原函数地址End IfEnd Sub'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''。

Visual Studio DLL的封装和调用教程

Visual Studio DLL的封装和调用教程1.新建一个C#类库项目。

2.输入自己想要的代码。

（本教程以一个物理公式为例。

）using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;namespace Grade8Physics{public static class Class1{public static double speedv(double s, double t){if (t > 0){return s / t;}else{return 0;}}}}3.生成解决方案。

4.打开生成目录，复制DLL。

5.粘贴到要调用它的项目目录中。

6.打开这个项目。

7.添加引用，引用刚才的DLL。

8.打开对象浏览器，就能看到刚才DLL中的对象，它可以在任何编程语言之间通用，所以你编写时可以根据自己的爱好选择与此示例不同的编程语言。

8.在代码中调用，实现其功能。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Label4.Text = Grade8Physics.Class1.speedv(Val(TextBox1.Text), Val(TextBox2.Text)) End Sub9．运行结果。

在VB中调用DLL的方法

1制作好DLL之后，就可以用VB调用它，实现VB调用C程序。

VB程序要使用DLL中的函数，首先必须要有特殊的声明，用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明，将动态链接库中的函数声明到VB中，供VB程序调用。

语句格式为：Declare Sub过程名Lib[Alias"别名]（[ByVal参数AS类型]），或为Declare Function函数名Lib[Alias"别名]（[ByVal参数AS类型]）AS类型在声明中首先用Declare 关键字表示声明DLL中的函数。

在C语言中有的函数类型为VOID，它表示不具有返回值，则必须用关键字Sub将其声明成过程。

有的函数具有返回值，则必须用关键字Function将其声明成函数，并且在声明语句的最后要用AS关键字指明函数返回值的类型。

例如上面的ADD.DLL在VB中就可以声明为：Declare Function ADD Lib“c:\ADD.dll”(ByVal X AS Integer,ByVal Y AS Integer,ByVal filein asstring）AS Integer通过此声明语句将函数ADD声明到VB中，便可直接调用。

2、dll文件中的函数好像是C语言写的,//函数名:int__stdcall GetMacNo(int*MacNo)//功能：获取卡机的卡机号(单机时)//参数:MacNo[0]-被读出的卡机号//返回值：0-成功,//2-PC接收超时，//3-应答错误dll的文件名是COMM232.dll函数的形参int*MacNo是指针吗?在VB中应该怎么声明和调用该函数?VB里也可以定义指针吗?问题补充：vb调用dll文件中的函数我是会的,但这儿的形参有一个星号才不知是怎么一回事,我是这样声明的对吗?Public Declare Function GetMacNo Lib"COMM232.dll"(ByVal MacNo As Integer)As Integer又应该怎么调用呢?要先定义一个指针的变量再传给*MacNo还是要怎么做?都说了MacNo是被读出的卡机号，那么就是传址的了。