建站
咨詢
售后
建站咨詢
新聞中心
vb 如何調(diào)用 NET寫(xiě)的DLL?
VB.net語(yǔ)言
成都創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站制作、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的寧明網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！
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)出類型庫(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í)體類
Set vbDemo = New Demo.Demo
'將實(shí)體類引用到抽象類
Set vbIDemo = vbDemo
8、然后，我們就可以用 vbIDemo.Test 這樣的方法了
在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è)試截圖如下
asp.net VB 如何調(diào)用類的過(guò)程？
在你的網(wǎng)站的根目錄建立一個(gè)叫App_Code的文件，并把這個(gè)類放進(jìn)去。
Sub datalj(ByVal sql1 As String)改成
Public Function datalj(ByVal sql1 As String) As SqlDataReader
conn.ConnectionString = str
conn.Open()
comm = New SqlCommand(sql1, conn)
rs = comm.ExecuteReader
datalj = rs
End Function
使用的時(shí)候
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim d As New DB
Dim rs As SqlDataReader = d.datalj("select * from userb")
……
End Sub
VB.NET中標(biāo)準(zhǔn)的實(shí)體類怎么寫(xiě)的,請(qǐng)教VB高手指導(dǎo)
'代碼來(lái)源：代碼街codejie.net
'由于在vb.net里變量名不區(qū)分大小寫(xiě)（StuName和stuname是一樣的），所以個(gè)別變量名需要修改
'在vb.net中,模塊級(jí)變量的命名原則是以m_開(kāi)頭
Public Class Student
Private m_stuNo As String '學(xué)生號(hào)字段
Private m_stuName As String '學(xué)生姓名字段
Private m_stuAge As Integer '學(xué)生年齡字段
Private m_stuAddress As String '學(xué)生住址字段
'無(wú)參構(gòu)造方法
Public Sub New()
End Sub
'有參構(gòu)造方法
Public Sub New(ByVal stuNo As String, ByVal stuName As String, ByVal stuAge As Integer, ByVal stuAddress As String)
m_stuNo = stuNo
m_stuName = stuName
m_stuAge = stuAge
m_stuAddress = stuAddress
End Sub
'學(xué)生號(hào)屬性
Public Property StuNo() As String
Get
Return m_stuNo
End Get
Set(ByVal value As String)
m_stuNo = value
End Set
End Property
'學(xué)生姓名屬性
Public Property StuName() As String
Get
Return m_stuName
End Get
Set(ByVal value As String)
m_stuName = value
End Set
End Property
'學(xué)生年齡屬性
Public Property StuAge() As Integer
Get
Return m_stuAge
End Get
Set(ByVal value As Integer)
m_stuAge = value
End Set
End Property
'學(xué)生住址屬性
Public Property StuAddress() As String
Get
Return m_stuAddress
End Get
Set(ByVal value As String)
m_stuAddress = value
End Set
End Property
End Class
文章名稱：vb.net調(diào)用實(shí)體類的簡(jiǎn)單介紹
分享路徑：http://www.dlmjj.cn/article/doigjes.html
