vb.net怎么写类 vbnet single

VB.NET中标准的实体类怎么写的,请教VB高手指导

'代码来源vb.net怎么写类：代码街codejie.net

'由于在vb.net里变量名不区分大小写（StuName和stuname是一样vb.net怎么写类的），所以个别变量名需要修改

'在vb.net中,模块级变量的命名原则是以m_开头

Public Class Student

Private m_stuNo As String '学生号字段

Private m_stuName As String '学生姓名字段

Private m_stuAge As Integer '学生年龄字段

Private m_stuAddress As String '学生住址字段

'无参构造方法

Public Sub New()

End Sub

'有参构造方法

Public Sub New(ByVal stuNo As String, ByVal stuName As String, ByVal stuAge As Integer, ByVal stuAddress As String)

m_stuNo = stuNo

m_stuName = stuName

m_stuAge = stuAge

m_stuAddress = stuAddress

End Sub

'学生号属性

Public Property StuNo() As String

Get

Return m_stuNo

End Get

Set(ByVal value As String)

m_stuNo = value

End Set

End Property

'学生姓名属性

Public Property StuName() As String

Get

Return m_stuName

End Get

Set(ByVal value As String)

m_stuName = value

End Set

End Property

'学生年龄属性

Public Property StuAge() As Integer

Get

Return m_stuAge

End Get

Set(ByVal value As Integer)

m_stuAge = value

End Set

End Property

'学生住址属性

Public Property StuAddress() As String

Get

Return m_stuAddress

End Get

Set(ByVal value As String)

m_stuAddress = value

End Set

End Property

End Class

相关问答

Q1: VB.NET怎么写没有构造函数的类?

不可能的。任何类即便你不加构造函数，默认会加的。不过你可以尝试两种方法：1）在Sub New之前加一个Private，这样你就不能用构造函数声明了，与编译错误。2）只声明这一个带参构造函数，不声明不带参数的，但是调用却用无参的方式，也会发生编译错误。

Q2: 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

Q3: vb.net怎么自己写集合类型

继承ICollection(Of T)vb.net怎么写类，或者是ILIst(Of T)vb.net怎么写类，IDIctionary(Of TKey, TValue)等这些接口（具体哪个取决于vb.net怎么写类你的Collection的性质）

具体语法的话……

Public Class MyCollection(Of T)

Implement ICollection(Of T)

………………

End Class

然后继承出来的函数应该怎么办建议看MSDNvb.net怎么写类，每个接口继承出来的函数都不一样

通用的是GetEnumerator()这个，如果你用的一个集成了IEnumerable的字段那直接Return m_field.GetEnumerator()就可以

Q4: vb.net 写一个类?

Public Class Name1

Public Function fun1()

...

End Function

....

End Class

vb.net怎么写类的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet single、vb.net怎么写类的信息别忘了在本站进行查找喔。