Vb点虐 定义类 vb 自定义数据类型
VB.NET中，类到底是什么意思，它存在的用途是什么
类，是面向对象思想的一个产物。它的用途，就在于把事物高度抽象。比如说游戏中的玩家，你可以定义一个玩家类，这个类，有自己的属性和方法，玩家的生命值，等级，金钱，等等等等，它可以有自己的方法，比如，可以跳跃，可以死亡。类，本身并不能存在于内存之中，这就解释了对象的问题。类，实例化以后，对象诞生，真实的存在于内存之中。你把一个玩家类实例化100次，诞生100个玩家在游戏中。这个关系，你可以简单的这么理解。
成都创新互联公司2013年成立，是专业互联网技术服务公司，拥有项目成都网站制作、成都网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元嘉荫做网站,已为上家服务,为嘉荫各地企业和个人服务,联系电话:13518219792
vb点虐 如何在一个项目中创建类，并且使用他?
在任意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点虐 中创建类
不熟悉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
标题名称：Vb点虐 定义类 vb 自定义数据类型
文章来源：http://scyanting.com/article/ddeippg.html
