16,554
社区成员
发帖
与我相关
我的任务
分享
Imports System.ComponentModel
Public Class UserControl1
Private _coumntscount As Short = 0
<Browsable(True)> _
Public Property Rows As StudentCollectiont
Get
Return _rows
End Get
Set(value As StudentCollectiont)
_rows = value
End Set
End Property
End Class
Public Class Student
Private m_name As String = ""
Public Property Name() As String
Get
Return m_name
End Get
Set(value As String)
m_name = value
End Set
End Property
Private m_id As Integer = 0
Public Property Id() As Integer
Get
Return m_id
End Get
Set(value As Integer)
m_id = value
End Set
End Property
End Class
Public Class StudentCollectiont
Inherits CollectionBase
Public Sub New()
End Sub
Default Public Property Item(index As Integer) As Student
Get
Return DirectCast(List(index), Student)
End Get
Set(value As StudentCollectiontt)
List(index) = value
End Set
End Property
Public Sub Add(value As Integer)
For i As Integer = 1 To value
Dim ffsva As New Student
ffsva.Name=""
ffsva.id=0
List.Add(ffsva)
Next
End Sub
Public Function IndexOf(value As StudentCollectiontt) As Integer
Return (List.IndexOf(value))
End Function
Public Sub Insert(index As Integer, value As StudentCollectiontt)
List.Insert(index, value)
End Sub
Public Sub Remove(value As StudentCollectiontt)
List.Remove(value)
End Sub
Public Function Contains(value As Student) As Boolean
Return (List.Contains(value))
End Function
Protected Overrides Sub OnInsert(index As Integer, value As [Object])
End Sub
Protected Overrides Sub OnRemove(index As Integer, value As [Object])
End Sub
Protected Overrides Sub OnSet(index As Integer, oldValue As [Object], newValue As [Object])
End Sub
Protected Overrides Sub OnValidate(value As [Object])
End Sub
End Class
Public Class StudentCollectiont
Inherits CollectionBase
Public Sub New()
End Sub
Default Public Property Item(index As Integer) As StudentCollectiontt
Get
Return DirectCast(List(index), StudentCollectiontt)
End Get
Set(value As StudentCollectiontt)
List(index) = value
End Set
End Property
Public Function Add(value As Integer) As StudentCollectiontt
For i As Integer = 1 To value
Dim ffsva As New StudentCollectiontt
List.Add(ffsva)
Next
End Function
Public Function IndexOf(value As StudentCollectiontt) As Integer
Return (List.IndexOf(value))
End Function
Public Sub Insert(index As Integer, value As StudentCollectiontt)
List.Insert(index, value)
End Sub
Public Sub Remove(value As StudentCollectiontt)
List.Remove(value)
End Sub
Public Function Contains(value As Student) As Boolean
' If value is not of type Int16, this will return false.
Return (List.Contains(value))
End Function
Protected Overrides Sub OnInsert(index As Integer, value As [Object])
' Insert additional code to be run only when inserting values.
End Sub
Protected Overrides Sub OnRemove(index As Integer, value As [Object])
' Insert additional code to be run only when removing values.
End Sub
Protected Overrides Sub OnSet(index As Integer, oldValue As [Object], newValue As [Object])
' Insert additional code to be run only when setting values.
End Sub
Protected Overrides Sub OnValidate(value As [Object])
End Sub
End Class
Public Class StudentCollectiontt
Inherits CollectionBase
Public Sub New()
End Sub
Default Public Property Cells(index As Integer) As StudentCollectionttt
Get
Return DirectCast(List(index), StudentCollectionttt)
End Get
Set(value As StudentCollectionttt)
List(index) = value
End Set
End Property
Public Function Add(value As Integer) As Integer
For i As Integer = 0 To 1
Dim ffsva As New Studentt
Next
End Function
Public Function IndexOf(value As StudentCollectionttt) As Integer
Return (List.IndexOf(value))
End Function
Public Sub Insert(index As Integer, value As StudentCollectionttt)
List.Insert(index, value)
End Sub
Public Sub Remove(value As StudentCollectionttt)
List.Remove(value)
End Sub
Public Function Contains(value As StudentCollectionttt) As Boolean
' If value is not of type Int16, this will return false.
Return (List.Contains(value))
End Function
Protected Overrides Sub OnInsert(index As Integer, value As [Object])
' Insert additional code to be run only when inserting values.
End Sub
Protected Overrides Sub OnRemove(index As Integer, value As [Object])
' Insert additional code to be run only when removing values.
End Sub
Protected Overrides Sub OnSet(index As Integer, oldValue As [Object], newValue As [Object])
' Insert additional code to be run only when setting values.
End Sub
Protected Overrides Sub OnValidate(value As [Object])
End Sub
'#End Region
End Class
Public Class StudentCollectionttt
Inherits CollectionBase
Public Sub New()
End Sub
Default Public Property Item(index As Integer) As Studentt
Get
Return DirectCast(List(index), Studentt)
End Get
Set(value As Studentt)
List(index) = value
End Set
End Property
End Class