VB封裝DLL實例講解

1、VB封裝DLL實例講解（一）DLL基本概念（一）概念DLL即動態(tài)鏈接庫（Dynamic Link Library ）,是由可被其它程序調(diào)用的函數(shù)集合組成的可執(zhí)行文件模 塊。DLL不是應用程序的組成部分，而是運行時鏈接到應用程序中。（二）主要優(yōu)點：1、多個應用程序可以共享一個 DLL ,而且當多個應用程序調(diào)用庫的同一個函數(shù)時，可執(zhí)行文件中裝 入的只是該函數(shù)的內(nèi)存地址，從而節(jié)省內(nèi)存和磁盤空間；2、使用動態(tài)鏈接庫易于我們維護用戶程序，即使對動態(tài)鏈接庫進行修改也不會影響用戶程序；3、從ACCESS角度而言，還可以更好的確保核心代碼的安全。用VB封裝VBA代碼，構(gòu)建自定義的DLL動態(tài)鏈接庫（一）ACCE

2、SS中實例代碼下面是一個“快速提取字符串中數(shù)字.mdb”實例（該實例在文件包中），單擊“提取結(jié)果”按鈕，將文本框中的數(shù)字在彈出消息顯示出來。我將就這個實例演示如何將該實例VBA代碼封裝成為DLL。字將串；1中國Dab而美國英30國“名日花本罪國3按鈕單擊事件代碼如下：Private Sub CmdFindnumber_Click()Dim strMAs String初始字符串Dim strOutAs String輸出字符串變量Dim IstrM = Me.Text1從第一個字符向最后一個字符循環(huán)，以提取每個字符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ù)進行輸出測試MsgBox strOutEnd Sub以上代碼還不能直接用于封裝，須將其修改成為公用函數(shù)（過程）（二）VB封裝實例中VBA代碼步驟一：在VB編輯窗中，點菜單【文件】-【新建工程】，打開新建工程窗口2、點確定1、點選 ActiveX DLL步驟二：修改工程名，這即生成的DLL庫名1、修改工程名為：我的動態(tài)庫步驟三：修改類名E Microsoft Visual Basic nwresw一母刈k翻A RKIX國E0UJJ

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

5、crosoft Visual Basic 一方Xa文件舊 弱輯視圖出 工程的格式 調(diào)試（工運行因直詢電 圖表工具外芨程序（函函口（迦）耐助（日短皆鼻昔突代碼如下將這前的ACCESS代碼改成一個公用函數(shù)輸入:strPutString字符串變量，需分離數(shù)字的字符串輸出：fFindNumber字符串變量，得到的數(shù)字字符Public Function fFindNumber(strPutString As String) As StringDim strOut As String輸出字符串變量Dim I從第一個字符向最后一個字符循環(huán)，以提取每個字符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 ,點菜單【文件】-【生成我的動態(tài)庫.dll , VBA代碼封裝DLL就完成了。三、在mdb中調(diào)用自定義DLL動態(tài)鏈接庫(一)新建數(shù)據(jù)庫及窗體新【快速提取數(shù)字(DLL)實例.mdb】數(shù)據(jù)庫，新建一個窗體【frmMain ,在窗體添文本框【text。 按鈕CmdFindNurm

7、 ,Caption屬性：提取數(shù)字(見下圖)(二)引用【我的動態(tài)庫.dll庫按【Alt+F11】打開VBE窗口，點菜單【工具】-【引用】，打開引用對話框，完成對我們自己編譯 的DLL的引用。ACCESS9可使用的引用因 ：4、點確定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、點瀏覽r2、選擇引用的DLL女件名：|我的動態(tài)

8、庫一 dll文件集型。： 畫庫7*lb最tlk*. dU） |（三）在【CmdFindNum 按鈕單擊事件中加入如下代碼。Private Sub CmdFindNum_Click()申明自定義類Dim MyFindNum As 提取數(shù)字Dim strOut As String實例化”提取數(shù)字類對象Set MyFindNum = New 提取數(shù)字將函數(shù)輸出結(jié)果賦值給自定義字符串變量strOut = MyFindNum.fFindNumber(Text0)在消息框中顯示MsgBox 你提取的數(shù)字為：& strOut, vbInformation,江羽提示: End Sub點擊保存后，你就可以運行一下窗體測試你的成果了本文實例見實例包，下載測試如果提示錯誤，請重新對自定義類庫進行引用。本文只是通過一個簡單的實例演示了，如何通過VB封裝一般的VBA中代碼，因為該代碼中并未涉及到ACC