vb6.0中做過(guò)這個(gè)項(xiàng)目,但是vb.net中也遇到這個(gè)問(wèn)題,看看能否交流一下,剛剛轉(zhuǎn)vb.net。vb6.0中部分代碼如下:
成都創(chuàng)新互聯(lián)是少有的成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、營(yíng)銷(xiāo)型企業(yè)網(wǎng)站、微信小程序開(kāi)發(fā)、手機(jī)APP,開(kāi)發(fā)、制作、設(shè)計(jì)、賣(mài)友情鏈接、推廣優(yōu)化一站式服務(wù)網(wǎng)絡(luò)公司,自2013年起,堅(jiān)持透明化,價(jià)格低,無(wú)套路經(jīng)營(yíng)理念。讓網(wǎng)頁(yè)驚喜每一位訪(fǎng)客多年來(lái)深受用戶(hù)好評(píng)
Dim HttpReq As Object
Dim request As String
HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
HttpReq.open("GET", uri, False)
HttpReq.send()
'解析返回值
request = HttpReq.responseBody
request = Split(Split(StrConv(request,vbUnicode,H804),"=")(1),";")(0)
可以的,把項(xiàng)目的類(lèi)型設(shè)成類(lèi)庫(kù),將所有的函數(shù)用Public修飾附封裝在類(lèi)里面,生成dll文件。這樣別人就可以在別人項(xiàng)目屬性的引用頁(yè)里面添加對(duì)你的dll文件的引用,然后導(dǎo)入命名空間,直接使用了。
比如說(shuō),在一個(gè)項(xiàng)目里:
NameSpace Controller
Public Class ControlMachine
Public Sub Boot()
End Sub
Public Sub Shutdown()
End Sub
End Class
End NameSpace
進(jìn)入另一個(gè)項(xiàng)目的項(xiàng)目屬性,進(jìn)入引用頁(yè),添加到那個(gè)dll文件的引用。在代碼中:
Imports Controller '加在代碼文檔的最頂端
使用:
Dim controller As New ControlMachine
controller.Boot()
controller.Shutdown()
希望你能了解,不懂再追問(wèn)
在VB.NET的類(lèi)里,實(shí)現(xiàn)一個(gè)接口的語(yǔ)句是:
implements接口名稱(chēng)
例如,下面定義一個(gè)車(chē)(總稱(chēng))的接口,這里的車(chē)是各種車(chē)的總稱(chēng):
Public Interface ICar
Property color() As String
Property speed() As Long
Sub PrintInfo()
End Interface
然后在不同類(lèi)型的“車(chē)”類(lèi)里實(shí)現(xiàn)它:
Public Class A_Car
Implements ICar
Dim m_color As String, m_speed As Long
Public Property color() As String Implements ICar.color
Get
Return m_color
End Get
Set(ByVal Value As String)
m_color = Value
End Set
End Property
Protected Overrides Sub Finalize()
MsgBox(I was deconstructed!)
End Sub
Public Sub New()
m_color = Red
m_speed = 210
MsgBox(I was constructed!)
End Sub
Public Property speed() As Long Implements ICar.speed
Get
Return m_speed
End Get
Set(ByVal Value As Long)
m_speed = speed
End Set
End Property
Public Sub PrintInfo() Implements ICar.PrintInfo
MsgBox(Color: m_color vbNewLine Speed: m_speed, MsgBoxStyle.Information)
End Sub
End Class
在 Form 的 Load 事件中編寫(xiě):
Dim myCar As New A_Car
myCar.PrintInfo()
運(yùn)行之后就創(chuàng)建了一個(gè) A_Car 類(lèi)的實(shí)例 myCar,然后出現(xiàn)兩個(gè)對(duì)話(huà)框,分別說(shuō)明實(shí)例已經(jīng)創(chuàng)建和汽車(chē)的信息。當(dāng)窗體卸載時(shí),這個(gè)類(lèi)的實(shí)例 myCar 將自動(dòng)銷(xiāo)毀,這時(shí)將出現(xiàn)一個(gè)“I was deconstructed!”的對(duì)話(huà)框。
聲明一個(gè)接口時(shí),需要考慮以下幾點(diǎn):
1.接口主體只限于對(duì)方法,索引器以及屬性的聲明;
2.接口成員是隱式公開(kāi)的,如果對(duì)其顯式指定訪(fǎng)問(wèn)級(jí)別,就會(huì)出現(xiàn)編譯器錯(cuò)誤;
3.接口中不能包含字段,構(gòu)造函數(shù)和常量等;
4.在接口中不能實(shí)現(xiàn)任何方法,屬性或者索引器;
5.在指定方法時(shí),只需要給出返回類(lèi)型,名稱(chēng)和參數(shù)列表,然后分號(hào)結(jié)束。
面向?qū)ο蟮慕涌?/p>
在C++中,一個(gè)類(lèi)被允許繼承多個(gè)類(lèi)。但是在Java以后的語(yǔ)言不被允許。
這樣,如果想繼承多個(gè)類(lèi)時(shí)便非常困難。所以開(kāi)發(fā)方想出了新辦法:接口。
一個(gè)接口內(nèi),允許包含變量、常量等一個(gè)類(lèi)所包含的基本內(nèi)容。但是,接口中的函數(shù)不允許設(shè)定代碼,也就意味著不能把程序入口放到接口里。由上可以理解到,接口是專(zhuān)門(mén)被繼承的。接口存在的意義也是被繼承。和C++里的抽象類(lèi)里的純虛函數(shù)是相同的。不能被實(shí)例化。
定義接口的關(guān)鍵字是interface,例如:
publicinterfaceMyInterface{
public void add(int x,int y);
public void volume(int x,int y,int z);
}
繼承接口的關(guān)鍵字是implements,相當(dāng)于繼承類(lèi)的extends。
需要注意的是,當(dāng)繼承一個(gè)接口時(shí),接口里的所有函數(shù)必須全部被覆蓋。例如:
class Demo implements MyInterface{
public void add(int x,int y){
System.out.println( +(x+y));
}
public void volume(int x,int y,int z){
System.out.println( +(x*y*z));
}
public static void main(String args[]){
Demo d=new Demo();
d.add(10,20);
d.volume(10,10,10);
}
}
輸出結(jié)果:
30
1000
當(dāng)想繼承多個(gè)類(lèi)時(shí),開(kāi)發(fā)程序不允許,報(bào)錯(cuò)。這樣就要用到接口。因?yàn)榻涌谠试S多重繼承(,),而類(lèi)不允許。所以就要用到接口。
分享標(biāo)題:vb.net數(shù)據(jù)接口 vbnet操作數(shù)據(jù)庫(kù)
本文URL:http://muchs.cn/article48/ddcehhp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)網(wǎng)站建設(shè)、關(guān)鍵詞優(yōu)化、微信小程序、網(wǎng)站收錄、ChatGPT、標(biāo)簽優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容
網(wǎng)頁(yè)設(shè)計(jì)公司知識(shí)