建站
咨詢
售后
建站咨詢
新聞中心
vb.net中創(chuàng)建類
不熟悉VB,如有不妥的地方請包涵!
創(chuàng)新互聯(lián)公司主要從事成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)南海,10年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):13518219792
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.net 如何在一個項目中創(chuàng)建類，并且使用他?
在任意form類或模塊中都可以創(chuàng)建類，跟建立函數(shù)和過程一樣。
示例：
public class form1
‘創(chuàng)建一個屬于form的子類，名稱為【類名】。
public class 類名
’定義類成員text
public text as string
end class
‘定義一個【類名】類的公共變量。
dim 類名1 as 類名
’定義一個過程，使用【類名】類的text成員
public sub 過程
‘實例化【類名1】
類名1=new 類名
類名1.text=“賦值”
’定義一個【新類】類的私用變量，并實例化。
dim 新類1 as new 新類
新類1.name=“一個字符串”
新類1.age=12
end sub
end class
‘’‘創(chuàng)建一個與form同級的類，名稱為【新類】
public class 新類
public sub new（）
end sub
public name as string
public age as integer
end class
在模塊中使用：
public class module1
dim a as new form1.類名
end module
vb.net 寫一個類?
Public Class Name1
Public Function fun1()
...
End Function
....
End Class
網(wǎng)頁標(biāo)題：vb.net做類 vbnet class
網(wǎng)頁路徑：http://ef60e0e.cn/article/dojeisg.html
