新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
不可能的。任何类即便你不加构造函数,默认会加的。不过你可以尝试两种方法:1)在Sub New之前加一个Private,这样你就不能用构造函数声明了,与编译错误。2)只声明这一个带参构造函数,不声明不带参数的,但是调用却用无参的方式,也会发生编译错误。
在成都网站制作、成都做网站中从网站色彩、结构布局、栏目设置、关键词群组等细微处着手,突出企业的产品/服务/品牌,帮助企业锁定精准用户,提高在线咨询和转化,使成都网站营销成为有效果、有回报的无锡营销推广。创新互联专业成都网站建设十载了,客户满意度97.8%,欢迎成都创新互联客户联系。
继承ICollection(Of T),或者是ILIst(Of T),IDIctionary(Of TKey, TValue)等这些接口(具体哪个取决于你的Collection的性质)
具体语法的话……
Public Class MyCollection(Of T)
Implement ICollection(Of T)
………………
End Class
然后继承出来的函数应该怎么办建议看MSDN,每个接口继承出来的函数都不一样
通用的是GetEnumerator()这个,如果你用的一个集成了IEnumerable的字段那直接Return m_field.GetEnumerator()就可以
Public Class Name1
Public Function fun1()
...
End Function
....
End Class
'代码来源:代码街codejie.net
'由于在vb.net里变量名不区分大小写(StuName和stuname是一样的),所以个别变量名需要修改
'在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