一、帶窗體的dll創(chuàng)建掘森運(yùn)
荔浦ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書(shū)未來(lái)市場(chǎng)廣闊！成為成都創(chuàng)新互聯(lián)公司的ssl證書(shū)銷(xiāo)售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話(huà)聯(lián)系或者加微信：13518219792（備注：SSL證書(shū)合作）期待與您的合作！
1、先新建 類(lèi)庫(kù)（testdll），在項(xiàng)目中添加兩個(gè)窗體form1(主窗體)、form2,為了與后面的調(diào)用區(qū)分分別命名為fm1,fm2；并在fm1窗體中添加一個(gè)按鈕用來(lái)調(diào)用fm2如下圖
2、在fm1窗體判梁代碼中先引用fm2, ? ?按鈕代碼調(diào)用fm2.如圖
3、春鬧生成dll,(class1.vb中不需要寫(xiě)任何代碼）
二、調(diào)用dll
1、新建 一個(gè)windows應(yīng)用程序并添加一個(gè)按鈕用來(lái)調(diào)用dll中的窗體，選 擇 “項(xiàng)目”－“添加引用”，選擇剛才創(chuàng)建的testdll
2、窗體代碼中先引用testdll,再定義一個(gè)testdll中的fm1對(duì)象，最后執(zhí)行對(duì)象的show方法
3、運(yùn)行結(jié)果如下：
DLL（動(dòng)態(tài)鏈接庫(kù)）是一個(gè)很有用的東西，在開(kāi)發(fā)大項(xiàng)目的時(shí)候顯得非常重要，因?yàn)槎嗳撕献鏖_(kāi)發(fā)時(shí)，可以給每個(gè)人分配一個(gè)任務(wù)，用DLL完成，最后組合起來(lái)，就不會(huì)出現(xiàn)互相沖突的問(wèn)題。這里給出最簡(jiǎn)單的DLL編寫(xiě)與調(diào)用的示例
首先，我們打開(kāi)VB.NET，選擇類(lèi)庫(kù)，名稱(chēng)改為test
然后輸入以下代碼
Public?Class?test
Public?Function?test(ByVal?a?As?Long,?ByVal?b?As?Long)?As?Long
Return?a?+?b
End?Function
End?Class
保存后，生成DLL文件。
這就是最簡(jiǎn)單的一個(gè)DLL，下面是調(diào)用該DLL的示例
新建一個(gè)梁棗工程，單擊“項(xiàng)目” -- 添加引用
找到剛才生成的DLL，雙擊它
添加引用以后，似乎什么也沒(méi)發(fā)生，這時(shí)我們輸入以下代碼：
Imports test.test
這樣，就包含了該DLL的類(lèi)。
然后我們定義一個(gè)類(lèi)
Dim test As New test.test
這樣，就可以使用里面的函數(shù)了，下面是程序示燃源例
Imports?test.test
Public?Class?Form1
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
Dim?test?As?New?test.test
MsgBox(test.test(1,?2))
End?Sub
End?Class
運(yùn)行該程序，可以看到，調(diào)用了DLL內(nèi)的函數(shù)。
這就是最皮渣態(tài)簡(jiǎn)單的DLL示例，可以將一些復(fù)雜的代碼集成到DLL里，以后升級(jí)或重用都比較方便。
一般VB.NET調(diào)用DLL可以通過(guò)Declare 語(yǔ)句在模塊級(jí)用于聲明對(duì)動(dòng)態(tài)鏈接庫(kù) (DLL) 中的外部過(guò)程的引用。
Private Declare Sub
myFunc1 Lib "mylib.dll"
(ByVal strName As String)
但是，VB.NET,C#.NET創(chuàng)建的DLL是個(gè)類(lèi)庫(kù)，不能生成標(biāo)準(zhǔn)的 DLL 文件，不能采用declare ()的方式。應(yīng)該在解決方案資源管理器下的需要引用的項(xiàng)目的引用欄點(diǎn)擊鼠標(biāo)右鍵--添加對(duì)這個(gè)類(lèi)庫(kù)[mylib.dll]的引用即可。
以下為VB.NET調(diào)用DLL代碼示例：
DllImport("kcomm.dll", CharSetCharSet:
=CharSet.Ansi, SetlastError:=True)
Private Shared Function gettxt(ByVal
port As Integer, ByVal wait As
Integer, ByVal _date As Long,
ByVal _time As Long, ByVal
filename As String) As Integer
End Function
根據(jù)實(shí)際情況更改你的DLL名稱(chēng)、函數(shù)名、參數(shù)名和類(lèi)型。
VB.NET調(diào)用DLL的只是COM組件，無(wú)法作為輸出函數(shù)的DLL，其實(shí)這只是個(gè)錯(cuò)誤的說(shuō)法。其實(shí)MS非常狡猾，如果你是個(gè)VB瘋狂發(fā)燒友的話(huà)，應(yīng)該早就狂試出這種可以創(chuàng)建輸出函數(shù)的DLL的方法。
VB編譯文件實(shí)際上采取了兩次做遲編譯的方法，首先是調(diào)用C2.exe產(chǎn)生*.OBJ文件，然后調(diào)用Link.EXE連接。如果在LINK的時(shí)候添加EXPORT選項(xiàng)，實(shí)際上是可以輸出函數(shù)的。但是，在VB的工程選項(xiàng)中將這些屏蔽了。而且過(guò)分的是：VB在Build完成后會(huì)將OBJ文件刪除，這樣就無(wú)法手動(dòng)通過(guò)Link來(lái)創(chuàng)建我們需要的DLL了。不過(guò)我找到一個(gè)比較齷鹺的變通的方法，就是先純宴李祥橡創(chuàng)建一個(gè)Exe工程，在Form_Load事件里面寫(xiě)下面的語(yǔ)句:
Sub Main
If MsgBox("哈哈",
vbOKCancel) = vbOK Then
Shell "link2.exe "
Command$
End If
End Sub
然后編譯為L(zhǎng)inkTemp.EXE，接下來(lái)將LINK.EXE改名為L(zhǎng)ink2.exe，將LinkTemp.EXE改名為L(zhǎng)ink.EXE。這樣在VB調(diào)用Link.EXE時(shí)會(huì)彈出對(duì)話(huà)框，處理就會(huì)中斷。這時(shí)就可以有機(jī)會(huì)將OBJ文件拷貝出來(lái)了。
然后我創(chuàng)建了一個(gè)ActiveX DLL工程，在這個(gè)工程里面添加一個(gè)Module并創(chuàng)建一個(gè)Public函數(shù)mathadd：
Public Function mathadd
(ByVal a As Long, ByVal
b As Long) As Long
mathadd = a + b
End Function
編譯這個(gè)工程，在Link的時(shí)候就會(huì)中斷。然后把創(chuàng)建的Class1.obj、Module1.obj、Project1.obj備份出來(lái)。然后就可以調(diào)用Link2.exe連接OBJ到DLL了，我的連接代碼是：
Link2.exe "e:\\vbdll\\Class1.obj"
"e:\\vbdll\\Module1.obj"
"e:\\vbdll\\Project1.obj"
"E:\\Program Files\\Microsoft
Visual Studio\\VB98\\VBAEXE6.LIB"
/ENTRY:__vbaS /EXPORT:mathadd /OUT:
"e:\\vbdll\\ProjectOK.dll"
/BASE:0x11000000 /SUBSYSTEM:
WINDOWS,4.0 /VERS
注意里面的/ENTRY和/EXPORT開(kāi)關(guān)，/EXPORT開(kāi)關(guān)聲明了輸出函數(shù)mathadd。這樣就大功告成了，可以被其他語(yǔ)言引入，例如在VB中，只需要：
Private Declare Function mathadd
Lib "e:\\vbdll\\ProjectOK.dll"
(ByVal a As Long, ByVal b As
Long) As Long
重慶分公司
重慶分公司
