structure shenry
public x,y as long
public sub new (byval x as long ,byval y as long)
me.x=x
me.y=y
end
end structure
sub main()
dim h1 as shenry=new shenry()
dim h2 as shenry=new shenry(1,2)
end sub
这个是否是购造器的意思
Private _value As String '内部字段
Public Property StringValue() '一个属性,对应内部的_value
Get
Return _value
End Get
Set(ByVal Value)
_value = Value
End Set
End Property
Private _value As String '内部字段
Public Property StringValue() '一个属性,对应内部的_value
Get
Return _value
End Get
Set(ByVal Value)
_value = Value
End Set
End Property
Public Class UserGroupID
Private CollPages As Collection
'Dim hash As New Hashtable()
'Dim sortedList As New SortedList()
'Dim list As New ArrayList()
Public Sub New()
CollPages = New Collection()
End Sub
Public Function add() As UserColl
Dim test As UserColl
test.StringValue = "ddd"
CollPages.Add(test)
add = test
End Function
Public Sub Remove(ByVal Index As Object)
CollPages.Remove(Index)
End Sub
Public Function Count() As Long
Count = CollPages.Count
End Function
Public Function Item(ByVal Index As Object) As UserColl
Item = CollPages.Item(Index)
End Function