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

1、VB封裝DLL實(shí)例講解（一）、DLL基本概念（一）概念DLL即動(dòng)態(tài)鏈接庫(kù)（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)用庫(kù)的同一個(gè)函數(shù)時(shí)，可執(zhí)行文件中裝 入的只是該函數(shù)的內(nèi)存地址，從而節(jié)省內(nèi)存和磁盤空間；2、使用動(dòng)態(tài)鏈接庫(kù)易于我們維護(hù)用戶程序，即使對(duì)動(dòng)態(tài)鏈接庫(kù)進(jìn)行修改也不會(huì)影響用戶程序；3、從ACCESS角度而言，還可以更好的確保核心代碼的安全。二、用VB封裝VBA代碼，構(gòu)建自定義的DLL動(dòng)態(tài)鏈接庫(kù)（一） AC

2、CESS中實(shí)例代碼下面是一個(gè)“快速提取字符串中數(shù)字.mdb ”實(shí)例（該實(shí)例在文件包中），單擊“提取結(jié)果”按鈕，將文本框中的數(shù)字在彈出消息顯示出來。我將就這個(gè)實(shí)例演示如何將該實(shí)例 VBA代碼封裝成為DLL o字符串:T中國(guó)（Jab旳美國(guó)英30國(guó)砸日空本韓國(guó)3:提®售果：按鈕單擊事件代碼如下：Private Sub CmdFi ndnu mber_Click()Dim strMAs Stri ng'初始字符串Dim strOutAs Stri ng'輸出字符串變量Dim IstrM = Me.Text1'從第一個(gè)字符向最后一個(gè)字符循環(huán)，以提取每個(gè)字符For I =

3、 1 To Len (strM)'判斷是否為0到9字符,是則賦值輸出If Mid(strM, I, 1) Like "0-9" The n strOut = strOut & Mid(strM, I, 1)End IfNext I'用MsgBox函數(shù)進(jìn)行輸出測(cè)試MsgBox strOutEnd Sub以上代碼還不能直接用于封裝，須將其修改成為公用函數(shù)（過程）（二） VB封裝實(shí)例中VBA代碼步驟一：在VB編輯窗中，點(diǎn)菜單【文件】-【新建工程】，打開新建工程窗口2、點(diǎn)確定1、點(diǎn)選 ActiveX DLL步驟二：修改工程名，這即生成的 DLL庫(kù)名曲文件（日

4、蝙輯視團(tuán)工程迥格式調(diào)試側(cè)運(yùn)行® 查詢（團(tuán)表工具（D 外接程序窗口辿）幫朋凹GeneralJJ±1Xng±i ZJI工程-我的動(dòng)蕩庫(kù)-色T呂類惑Class! （tla扉 1）我朗動(dòng)直庫(kù)屢的動(dòng)臺(tái)屋性養(yǎng)的動(dòng)言庫(kù)養(yǎng)的動(dòng)老庫(kù)工Vj按字母序按分類序（名稱）我的動(dòng)態(tài)庫(kù)器稱）晅回代碼中使芹的標(biāo)識(shí)窗體、控1、修改工程名為：我的動(dòng)態(tài)庫(kù)外接程序（直窗口（妙幫朋（出|妙7GeneraldJ±lLJH0±iZJOpt ion Explicit-伊明）-2?我陸動(dòng)基庫(kù)屢的動(dòng)臺(tái).-已類複換臼提取數(shù)字虞取逾炭取數(shù)字 Cl ftssModula按字母序按分類序I1（名稱）提取數(shù)

5、字D&taBinding-O 宀 諱陥恥DtaScurceBelO -vlffone名稱）晅回代碼中使用的和識(shí)窗體、控步驟三：修改類名曲文件（日蝙輯視團(tuán)工程迥格式® 調(diào)試側(cè)運(yùn)行® 查詢（U）團(tuán)表工具（DIS1、改類名為：提取數(shù)字步驟四：在代碼窗口輸入如下代碼。將ACCESS中的單擊事件代碼，略做修改成為一個(gè)公用函數(shù),然后復(fù)制到VB代碼編輯窗口備購(gòu) 西窗矗圖就JrEi伽他闔iri凰蘇活紐噴曲dfegai-li9|X|曲文件（巳輪輯（町視圖工程迥格式調(diào)試側(cè)運(yùn)行® 查詢（圖表工具 外接程序（加窗口他幫助凹代碼如下'將這前的ACCESS代碼改成一個(gè)公用函數(shù)

6、'輸入:strPutString字符串變量，需分離數(shù)字的字符串'輸出：fFindNumber字符串變量，得到的數(shù)字字符Public Fun ction fFin dNumber(strPutStri ng As Stri ng) As Stri ngDim strOut As Stri ng'輸出字符串變量Dim I'從第一個(gè)字符向最后一個(gè)字符循環(huán)，以提取每個(gè)字符For I = 1 To Le n(strPutStri ng)'判斷是否為0到9字符,是則賦值輸出If Mid(strPutStri ng, I, 1) Like "0-9"

7、; The nstrOut = strOut & Mid(strPutStri ng, I, 1)End IfNext I數(shù)字輸出fFin dNumber = strOutEnd Fun cti on步驟五：編譯DLL，點(diǎn)菜單【文件】-【生成我的動(dòng)態(tài)庫(kù).dll】，VBA代碼封裝DLL就完成了。在mdb中調(diào)用自定義DLL動(dòng)態(tài)鏈接庫(kù)(一)新建數(shù)據(jù)庫(kù)及窗體新【快速提取數(shù)字(DLL)實(shí)例.mdb】數(shù)據(jù)庫(kù)，新建一個(gè)窗體【frmMain】,在窗體添文本框【text0】 按鈕【CmdFindNunl ,Caption屬性："提取數(shù)字”(見下圖)(二)引用【我的動(dòng)態(tài)庫(kù).dll】庫(kù)按【Alt+

8、F11】打開VBE窗口，點(diǎn)菜單【工具】-【引用】，打開引用對(duì)話框，完成對(duì)我們自己編譯 的DLL的引用?？墒褂玫囊?、點(diǎn)確定1、點(diǎn)瀏覽* Vi snal Esl営i 匚 For ApplicsLtionE Microsoft Access IL 0 Object Libraiw* Microsoft DAO 3,6 Object Library7 Microsoft ActiveX Data Objects 2.1 Vl OLE Aut 卯 at i cm(三) 在【CmdFindNum】按鈕單擊事件中加入如下代碼。Private Sub CmdFi ndNum_Click()'申明自

9、定義類Dim MyFi ndNum As 提取數(shù)字Dim strOut As Stri ng'實(shí)例化”提取數(shù)字類”對(duì)象Set MyFi ndNum = New 提取數(shù)字'將函數(shù)輸出結(jié)果賦值給自定義字符串變量strOut = MyFi ndNum.fFi ndNumber(TextO)'在消息框中顯示MsgBox "你提取的數(shù)字為：” & strOut, vbInformation,"江羽提示：” End Sub點(diǎn)擊保存后，你就可以運(yùn)行一下窗體測(cè)試你的成果了本文實(shí)例見實(shí)例包，下載測(cè)試如果提示錯(cuò)誤，請(qǐng)重新對(duì)自定義類庫(kù)進(jìn)行引用。本文只是通過一個(gè)簡(jiǎn)單的實(shí)例演示了，如何通過VB封裝一般的VBA中代碼，因?yàn)?/p>