vb.net中创建类

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

成都创新互联公司是一家专业提供四方台企业网站建设,专注与成都网站建设、做网站、H5响应式网站、小程序制作等业务。10年已为四方台众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

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.net 如何在一个项目中创建类，并且使用他?

在任意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.net创建类引用类

你是指……

Dim 变量名 as 类型 = new 类型（构造参数）

这样么

或者是

Dim 变量名 as new 类型(构造参数)

这样？

还是说

Class 类名

End Class

这样？

vb.net怎么添加类

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

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

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

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

网站题目：vbnet新建类 vbnet新建文件夹
文章出自：http://cdweb.net/article/hpesds.html