上級(jí)目錄不可以,但是為了保證程序路徑改變,引用不會(huì)被破壞??梢杂袔讉€(gè)方法:
成都創(chuàng)新互聯(lián)長(zhǎng)期為成百上千家客戶提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年,關(guān)注不同地域、不同群體,并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù);打造開(kāi)放共贏平臺(tái),與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為柳北企業(yè)提供專(zhuān)業(yè)的成都做網(wǎng)站、網(wǎng)站建設(shè),柳北網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開(kāi)發(fā)。
1.將DLL文件放在程序同級(jí)目錄
2.將DLL文件放在程序子目錄
3.將DLL文件放在System32目錄下(系統(tǒng)目錄,可以直接引用DLL)
4.可以將DLL文件打包成資源文件,融合到EXE程序中,每次執(zhí)行判斷同級(jí)目錄是否有DLL文件,不存在,釋放資源文件。
一、帶窗體的dll創(chuàng)建
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é)果如下:
一般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ā)燒友的話,應(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ì)中斷。這時(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
新建---類(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即可。