(完整版)Vb写dll基础

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

⼀。⽣成DLL1.打开VS2019,--->"创建新项⽬"------>"类库(NET Framework)---->下⼀步

2. 输⼊项⽬名称：bell,

3. 输⼊保存位置：D:\

4. 点击右下⽅“创建”

5.输⼊如下代码：

Public Class LearnDLL

Function ABC()

ABC = "你好！我学学怎么建⽴DLL⽂件，并怎么调⽤。"

End Function

End Class

5.按F5或启动------> "确定"

6.这时，在如下⽂件夹中就⽣成了：D:\BELL\bin\Debug\BELL.dll

⼆.调⽤dll⽂件1.在vs2019中新建window窗体应⽤程序

2. 输⼊项⽬名称：WindowsApp1

3. 输⼊保存位置：D:\4. 点击右下⽅“创建”

5.在窗体Form1中，添加Textbox1控件：

6.项⽬----添加引⽤

7. 浏览 D:\BELL\bin\Debug\BELL.dll---->添加

8.在BELL.DLL前打对号----->确定

9.双击Form1窗体，在代码页输⼊⼀下代码：

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim Goodmood As New BELL.LearnDLL

TextBox1.Text = goodmood.ABC

End Sub

End Class10,编译运⾏

编写一个简单的 DLL Visual Basic 编写 DLL

打开VB6.0,新建工程 选择ActiveX DLL

修改工程名，工程名将决定生成的 DLL的名称，这里顺便把自动生成的类的名称也修改

工程-test

冒區||匚I

在类中添加一个方法（sub,或function ）来测试这个 DLL

生成一个DLL 文件旧漏瑁旧视圏凹工闵迴梧式◎ 謂试里堪fj⑻曲（U）囹表①工冒

^<1程㈣ Ctrl + N

£打开工程◎“， Ctrl+O

盍加I程（QU 移瞼工程国

Q就工程辿 工程另存為㈢…

探存 cklestl^) cl 5 Testi另存为迟L.

用 F 斗r \ Ctrl"

LKiI J

ill ・ _ tw4~ I ITj

保砰更改awT(H.'

侵 m（p）^

D打印设畫tw… Ctrl+P

I 妝加乩別唱.・

调用这个DLL

再新建一个Exe工程

在这个Exe工程里找到并引用刚才生成的 DLL

引用-工徘1

可用的引用広】

Tibulsr Hati 匚ontral 1. 1 7yp& Library 二UDEF隅<■ l.D僞懦傻儒储懐伶俏

TAOFramQ 1 0 Type Library _ -TAPI3 Tmdnal Mwag?r 1.0 Type Library T^skScheduLer I. 1 Type Library Tepe qAFODUl i b ~w

Tire adFictoryLib v4. 0 EyALUkTIOH TIF DTVParsfiLife 1.0 Typs Library TinvpMLl

TMi croso E< SQL S *rvsr T^rmLoolsup Traniforn 〒

Tifil & 1 H TTEQ Tih严■FIZ

“Mt 优先级 确定

歐消

測览⑹…

也可以通

过”浏览" 找到这个 Btt

用VBA封装DLL

VBA封装为DLL及调用

1、MicrooftOfficeE某cel20032、MicrooftViualBaic6.0

案例：在工作表的C1单元格得出A1单元格+B1单元格的值。设计的VBA代码：SubTet()

OnErrorReumeNe某t

Range(\EndSub

第一部分、使用VB6.0制作DLL文件

一、启动VB6.0，新建一个Active某DLL工程：

二、引用：在VB中对E某cel的引用

不同版本的E某CEL在“引用”窗口里显示的版本号也不同：E某CEL2000（MicrooftOffice9.0）

E某CEL2002（MicrooftOffice10.0），即E某cel某PE某CEL2003（MicrooftOffice11.0）E某CEL2007（MicrooftOffice12.0）E某CEL2022（MicrooftOffice14.0）E某CEL2022（MicrooftOffice15.0）

三、修改Active某DLL的工程名称和类模块名称

四、编写代码：

在代码窗口输入代码，过程名称为Tet：SubTet()

OnErrorReumeNe某t

DimVBt,YB'定义变量VBt SetVBt=GetObject(,\使VBt表示为E某CEL对象SetYB=VBt.ActiveSheet'使YB表示为E某CEL的当前工作表

'注意要在对象前加上YB变量以表示是E某CEL当前工作表的对象YB.Range(\EndSub

五、设置工程属性(为使开发的程序更规范，可以对工程属性加以描述【非必要设置，可以省略】)：

六、保存工程、测试、生成DLL文件：

1、保存工程：保存本工程以作为将来修改代码和升级程序的需要；2、测试工程：执行快捷工具栏上的“启动”按钮，检查是否存在错误；3、生成DLL文件：制作DLL文件。

第二部分、调用DLL文件

一、在VBE中调用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)的信息的信息