VB封裝DLL實(shí)例講解（一）

tanhong

一、DLL基本概念

（一）概念

DLL即動(dòng)態(tài)鏈接庫（Dynamic Link Library），是由可被其它程序調(diào)用的函數(shù)集合組成的可執(zhí)行文件模塊。DLL不是應(yīng)用程序的組成部分，而是運(yùn)行時(shí)鏈接到應(yīng)用程序中。

（二）主要優(yōu)點(diǎn)：

1、多個(gè)應(yīng)用程序可以共享一個(gè)DLL，而且當(dāng)多個(gè)應(yīng)用程序調(diào)用庫的同一個(gè)函數(shù)時(shí)，可執(zhí)行文件中裝入的只是該函數(shù)的內(nèi)存地址，從而節(jié)省內(nèi)存和磁盤空間；

2、使用動(dòng)態(tài)鏈接庫易于我們維護(hù)用戶程序，即使對動(dòng)態(tài)鏈接庫進(jìn)行修改也不會(huì)影響用戶程序；

3、從ACCESS角度而言，還可以更好的確保核心代碼的安全。

二、用VB封裝VBA代碼，構(gòu)建自定義的DLL動(dòng)態(tài)鏈接庫

（一）ACCESS中實(shí)例代碼

下面是一個(gè)“快速獲取數(shù)字(Acc).mdb”實(shí)例（該實(shí)例在文件包中），單擊“提取結(jié)果”按鈕，將文本框中的數(shù)字在彈出消息顯示出來。

我將就這個(gè)實(shí)例演示如何將該實(shí)例VBA代碼封裝成為DLL。

? 按鈕單擊事件代碼如下：

1. 
   
2. 
   
3. Private Sub CmdFindnumber_Click()
   
4.   Dim strM   As String     '初始字符串
   
5.   Dim strOut  As String     '輸出字符串變量
   
6.   Dim I
   
7.   
   
8.   strM = Me.Text1
   
9. '從第一個(gè)字符向最后一個(gè)字符循環(huán),以提取每個(gè)字符
   
10.   For I = 1 To Len(strM)
    
11.       '判斷是否為0到9字符,是則賦值輸出
    
12.       If Mid(strM, I, 1) Like "[0-9]" Then
    
13.          strOut = strOut & Mid(strM, I, 1)
    
14.       End If
    
15.   Next I
    
16.   '用MsgBox函數(shù)進(jìn)行輸出測試
    
17.   MsgBox strOut
    
18. End Sub

復(fù)制代碼

   M 以上代碼還不能直接用于封裝，須將其修改成為公用函數(shù)(過程)

（二）VB封裝實(shí)例中VBA代碼

步驟一：在VB編輯窗中，點(diǎn)菜單【文件】-【新建工程】，打開新建工程窗口

tanhong

步驟二：修改工程名，這即生成的DLL庫名

1、修改工程名為：我的動(dòng)態(tài)庫

步驟三：修改類名

1、改類名為：提取數(shù)字

tanhong

步驟四：在代碼窗口輸入如下代碼。將ACCESS中的單擊事件代碼，略做修改成為一個(gè)公用函數(shù)，然后復(fù)制到VB代碼編輯窗口

?代碼如下

1. 
   
2. '將這前的ACCESS代碼改成一個(gè)公用函數(shù)
   
3. '輸入:strPutString 字符串變量,需分離數(shù)字的字符串
   
4. '輸出: fFindNumber字符串變量,得到的數(shù)字字符
   
5. Public Function fFindNumber(strPutString As String) As String
   
6.    Dim strOut  As String     '輸出字符串變量
   
7.    Dim I
   
8.   
   
9.    '從第一個(gè)字符向最后一個(gè)字符循環(huán),以提取每個(gè)字符
   
10.    For I = 1 To Len(strPutString)
    
11.       '判斷是否為0到9字符,是則賦值輸出
    
12.        If Mid(strPutString, I, 1) Like "[0-9]" Then
    
13.          strOut = strOut & Mid(strPutString, I, 1)
    
14.        End If
    
15.    Next I
    
16.    '數(shù)字輸出
    
17.    fFindNumber = strOut
    
18. End Function

復(fù)制代碼

步驟五：編譯DLL，點(diǎn)菜單【文件】-【生成我的動(dòng)態(tài)庫.dll】，VBA代碼封裝DLL就完成了。

三、在mdb中調(diào)用自定義DLL動(dòng)態(tài)鏈接庫

（一）新建數(shù)據(jù)庫及窗體

新建【快速提取數(shù)字(DLL)實(shí)例.mdb】數(shù)據(jù)庫，新建一個(gè)窗體【frmMain】,在窗體添文本框【text0】,按鈕【CmdFindNum】,Caption屬性：“提取數(shù)字”(見下圖)

（二）引用【我的動(dòng)態(tài)庫.dll】庫

按【Alt+F11】打開VBE窗口，點(diǎn)菜單【工具】-【引用】，打開引用對話框，完成對我們自己編譯的DLL的引用。

（三）在【CmdFindNum】按鈕單擊事件中加入如下代碼。

1. 
   
2. Private Sub CmdFindNum_Click()
   
3.   '申明自定義類
   
4.   Dim MyFindNum As 提取數(shù)字
   
5.   Dim strOut As String
   
6.   
   
7.   '實(shí)例化"提取數(shù)字類"對象
   
8.   Set MyFindNum = New 提取數(shù)字
   
9.   '將函數(shù)輸出結(jié)果賦值給自定義字符串變量
   
10.   strOut = MyFindNum.fFindNumber(Text0)
    
11.   
    
12.   '在消息框中顯示
    
13.   MsgBox "你提取的數(shù)字為：" & strOut, vbInformation, "江羽提示："
    
14. End Sub

復(fù)制代碼

點(diǎn)擊保存后，你就可以運(yùn)行一下窗體測試你的成果了

M 本文實(shí)例見實(shí)例包，下載測試如果提示錯(cuò)誤，請重新對自定義類庫進(jìn)行引用。

本文只是通過一個(gè)簡單的實(shí)例演示了，如何通過VB封裝一般的VBA中代碼，因?yàn)樵摯�碼中并未涉及到ACCESS應(yīng)用程序?qū)ο螅�所以�?/font>VB中沒有對ACCESS對象類庫進(jìn)行引用，另外實(shí)例中只是簡單演示了，如何手動(dòng)實(shí)現(xiàn)對DLL的注冊引用，在后續(xù)文章中我將就如何實(shí)現(xiàn)DLL與ACCESS應(yīng)用程序?qū)�接�?/font>DLL的自動(dòng)注冊及引用結(jié)合實(shí)例進(jìn)行講解。

                                                                                            

           江羽  2010-05-16   晚

實(shí)例及Word文稿：

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

tmtony

很經(jīng)典的教程!! 值得學(xué)習(xí).

fnsmydyang

向高手致敬學(xué)習(xí)...

li08hua

教程看了很清除，謝謝！

xuwenning

謝謝分享
學(xué)習(xí)學(xué)習(xí)

yori2007

版主確實(shí)厲害

STD

學(xué)習(xí)

c101

謝謝分享