vb.net中创建类

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

万年ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！

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 怎样声明类 怎样调用声明的类

声明类

新建一个工程，添加一个类模块，

在类模块中输入代码：

'定义类 myclass

option explicit

public sub msg()

msgbox "hello! "

end sub ********************简单起见，我只定义了一个方法

在form窗体中输入代码：

option explicit

dim classmy as myclass

Public Sub Form_Load()

Set classmy = New myclass ****生成myclass的一个对象

classmy.msg **************调用类的方法

End Sub

调用声明类：假如你的类的名字叫Editdata.vb。

将Editdata.vb添加入你新的工程，然后在看下Editdata的名字空间。要保证调用的地方能访问到这个类。

另外你这个类的Insert 方法是静态的吗？静态的你可以类名称后直接调用方法，如果不是静态你需要实例化一个EditData 类了

Dim mEditData as EditData =new EditData()

mEditData.Insert(Conn, SQLString)

VB.NET 对象声明 定义（实例化）不明白的问题

第一个相当于 aa 就是Object的方法返回的那个实例。

第二个是实例化一个Object2类。

有些类的一些方法会返回一个结构或者什么类。那么可以用第一种方法，将 aa 做为对这个返回实例的引用。

第二种方法，是通过调用类或结构的初始化函数Sub New来实例化的。

哎，表达能力有限，也不晓得你明白了没。

当前文章：vb.net声明一个类 vb 定义类
文章转载：http://azwzsj.com/article/hhsidp.html