vb编写DLL学习
VB DLL实例分步讲解
VB封装DLL实例讲解（一）一、DLL基本概念（一）概念DLL即动态链接库（Dynamic Link Library），是由可被其它程序调用的函数集合组成的可执行文件模块。
DLL不是应用程序的组成部分，而是运行时链接到应用程序中。
（二）主要优点：1、多个应用程序可以共享一个DLL，而且当多个应用程序调用库的同一个函数时，可执行文件中装入的只是该函数的内存地址，从而节省内存和磁盘空间；2、使用动态链接库易于我们维护用户程序，即使对动态链接库进行修改也不会影响用户程序；3、从ACCESS角度而言，还可以更好的确保核心代码的安全。
二、用VB封装VBA代码，构建自定义的DLL动态链接库（一）ACCESS中实例代码下面是一个“快速提取字符串中数字.mdb”实例（该实例在文件包中），单击“提取结果”按钮，将文本框中的数字在弹出消息显示出来。
我将就这个实例演示如何将该实例VBA代码封装成为DLL。
按钮单击事件代码如下：Private Sub CmdFindnumber_Click()Dim strM As String '初始字符串Dim strOut As String '输出字符串变量Dim IstrM = Me.Text1'从第一个字符向最后一个字符循环,以提取每个字符For I = 1 To Len(strM)'判断是否为0到9字符,是则赋值输出If Mid(strM, I, 1) Like "[0-9]" ThenstrOut = strOut & Mid(strM, I, 1)End IfNext I'用MsgBox函数进行输出测试End Sub以上代码还不能直接用于封装，须将其修改成为公用函数(过程)（二）VB 封装实例中VBA 代码步骤一：在VB 编辑窗中，点菜单【文件】-【新建工程】，打开新建工程窗口步骤二：修改工程名，这即生成的DLL 库名步骤三：修改类名步骤四：在代码窗口输入如下代码。
（原创）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写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开发DLL
在动态链接技术中，模块和程序是分离的，模块独立于程序而存在于另一个分离的dll 文件中，这个dll 文件是动态链接到程序中的。
文件是动态链接到程序中的。
那如何在vb 中编写一个DLL 程序呢？程序呢？首先，新建一个工程，然后先中“Ac veX Dll ”工程。
”工程。
然后开始编辑，往程序中添加你需要的部件和控件。
然后开始编辑，往程序中添加你需要的部件和控件。
编辑完成后，保存工程，工程一般是以“.vbp ”文件保存，定义的类以“.cls ”和“.vbw ”文件保存，窗体以“.frm ”文件保存，添加的模块一“.bas ”文件保存……。
接着选择“文件”菜单，弹出下拉框，选中“生成.dll ”选项，它就会在上面弹出一个进度条“正在生成.dll 文件”。
生成以后是一个有好象齿轮状的图标。
生成以后是一个有好象齿轮状的图标。
当你需要在其他的程序中调用这个dll 的时候，需要在系统中注册一下，具体的过程是开始->运行->打开”C:”C:\WINDOWS\system32\\WINDOWS\system32\\WINDOWS\system32\regsvr32.exe”regsvr32.exe”，然后找到你要注册的控件的路径，添加在regsvr32.exe 的后面。
的后面。
如果你要引用，就开一个“标准EXE ”工程，然后在“工程”选项中，单击“引用”，找到你刚才的“.dll ”的文件名，在前面的复选框中打勾，就可以引用你刚才在那里面写的方法等。
方法等。
Public Func on DllMain(hinstDLL As Long, // long 类型包含dll 的instance handle 句柄. 也是dll 的模块句柄的模块句柄 fdwReason As Long, // 常数标识，入口点为何被调用常数标识，入口点为何被调用lpwReserved As Long //long 类型提供关于类型提供关于 DLL_PROCESS_ATTACH(DETACH)的信息的信息 ) As BooleanfdwReason 通常的取值通常的取值DLL_PROCESS_ATTACH (1)进程装载了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的插件了，但是不是向网上所谓的替换某文件然后在复制什么文件然后在链接编译（真的有些懊恼，敢问写这文章的作者是怎么做到的，反正我是按照他的思路和方法去做了的，用VB6.0没办法编译出来，压根我可能有被忽悠了。
）标准的DLL插件是由“予心居” (记住这位大哥的名字，嗯，好人啊！)编写成的，标准的DLL也是很方便，而且还有很多你想不到的实用功能哦！好了，说了那么多，还没有进入主题，抱歉大家。
下面我们来做个小实例吧。
1：安装所需要的插件啦，这里提供两个下载方式：下载地址1：/ftn_handler/4f578214bc485 3618a778dbd701be3b85aa183a27e5da32a121fef179671bdaa620 b3053ac6076f96f050795264879c5d0381a33da559cae68941016a f7ba337/DLL%E6%8F%92%E4%BB%B6.exe?k=7537393161139cc705a7ee3547635617570601555802020a18010d07034e500d07521453 595557155702015759565c5c07005d576168647c797b8bd4dd9d4a 5d4d52390c&fr=00&&txf_fid=000000007f2437f4c00541329f3f cccfb0bb7256右键复制迅雷下载‘---------------------------------------------QQ群共享下载下载地址2：群号：34928986 （加群请注明VB编程）这个是永久共享的，上面那个是文件中转站的。
大家也别说我这不好那不好的了，其实现在学VB的人是在太少了。
很想结识一些和我一样共同志向的朋友！‘---------------------------------------------2：我们用编译一个标准的动态链接库，其功能实现按钮的特效，如图：我们首先创建一个DLL工程：如图：然后新建一个类模板：如图：（大家也别说我烦，这是对新手考虑，因为我也是新手过来的）在类模板输入代码（也不多说了，这个代码是网上随便找的，觉得好可以，所以就拿来给大家示范了。
VB制作可输出函数DLLrar自解压去右键DLL源代码.doc
VB制作可输出函数DLL （标准DLL ）无需注册，只要放在程序同目录内就可以调用，非常方便。
其实可用的方法有很多种，下面介绍的这个是我用到现在最可靠的的，里面的C2.EXE和link.exe ,因为时间长了记不得是那个作者的了 ,忘作者见谅。
第一步、准备工作1、编译新的 C2.EXE,和 link.exeo&************新的 C2 EXE**********************************新的C2.exe程序建立新工程，不需要窗体，只要一个模块放上下面的main过程，工程属性里面启动对象Sub mainPublic Sub Main()On Error Resume NextDim strCmd As String, strPath As StringDim oFS As New Scripting. FileSystemObjectDim ts As TextStreamstrCmd = CommandstrPath = App.PathSet ts = oFS. CreateTextFile(strPath & "2/og.F"丿ts. Write Line ''Beginning execution at " & Date & ” " & Time()ts. WriteBlankLines 1ts. WriteLiriw "Command line parameters to c2 call:nts.WriteLine " " & strCmdts. WriteBlankLines 1ts. WriteLine "Calling C2 compiler"Shell n c2comp.exe n & strCmdIf Err.Number <> 0 Thents. Write Line "Error in calling C2 compiler..."End If6************新白勺ts. WriteBlankLines 1ts. Write Line "Returned from c2 compiler call 9' ts.CloseEnd Sub编译成C2.EXE,不要直接覆盖，放在其他地方备用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
怎样用VB编写DLL文件？？？你先打开VB，然后先中“ActiveX Dll”工程，然后开始编辑。
编完后，保存一般是以“.cls”和“.vbw”保存。
这时你选择“文件”菜单，弹出下拉框，选中“生成.dll”选项，它就会在上面弹出一个进度条“正在生成.dll文件”。
生成以后是一个有好象齿轮状的图标。
如果你要引用，就开一个“标准EXE”工程，然后在“工程”选项中，单击“引用”，找到你刚才的“.dll”的文件名，在前面的复选框中打勾，就可以引用你刚才在那里面写的方法等。
在vb6里建新工程时选用建立dll 做好后用vb的引用就可以了VB中创建的DLL只是COM组件，无法作为输出函数的DLL，其实这只是个错误的说法。
其实MS 非常狡猾，如果你是个VB疯狂发烧友的话，应该早就狂试出这种可以创建输出函数的DLL的方法。
VB编译文件实际上采取了两次编译的方法，首先是调用C2.exe产生*.OBJ文件，然后调用Link.EXE连接。
如果在LINK的时候添加EXPORT选项，实际上是可以输出函数的。
但是，在VB的工程选项中将这些屏蔽了。
而且过分的是：VB在Build完成后会将OBJ文件删除，这样就无法手动通过Link来创建我们需要的DLL了。
不过我找到一个比较龌鹾的变通的方法，就是先创建一个Exe工程，在Form_Load事件里面写下面的语句:Sub MainIf MsgBox("哈哈", vbOKCancel) = vbOK ThenShell "link2.exe " & Command$End IfEnd Sub然后编译为LinkTemp.EXE，接下来将LINK.EXE改名为Link2.exe，将LinkTemp.EXE改名为Link.EXE。
这样在VB调用Link.EXE时会弹出对话框，处理就会中断。
这时就可以有机会将OBJ文件拷贝出来了。
然后我创建了一个ActiveX DLL工程，在这个工程里面添加一个Module并创建一个Public函数mathadd：Public Function mathadd(ByVal a As Long, ByVal b As Long) As Longmathadd = a + bEnd Function编译这个工程，在Link的时候就会中断。
然后把创建的Class1.obj、Module1.obj、Project1.obj备份出来。
然后就可以调用Link2.exe连接OBJ到DLL了，我的连接代码是：Link2.exe "e:\vbdll\Class1.obj" "e:\vbdll\Module1.obj" "e:\vbdll\Project1.obj" "E:\Program Files\Microsoft Visual Studio\VB98\VBAEXE6.LIB" /ENTRY:__vbaS /EXPORT:mathadd /OUT:"e:\vbdll\ProjectOK.dll"/BASE:0x11000000 /SUBSYSTEM:WINDOWS,4.0 /VERS注意里面的/ENTRY和/EXPORT开关，/EXPORT开关声明了输出函数mathadd。
这样就大功告成了，可以被其他语言引入，例如在VB中，只需要：Private Declare Function mathadd Lib "e:\vbdll\ProjectOK.dll" (ByVal a As Long, ByVal b As Long) As Long我现在已经有了一个DLL文件，然后已经编了一个上位机程序，我想将那个DLL动态连接文件直接调用到我的程序里，因为初学VB所以不知道怎么调用已有的DLL文件，请帮忙~~~ 问题补充：我刚才已经把DLL文件有复制到你说的那几个文件夹里了，可是运行.EXE时还是提示找不到DLL文件啊~~~~1. 我给做了个示例工程:/kkk.rar你下载来看看, 里面就两句:模块中定义:Public Declare Function fnMyFunc Lib "MYDLL.DLL" () As Long按钮中放入:Dim str1 As Stringstr1 = "函数调用成功"If (fnMyFunc() = 42) Then MsgBox str1 '注:我那个DLL函数就返回42,其它没有了.2. 下面重新给个微软的示例代码:下列示例示范如何使用Call 语句来将控制转移到子过程、内在函数、和动态链接库（DLL）过程，' 调用一个子过程。
Call PrintToDebugWindow("Hello World")' 上面的语句将控制转移到下面的子过程。
Sub PrintToDebugWindow(AnyString)Debug.Print AnyString ' 在“立即”窗口中显示。
End Sub' 调用一个内在函数，函数的返回值被忽略不处理。
Call Shell(AppName, 1) ' AppName 包含可执行文件的路径。
' 调用Microsoft Windows DLL 过程。
该声明语句必需是类模块中的私有的，而不是标准模块中的。
Private Declare Sub MessageBeep Lib "User" (ByVal N As Integer)Sub CallMyDll()Call MessageBeep(0) ' 调用Windows DLL 过程。
MessageBeep 0 ' 再次调用，但不用“调用”这个关键字。
End SubLoadLibrary你试一试，不过这个需要自己做初始化工作。
（对应于FreeLibrary）回答者：feenn - 秀才二级3-9 09:34 这个问题好解决！你先在运行中输入：regsvr32 dll文件的绝对地址这样就注册了！然后你在VB中点工程-》引用，选中刚才注册的文件，就可以在工程中用了！如果有问题，你可以问我。
（qq;63495849）请问那里有介绍用vb编写动态连接库的！我的源程序是用VB写的，现在要改成DLL，我的C语言不行，所以想用VB改写！程序中用到数据库和串口，如何处理?用VB只能创建ActiveX DLL，不是真正的DLL！部件提供了对象形式的可复用代码。
要使用部件的代码，应用程序可以创建对象并调用对象的属性及方法，这种应用程序被称作一个客户应用程序。
对于使用部件对象的客户应用程序，部件可分为进程内运行的和进程外运行的。
进程内部件，或者说ActiveX DLL，运行在另一个应用程序的进程之中。
客户可以是应用程序本身，也可以是该应用程序正在使用的其它进程内的部件。
ActiveX DLL类似于COM组件一般用CreateObject 函数来创建对象的实例！在VB中引用ActiveX DLL就可以利用ActiveX DLL提供的属性、方法和事件了！在VB 中调用动态连接库作为一种简单易用的Windows开发环境，Visual Basic从一推出就受到了广大编程人员的欢迎。
它使程序员不必再直接面对纷繁复杂的Windows消息，而可以将精力主要集中在程序功能的实现上，大大提高了编程效率。
但凡事有利必有弊。
VB中高度的封装和模块化减轻了编程者的负担，同时也使开发人员失去了许多访问低层API函数和直接与Windows交互的机会。
因此，相比而言，VB应用程序的执行效率和功能比C/C++或Delphi生成的程序要差。
为了解决这个问题，在一个大型的VB开发应用中，直接调用Windows API函数几乎是不可避免的；同时，还有可能需要程序员自己用C/C++等开发一些动态连接库，用于在VB中调用。
本文主要讨论在32位开发环境Visual Basic 5.0中直接调用Windows 95 API 函数或用户生成的32位动态连接库的方法与规则。
Windows动态连接库是包含数据和函数的模块，可以被其它可执行文件（EXE、DLL、OCX 等）调用。
动态连接库包含两种函数：输出（exported）函数和内部（internal）函数。
输出函数可以被其它模块调用，而内部函数则只能在动态连接库内部使用。
尽管动态连接库也能输出数据，但实际上它的数据通常是只在内部使用的。
使用动态连接库的优点是显而易见的。
将应用程序的一部分功能提取出来做成动态连接库，不但减小了主应用程序的大小，提高了程序运行效率，还使它更加易于升级。
多个应用程序共享一个动态连接库还能有效地节省系统资源。
正因为如此，在Windows系统中，动态连接库得到了大量的使用。
一般来说，动态连接库都是以DLL为扩展名的文件，如Kernel32.dll、commdlg.dll等。
但也有例外，如16位Windows的核心部件之一GDI.exe其实也是一个动态库。
编写动态连接库的工具很多，如VisualC++、BorlandC++、Delphi等，具体方法可以参见相关文档。
下面只以Visual C++5.0为例，介绍一下开发应用于VisualBasic5.0的动态连接库时应注意的问题（本文中所有涉及C/C++语言或编译环境的地方，都以VC5为例；所有涉及VisualBasic的地方都以VB5 为例）。
作为一种32位Windows应用程序的开发工具，VB5生成的exe文件自然也都是32位的，通常情况下也只能调用32位的动态连接库。
但是，并不是所有的32位动态库都能被VB生成的exe 文件正确地识别。
一般来说，自己编写用于VB应用程序调用的动态连接库时，应注意以下几个方面的问题：1、生成动态库时要使用__stdcall调用约定，而不能使用缺省的__cdecl调用约定；__stdcall 约定通常用于32位API函数的调用。
2、在VC5中的定义文件（.def）中，必须列出输出函数的函数名，以强制VC5系统将输出函数的装饰名（decoratedname）改成普通函数名；所谓装饰名是VC的编译器在编译过程中生成的输出函数名，它包含了用户定义的函数名、函数参数及函数所在的类等多方面的信息。
由于在VC5中定义文件不是必需的，因此工程不包含定义文件时VC5就按自己的约定将用户定义的输出函数名修改成装饰名后放到输出函数列表中，这样的输出函数在VB生成的应用程序中是不能正确调用的（除非声明时使用Alias子句）。
因此需要增加一个.def文件，其中列出用户需要的函数名，以强制VC5不按装饰名进行输出。