一、帶窗體的dll創(chuàng)建
創(chuàng)新互聯(lián)成立與2013年,是專(zhuān)業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站建設(shè)、做網(wǎng)站網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命,1280元富縣做網(wǎng)站,已為上家服務(wù),為富縣各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:13518219792
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ù)。
這就是最簡(jiǎn)單的DLL示例,可以將一些復(fù)雜的代碼集成到DLL里,以后升級(jí)或重用都比較方便。
新建---類(lèi)庫(kù)---把你的函數(shù)放在新建的類(lèi)庫(kù)中-----生成ClassLibrary1
在net程序中---引用----對(duì)應(yīng)目錄下的ClassLibrary1.dll
對(duì)應(yīng)的代碼定義如:
Dim
mydll
As
New
ClassLibrary1.Class1
最后就可以用mydll調(diào)用你的函數(shù)MyFunction了:
mydll
.MyFunction(1,
2)
注意:vb.net編寫(xiě)的DLL不能用
API函數(shù)
的方式通過(guò)Declare宣告,只能引用的方式使用
vb.net要編寫(xiě)的DLL能被vb6.0引用,需要先在編譯屬性中選擇“為COM
互操作
注冊(cè)”打勾
然后在Visual
Studio
2008
命令提示中運(yùn)用RegAsm命令加/tlb命令生成tlb文件
例如:c:\ReleaseRegAsm
ClassLibrary1.dll
/tlb回車(chē)就會(huì)在當(dāng)前目錄生成ClassLibrary1.tlb文件
vb6.0中引用ClassLibrary1.tlb即可。
VB.net語(yǔ)言
1、創(chuàng)建組件定義
新建一個(gè)Probject,在代碼中寫(xiě)入:
Public Interface IDemo
Function Test() As String
End Interface
2、實(shí)現(xiàn)組件定義
新建一個(gè)Probject,添加對(duì)上述Probject的引用后,在代碼中寫(xiě)入
Public Class Demo
Implements IDemo.IDemo
Public Function Test() As String Implements IDemo.IDemo.Test
Test = "Hello World!"
End Function
End Class
3、編譯出Demo.dll組件
4、使用.net的工具 Visual Studio .Net 2003 Command Prompt,輸入以下命令
Regasm Demo.dll /tlb:Demo.tlb
把Demo.dll注冊(cè)為一個(gè)com對(duì)象(這個(gè)com對(duì)象不等同于普通的用VB編寫(xiě)的Com對(duì)象),并導(dǎo)出類(lèi)型庫(kù)Demo.tlb
5、新建一個(gè)VB工程,添加對(duì)Demo.tlb和IDemo.tlb的引用
6、定義兩個(gè)全局變量
Dim vbDemo As Demo.Demo
Dim vbIDemo as IDemo.IDemo
7、在Form_Load事件中初始化
'初始化實(shí)體類(lèi)
Set vbDemo = New Demo.Demo
'將實(shí)體類(lèi)引用到抽象類(lèi)
Set vbIDemo = vbDemo
8、然后,我們就可以用 vbIDemo.Test 這樣的方法了