一、VB編寫自己的DLL文件

1.新建一個(gè)VB工程，工程類型為ActiveX DLL類型。

2.設(shè)定工程的名字和類模塊的名字。

    這里我使用的工程的名字是DLLTest，類模塊的名字是Class1。

3.在類模塊中寫入要封裝的函數(shù)

    這里我寫了一個(gè)計(jì)算長(zhǎng)方體的體積的函數(shù)，代碼如下：

    通過(guò)選擇 ”文件“->”生成DllTest.dll“，生成Dll文件。

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

二、如何調(diào)用自己制作的Dll文件中的函數(shù)

1.新建一個(gè)VB工程，工程類型為標(biāo)準(zhǔn)EXE類型。

2.注冊(cè)制作的Dll文件。

    注冊(cè)命令格式為：regsvr32 dll文件的絕對(duì)地址名稱

    舉例說(shuō)明：比如我把上面我生成的DllTest.dll放在了E盤的VbTest文件里面了，那么我的注冊(cè)命令為：regsvr32 E:\VbTest\DllTest.dll。

    如果注冊(cè)成功，系統(tǒng)會(huì)有彈窗提示。

    （測(cè)試發(fā)現(xiàn)，注冊(cè)dll文件時(shí)，路徑文件夾的名字不能有空格）

3.在工程中添加相關(guān)引用。

    ”工程“->”引用“->”DllTest“，在DllTest前面打上對(duì)勾，即可。

   這里我在主窗體中添加了一個(gè)按鈕，在按鈕里面寫入了如下代碼：

Private Sub Command1_Click()Dim MyObj As DllTest.Class1Set MyObj = New Class1Dim aa As DoubleDim bb As DoubleDim cc As DoubleDim tempVolume As Doubleaa = 1.1bb = 2.2cc = 3.3tempVolume = MyObj.calVolume(aa, bb, cc)MsgBox tempVolumeEnd Sub

5.至此結(jié)束。