在任意form類或模塊中都可以創(chuàng)建類，跟建立函數(shù)和過程一樣。
站在用戶的角度思考問題，與客戶深入溝通，找到廬江網(wǎng)站設計與廬江網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設計與互聯(lián)網(wǎng)技術結合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：網(wǎng)站設計、成都網(wǎng)站建設、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、申請域名、虛擬空間、企業(yè)郵箱。業(yè)務覆蓋廬江地區(qū)。
示例：
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,如有不妥的地方請包涵!
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
先說一句，不建議直接將類定義進行嵌套，這里三個類應該是同一級別的。只實例化MyApp那么另外兩個類可以作為它的共享成員，比如MyApp中：
Public Shared player As New MyPlayer
那么這樣就將這個共享成員實例化了，module可以調(diào)用MyApp的player對象。當然MyApp在Module中也可以定義為共享的。
是共享成員還是實例成員要看你的代碼邏輯了。至于耗費資源，你可以用任務管理器看看程序用的內(nèi)存。
Structure是值類型，classe是引用類型 Structure用棧來分配; classe用堆來分配 structure的成員默認情況下是公共的，而Class的成員變量和常量默認情況下是私有的而其它成員默認情況下是公共的.這與VB6是相兼容的。 structure必須至少有一個非共享的成員變量或事件成員，class可以完全是空的. Structure的成員不能聲明成Protected; class成員可以. 一個structure過程只能在它是一個Shared Sub時才能handle events而且只能通過AddHandler語句;而任何class過程都可以handle events，既可以用Handles關鍵字或 AddHandler語句。 Structure variable declarations cannot specify initializers, the New keyword, or initial sizes for arrays; class variable declarations can. Structure繼承自ValueType類，不能從其它任何類型繼承; classes可以從任何不是ValueType的類繼承 Structure不能繼承而Class可以 Structure從來不析構terminated因此common language runtime (CLR)從來不調(diào)用它的Finalize方法，classe由垃圾回收器進行析構, 當沒有任何對該類的引用時調(diào)用它的Finalize方法 structure 不需要一個構造函數(shù)，而Class需要 Structure只能有帶參數(shù)的非共享的構造函數(shù); classes 可以有帶或不帶參數(shù)的構造函數(shù). 每個Structure都有一個默認的不帶參數(shù)的構造函數(shù)以對其成員進行初始化，你可以重新定義該函數(shù)
顯然想被外部工程或類引用到此類中的方法，你定義的修飾符private不可能實現(xiàn)。首先你要明白他所修飾的類的作用域，private :只能被類本身的成員訪問。所以你在其它類中想使用該類中的方法是不可能的，因為該類對其它工程或類不可見。你可以把修飾符改成public。public:訪問不受限?？杀徊煌绦蚣煌悂碓L問。
重慶分公司
重慶分公司
