vb點虐 中創(chuàng)建類

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

創(chuàng)新互聯(lián)建站堅持“要么做到，要么別承諾”的工作理念，服務領域包括：成都網(wǎng)站建設、成都網(wǎng)站設計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務，滿足客戶于互聯(lián)網(wǎng)時代的瑞安網(wǎng)站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎ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點虐 如何在一個項目中創(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點虐 創(chuàng)建類引用類

你是指……

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

這樣么

或者是

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

這樣？

還是說

Class 類名

End Class

這樣？