色婷婷国产精品综合,天天碰天天操天天摸天天日

大家知道，VB6只能制作ActiveX DLL文件，制作能輸出函數(shù)的通用DLL文件通常要用到VC等工具。實(shí)際上，VB在編譯的時(shí)候加以控制，經(jīng)過(guò)適當(dāng)處理也是可以制作通用DLL的。使用VB_DLL_Link程序就可以利用VB編譯出通用的DLL文件，此DLL文件可以被其他程序調(diào)用，例如在VB中用Declare語(yǔ)句調(diào)用并執(zhí)行DLL中的函數(shù)。

下面介紹VB_DLL_Link的使用方法：

1、安裝：

本軟件為純綠色軟件。下載VB_DLL_Link.exe后，雙擊它就可以自動(dòng)安裝了。你也可以手動(dòng)將它復(fù)制到VB6程序目錄下，將原Link.exe改名為L(zhǎng)ink2.exe，再將VB_DLL_Link.exe改名為L(zhǎng)ink.exe即可。

2、生成DLL：

安裝好VB_DLL_Link后，打開(kāi)VB6，新建標(biāo)準(zhǔn)exe工程，工程菜單>>移除Form1，添加一個(gè)標(biāo)準(zhǔn)模塊如Module1.bas，首先向其中寫(xiě)入DLL的入口代碼：

Function DllMain(ByVal hInstDLL As Long, ByVal fdwReason As Long, ByVal lpwReserved As Long) As Long
DllMain = 1
End Function

注意參數(shù)形式一定要正確，否則編譯失敗。高級(jí)編程時(shí)這些參數(shù)很有用。在首次調(diào)用DLL和調(diào)用DLL的原程序退出時(shí)均會(huì)執(zhí)行DllMain函數(shù)。這個(gè)函數(shù)是必須的。

為了使VB不報(bào)錯(cuò)，還需加入以下代碼：

Sub Main()
'確保VB能編譯
End Sub

然后就可以向Module1.bas中寫(xiě)入自定義函數(shù)代碼了，如：

Function Add(ByVal A As Double, ByVal B As Double) As Double
    MsgBox A + B
    Add = A + B
End Function
Private Sub M(s As String)
    MsgBox s, vbInformation
End Sub

編寫(xiě)好代碼后，保存工程，選擇文件菜單>>生成exe，注意將文件擴(kuò)展名改為.dll，否則本軟件不能調(diào)出。然后本程序就會(huì)運(yùn)行，出現(xiàn)一個(gè)對(duì)話框提示選擇此工程需要導(dǎo)出的函數(shù)所在的模塊文件，此例即Module1.bas，選擇好后本程序主窗口會(huì)列出Module1.bas中所有的函數(shù)名。如果有多個(gè)模塊，可以選擇"從模塊添加"按鈕繼續(xù)添加函數(shù)名。"添加函數(shù)名"按鈕可手動(dòng)添加現(xiàn)存的函數(shù)的名稱。然后勾選需要導(dǎo)出的函數(shù)名，點(diǎn)擊"編譯為能輸出函數(shù)的DLL"按鈕，即可編譯出通用DLL文件了，它能輸出函數(shù)列表中打勾的所有函數(shù)。若不需要編譯為通用DLL，請(qǐng)點(diǎn)擊"常規(guī)編譯"或按Esc鍵。

3、應(yīng)用DLL：

編譯好的通用DLL文件，可按常規(guī)DLL文件的調(diào)用方法加以調(diào)用。如上述的例子在VB中調(diào)用方法如下(請(qǐng)將Lib后的字符串改為上面編譯的Dll文件名)：

Private Declare Function Add Lib "編譯好的DLL文件的路徑及名稱" (ByVal A As Double, ByVal B As Double) As Double
Private Declare Sub M Lib "編譯好的DLL文件的路徑及名稱" (s As String)
Private Sub main()
Add 9, 2 '調(diào)用DLL中的函數(shù)
M StrConv("您好！", vbUnicode) '字符串需轉(zhuǎn)換成Unicode再傳遞
End Sub

4、注意事項(xiàng)：

* 向DLL傳遞字符參數(shù)時(shí)，需轉(zhuǎn)換成Unicode形式StrConv(yourString, vbUnicode)，才能正確使用。

* 輸出函數(shù)的模塊建議用標(biāo)準(zhǔn)模塊bas，雖然窗體模塊frm和類模塊cls中的函數(shù)也可以用，但有時(shí)會(huì)出錯(cuò)且限制多多。

* 一個(gè)工程可以有多個(gè)bas模塊，其間的函數(shù)均能直接輸出。

* 建議用Public類型的Function或Sub作為輸出函數(shù)。

* 上例只是一個(gè)簡(jiǎn)單的示例，實(shí)際應(yīng)用中可以在DLL工程(VB的exe工程)中加入窗體、控件、模塊、類模塊等，實(shí)現(xiàn)復(fù)雜的功能。