vb.net中創(chuàng)建類

不熟悉VB,如有不妥的地方請包涵!

成都創(chuàng)新互聯(lián)公司是一家專業(yè)提供四方臺(tái)企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站建設(shè)、做網(wǎng)站、H5響應(yīng)式網(wǎng)站、小程序制作等業(yè)務(wù)。10年已為四方臺(tái)眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站建設(shè)公司優(yōu)惠進(jìn)行中。

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 如何在一個(gè)項(xiàng)目中創(chuàng)建類，并且使用他?

在任意form類或模塊中都可以創(chuàng)建類，跟建立函數(shù)和過程一樣。

示例：

public class form1

‘創(chuàng)建一個(gè)屬于form的子類，名稱為【類名】。

public class 類名

’定義類成員text

public text as string

end class

‘定義一個(gè)【類名】類的公共變量。

dim 類名1 as 類名

’定義一個(gè)過程，使用【類名】類的text成員

public sub 過程

‘實(shí)例化【類名1】

類名1=new 類名

類名1.text=“賦值”

’定義一個(gè)【新類】類的私用變量，并實(shí)例化。

dim 新類1 as new 新類

新類1.name=“一個(gè)字符串”

新類1.age=12

end sub

end class

‘’‘創(chuàng)建一個(gè)與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創(chuàng)建類引用類

你是指……

Dim 變量名 as 類型 = new 類型（構(gòu)造參數(shù)）

這樣么

或者是

Dim 變量名 as new 類型(構(gòu)造參數(shù))

這樣？

還是說

Class 類名

End Class

這樣？

vb.net怎么添加類

模塊：相當(dāng)于全局級變量。

類：可以實(shí)例化，繼承等。

對于你這樣的初學(xué)者來說，可以視作 模塊變量=類的public shared變量。

最好的方法是：項(xiàng)目-添加-類-粘貼代碼。