類(lèi),是面向?qū)ο笏枷氲囊粋€(gè)產(chǎn)物。它的用途,就在于把事物高度抽象。比如說(shuō)游戲中的玩家,你可以定義一個(gè)玩家類(lèi),這個(gè)類(lèi),有自己的屬性和方法,玩家的生命值,等級(jí),金錢(qián),等等等等,它可以有自己的方法,比如,可以跳躍,可以死亡。類(lèi),本身并不能存在于內(nèi)存之中,這就解釋了對(duì)象的問(wèn)題。類(lèi),實(shí)例化以后,對(duì)象誕生,真實(shí)的存在于內(nèi)存之中。你把一個(gè)玩家類(lèi)實(shí)例化100次,誕生100個(gè)玩家在游戲中。這個(gè)關(guān)系,你可以簡(jiǎn)單的這么理解。
成都創(chuàng)新互聯(lián)公司2013年成立,是專(zhuān)業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站制作、成都網(wǎng)站建設(shè)網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命,1280元嘉蔭做網(wǎng)站,已為上家服務(wù),為嘉蔭各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話(huà):13518219792
在任意form類(lèi)或模塊中都可以創(chuàng)建類(lèi),跟建立函數(shù)和過(guò)程一樣。
示例:
public class form1
‘創(chuàng)建一個(gè)屬于form的子類(lèi),名稱(chēng)為【類(lèi)名】。
public class 類(lèi)名
’定義類(lèi)成員text
public text as string
end class
‘定義一個(gè)【類(lèi)名】類(lèi)的公共變量。
dim 類(lèi)名1 as 類(lèi)名
’定義一個(gè)過(guò)程,使用【類(lèi)名】類(lèi)的text成員
public sub 過(guò)程
‘實(shí)例化【類(lèi)名1】
類(lèi)名1=new 類(lèi)名
類(lèi)名1.text=“賦值”
’定義一個(gè)【新類(lèi)】類(lèi)的私用變量,并實(shí)例化。
dim 新類(lèi)1 as new 新類(lèi)
新類(lèi)1.name=“一個(gè)字符串”
新類(lèi)1.age=12
end sub
end class
‘’‘創(chuàng)建一個(gè)與form同級(jí)的類(lèi),名稱(chēng)為【新類(lèi)】
public class 新類(lèi)
public sub new()
end sub
public name as string
public age as integer
end class
在模塊中使用:
public class module1
dim a as new form1.類(lèi)名
end module
不熟悉VB,如有不妥的地方請(qǐng)包涵!
Public Class Stack
Dim aryData() As Integer
Sub New(ByVal Num As Integer)
Dim aryData(Num) As Integer
End Sub
Function Pop() As Integer
If (aryData.Length = 0) Then
Return 0
Else
Dim a As Integer
a = aryData(aryData.Length)
aryData(aryData.Length) = Convert.ToInt32(DBNull.Value)
Return a
End If
End Function
Sub Push(ByVal n As Integer)
For Each i As Integer In aryData
If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then
aryData(i) = n
End
Else
Continue For
End If
Next
End Sub
Sub PrintStack()
For Each i As Integer In aryData
If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then
End
Else
Print(aryData(i))
End If
Next
End Sub
End Class
分享題目:Vb點(diǎn)虐
定義類(lèi) vb 自定義數(shù)據(jù)類(lèi)型
路徑分享:http://chinadenli.net/article36/ddeippg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站導(dǎo)航、網(wǎng)站營(yíng)銷(xiāo)、外貿(mào)建站、網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、品牌網(wǎng)站設(shè)計(jì)
聲明:本網(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)