vb.net添加类的作用的简单介绍

vb.net怎么添加类

模块：相当于全局级变量。

创新互联专注于建平企业网站建设,自适应网站建设,商城网站定制开发。建平网站建设公司,为建平等地区提供建站服务。全流程按需设计，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务

类：可以实例化，继承等。

对于你这样的初学者来说，可以视作 模块变量=类的public shared变量。

最好的方法是：项目-添加-类-粘贴代码。

VB.NET里的“类”有何用？

模块相当于一堆公开方法的集合，类相当于你平时拖的控件，在vb6里面你想自己写个控件是很复杂的，而vb.net里只需要继承自现有控件即可。就按钮来说同样是按钮类，你可以拖若干个到界面上，也就是存在若干实例或对象，而模块，通常只有一个对吧，模块相当于c#的静态类。

VB中什么是类啊，类模块有什么作用呢

就是用户自定义的一种类型，用来把一组无规律却又相关的数据组合在一起，一般为对象，用户可以自定义该对象的属性和方法等等。

举个例子可以定义一个名为“学生”的类，里面有“学号”、“姓名”、“身高”、“体重”等属性。定义完之后，在其他的地方就可以赋值了了，比如在模块里写

Sub Test()

Dim 小明 As New 学生

小明.身高 = 180

Debug.Print 小明.身高

End Sub

立即窗口就会显示出180

再比如定义一个叫“三角形”的类，里面有三条边a，b，c是属性，还有一个函数s是方法，就是通过三条边长求这个三角形的面积，那么当你在给三条边赋值之后就可以直接通过“三角形.s”来求出他的面积。

类的class对象有两个事件

Initialize会在New一个该类实例的时候触发，一般用来赋各属性的默认值

Terminate会在该类的实例被释放的时候触发

类还有更复杂更高级的用法，你需要去看VB书进行系统的学习

vb.net中创建类

不熟悉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