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ù)（一）ACCE

2、SS中實(shí)例代碼下面是一個(gè)“快速提取字符串中數(shù)字.mdb”實(shí)例（該實(shí)例在文件包中），單擊“提取結(jié)果”按鈕，將文本框中的數(shù)字在彈出消息顯示出來。我將就這個(gè)實(shí)例演示如何將該實(shí)例VBA代碼封裝成為DLL。字將串；1中國(guó)Dab而美國(guó)英30國(guó)“名日花本罪國(guó)3按鈕單擊事件代碼如下：Private Sub CmdFindnumber_Click()Dim strMAs String初始字符串Dim strOutAs String輸出字符串變量Dim IstrM = Me.Text1從第一個(gè)字符向最后一個(gè)字符循環(huán)，以提取每個(gè)字符For I = 1 To Len(strM)判斷是否為0到9字符，是則賦值輸出If

3、Mid(strM, I, 1) Like 0-9 Then 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ù)名1、修改工程名為：我的動(dòng)態(tài)庫(kù)步驟三：修改類名E Microsoft Visual Basic nwresw一母刈k翻A RKIX國(guó)E0UJJ

4、_J61用）Option ExplicitK電電圖的稱）-我的動(dòng)春庫(kù)-號(hào)我的動(dòng)塞庫(kù)便的動(dòng)亳, 衛(wèi)百婁相抉3提取數(shù)字麋取數(shù)Illi屋性-提取數(shù)字提取數(shù)字 Cl as aHoiule技字母序板分類序提取數(shù)字 ADa-taBindingEi 0 一港網(wǎng)口電DataS ourceBe 0 -vtifone依稱）返回代碼中使用的布識(shí)商體、拄思文件舊 編輯視圖出 工程的 格式 調(diào)試 運(yùn)例的直詢電 圖表 工具外援程序（也葡口（迦）軸助（為1、改類名為：提取數(shù)字步驟四：在代碼窗口輸入如下代碼。將 ACCESS中的單擊事件代碼，略做修改成為一個(gè)公用函數(shù), 然后復(fù)制到VB代碼編輯窗口1 (Code) - n Mi

5、crosoft Visual Basic 一方Xa文件舊 弱輯視圖出 工程的格式 調(diào)試（工運(yùn)行因直詢電 圖表工具外芨程序（函函口（迦）耐助（日短皆鼻昔突代碼如下將這前的ACCESS代碼改成一個(gè)公用函數(shù)輸入:strPutString字符串變量，需分離數(shù)字的字符串輸出：fFindNumber字符串變量，得到的數(shù)字字符Public Function fFindNumber(strPutString As String) As StringDim strOut As String輸出字符串變量Dim I從第一個(gè)字符向最后一個(gè)字符循環(huán)，以提取每個(gè)字符For I = 1 To Len(strPutStri

6、ng)判斷是否為0到9字符，是則賦值輸出If Mid(strPutString, I, 1) Like 0-9 Then strOut = strOut & Mid(strPutString, I, 1)End IfNext I 數(shù)字輸出 fFindNumber = strOut End Function步驟五：編譯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 ,在窗體添文本框【text。 按鈕CmdFindNurm

7、 ,Caption屬性：提取數(shù)字(見下圖)(二)引用【我的動(dòng)態(tài)庫(kù).dll庫(kù)按【Alt+F11】打開VBE窗口，點(diǎn)菜單【工具】-【引用】，打開引用對(duì)話框，完成對(duì)我們自己編譯 的DLL的引用。ACCESS9可使用的引用因 ：4、點(diǎn)確定VI su.al B asi c Tor Appl i i ons 人 Microsoft Access 11.0 Object Librai Microsoft DkO 3. 6 Otj ect Libr ary Microsoft AetiueX Data Objects 2. 1 OLE Autcm Ati on1、點(diǎn)瀏覽r2、選擇引用的DLL女件名：|我的動(dòng)態(tài)

8、庫(kù)一 dll文件集型。： 畫庫(kù)7*lb最tlk*. dU） |（三）在【CmdFindNum 按鈕單擊事件中加入如下代碼。Private Sub CmdFindNum_Click()申明自定義類Dim MyFindNum As 提取數(shù)字Dim strOut As String實(shí)例化”提取數(shù)字類對(duì)象Set MyFindNum = New 提取數(shù)字將函數(shù)輸出結(jié)果賦值給自定義字符串變量strOut = MyFindNum.fFindNumber(Text0)在消息框中顯示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)樵摯a中并未涉及到ACC