怎樣用VB.NET寫和調(diào)用DLl窗體

一、帶窗體的dll創(chuàng)建

專注于為中小企業(yè)提供網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)柳城免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了成百上千企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

1、先新建 類庫(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中不需要寫任何代碼）

二、調(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 如何引用自定義類庫(kù)

在項(xiàng)目A里添加引用，在“添加引用”對(duì)話框里找到項(xiàng)目B就可以了。也可以先把項(xiàng)目B生成dll文件，然后在項(xiàng)目A中添加對(duì)這個(gè)dll文件的引用。

VB.Net寫的程序C#可以調(diào)用嗎？請(qǐng)說(shuō)明原因

如果你是使用的vb.net寫的類庫(kù)的話是在C#中是可以調(diào)用的，因?yàn)?net實(shí)現(xiàn)，跨平臺(tái)和跨語(yǔ)言環(huán)境。

VB.NET EXE怎么調(diào)用指定的DLL

一般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è)類庫(kù)，不能生成標(biāo)準(zhǔn)的 DLL 文件，不能采用declare ()的方式。應(yīng)該在解決方案資源管理器下的需要引用的項(xiàng)目的引用欄點(diǎn)擊鼠標(biāo)右鍵--添加對(duì)這個(gè)類庫(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名稱、函數(shù)名、參數(shù)名和類型。

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事件里面寫下面的語(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

在vb.net中怎么調(diào)用自定義類？

代碼已測(cè)試。

一、測(cè)試需要的INI文件。名稱為“setinfo.ini”，存放路徑為你解決方案里“Bin“文件夾的”Debug“文件夾里。

內(nèi)容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

二、操作INI文件的類。新建一個(gè)類，類中內(nèi)容為：

Public?Class?Class1

Public?Declare?Function?GetPrivateProfileString?Lib?"kernel32"?Alias?"GetPrivateProfileStringA"?_

(?_

ByVal?lpApplicationName?As?String,?_

ByVal?lpKeyName?As?String,?_

ByVal?lpDefault?As?String,?_

ByVal?lpReturnedString?As?String,?_

ByVal?nSize?As?Int32,?_

ByVal?lpFileName?As?String?_

)?As?Int32

End?Class

三、界面代碼：

Imports?System.IO?'for?path

Public?Class?Form1

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

getINI()

End?Sub

Private?Sub?getINI()

Dim?iniclass?As?New?Class1?'

Dim?myBf?As?String?'get?set_info?開(kāi)辟存儲(chǔ)的內(nèi)存

myBf?=?New?String(CChar(""),?256)

Dim?myFN?As?String?'配置文件的文件路徑

myFN?=?Path.Combine(My.Application.Info.DirectoryPath,?"setinfo.ini")

Dim?myAN?As?String?'Application_NAME,也是Section名稱

myAN?=?Me.TextBox1.Text

Dim?myKN?As?String?'KEY_NAME,關(guān)鍵字名稱

myKN?=?Me.TextBox2.Text

Class1.GetPrivateProfileString(myAN,?myKN,?"",?myBf,?myBf.Length,?myFN)?'調(diào)用讀取INI文件的操作

TextBox3.Text?=?Microsoft.VisualBasic.Left(myBf,?InStr(myBf,?Chr(0))?-?1)?'截取有用部分,有必要

End?Sub

End?Class

四、測(cè)試截圖如下

vb.net 調(diào)用其他文件 如 dll

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編寫與調(diào)用的示例

首先，我們打開(kāi)VB.NET，選擇類庫(kù)，名稱改為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的類。

然后我們定義一個(gè)類

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í)或重用都比較方便。

網(wǎng)站欄目：vb.net類庫(kù)調(diào)用,vb支持庫(kù)
網(wǎng)站路徑：http://chinadenli.net/article4/dseigie.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App開(kāi)發(fā)、網(wǎng)站維護(hù)、定制網(wǎng)站、企業(yè)建站、Google、手機(jī)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)