189 8069 5689
在任意form类或模块中都可以创建类，跟建立函数和过程一样。
站在用户的角度思考问题，与客户深入沟通，找到庐江网站设计与庐江网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计、成都网站建设、企业官网、英文网站、手机端网站、网站推广、申请域名、虚拟空间、企业邮箱。业务覆盖庐江地区。
示例：
public class form1
‘创建一个属于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
‘’‘创建一个与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可以调用MyApp的player对象。当然MyApp在Module中也可以定义为共享的。
是共享成员还是实例成员要看你的代码逻辑了。至于耗费资源，你可以用任务管理器看看程序用的内存。
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)从来不调用它的Finalize方法，classe由垃圾回收器进行析构, 当没有任何对该类的引用时调用它的Finalize方法 structure 不需要一个构造函数，而Class需要 Structure只能有带参数的非共享的构造函数; classes 可以有带或不带参数的构造函数. 每个Structure都有一个默认的不带参数的构造函数以对其成员进行初始化，你可以重新定义该函数
显然想被外部工程或类引用到此类中的方法，你定义的修饰符private不可能实现。首先你要明白他所修饰的类的作用域，private :只能被类本身的成员访问。所以你在其它类中想使用该类中的方法是不可能的，因为该类对其它工程或类不可见。你可以把修饰符改成public。public:访问不受限。可被不同程序集不同类来访问。