[619] | 1 |
|
---|
| 2 | Namespace System
|
---|
| 3 | Namespace Collections
|
---|
| 4 | Namespace ObjectModel
|
---|
| 5 |
|
---|
| 6 |
|
---|
| 7 | Class ReadOnlyCollection<T>
|
---|
[631] | 8 | Implements System.Collections.Generic.IList<T>
|
---|
| 9 | list As System.Collections.Generic.IList<T>
|
---|
[619] | 10 |
|
---|
| 11 | Public
|
---|
| 12 | 'Collection クラスの新しいインスタンスを初期化します。
|
---|
| 13 | Sub ReadOnlyCollection ()
|
---|
[631] | 14 | Dim l = New System.Collections.Generic.List<T>
|
---|
| 15 | This.list = l
|
---|
[619] | 16 | End Sub
|
---|
[631] | 17 | Sub ReadOnlyCollection ( list As System.Collections.Generic.IList<T> )
|
---|
[619] | 18 | This.list = list
|
---|
| 19 | End Sub
|
---|
| 20 |
|
---|
| 21 | Public
|
---|
| 22 | 'Collection に実際に格納されている要素の数を取得します。
|
---|
| 23 | Override Function Count () As Long
|
---|
| 24 | Return This.list.Count()
|
---|
| 25 | End Function
|
---|
| 26 |
|
---|
| 27 | 'Item 指定したインデックスにある要素を取得します。
|
---|
| 28 | Sub Operator[] ( index As Long, item As T )
|
---|
| 29 | Throw New NotSupportedException
|
---|
| 30 | End Sub
|
---|
| 31 | Function Operator[] ( index As Long ) As T
|
---|
| 32 | Return This.list.Item(index)
|
---|
| 33 | End Function
|
---|
| 34 |
|
---|
| 35 | Protected
|
---|
| 36 | 'Collection をラップする IList ラッパーを取得します。
|
---|
| 37 | Function Items () As Generic.IList<T>
|
---|
[631] | 38 | Return This
|
---|
[619] | 39 | End Function
|
---|
| 40 |
|
---|
| 41 | Public
|
---|
| 42 | 'Collection の末尾にオブジェクトを追加します。
|
---|
| 43 | Override Sub Add ( item As T )
|
---|
| 44 | Throw New NotSupportedException
|
---|
| 45 | End Sub
|
---|
| 46 |
|
---|
| 47 | 'Collection からすべての要素を削除します。
|
---|
| 48 | Override Sub Clear ()
|
---|
| 49 | Throw New NotSupportedException
|
---|
| 50 | End Sub
|
---|
| 51 |
|
---|
| 52 | 'ある要素が Collection 内に存在するかどうかを判断します。
|
---|
| 53 | /* Function Contains ( item As T ) As Boolean
|
---|
| 54 | End Function*/
|
---|
| 55 |
|
---|
| 56 | 'Collection 全体を互換性のある 1 次元の Array にコピーします。コピー操作は、コピー先の配列の指定したインデックスから始まります。
|
---|
| 57 | /*CopyTo*/
|
---|
| 58 |
|
---|
| 59 | 'Collection を反復処理する列挙子を返します。
|
---|
[631] | 60 | Override Function GetEnumerator () As System.Collections.Generic.IEnumerator<T>
|
---|
[619] | 61 | Return This.list.GetEnumerator()
|
---|
| 62 | End Function
|
---|
| 63 |
|
---|
| 64 | '指定したオブジェクトを検索し、Collection 全体内で最初に見つかった位置の 0 から始まるインデックスを返します。
|
---|
| 65 | Override Function IndexOf ( item As T ) As Long
|
---|
| 66 | Return This.list.IndexOf(item)
|
---|
| 67 | End Function
|
---|
| 68 |
|
---|
| 69 | 'Collection 内の指定したインデックスの位置に要素を挿入します。
|
---|
| 70 | Override Sub Insert ( index As Long, item As T )
|
---|
| 71 | Throw New NotSupportedException
|
---|
| 72 | End Sub
|
---|
| 73 |
|
---|
| 74 | 'IList が読み取り専用かどうかを示す値を取得します。
|
---|
| 75 | Override Function IsReadOnly () As Boolean
|
---|
| 76 | Return True
|
---|
| 77 | End Function
|
---|
| 78 |
|
---|
| 79 | 'Collection 内で最初に見つかった特定のオブジェクトを削除します。
|
---|
| 80 | Override Function Remove ( item As T ) As Boolean
|
---|
| 81 | Throw New NotSupportedException
|
---|
| 82 | End Function
|
---|
| 83 |
|
---|
| 84 | 'Collection の指定したインデックスにある要素を削除します。
|
---|
| 85 | Override Sub RemoveAt ( index As Long )
|
---|
| 86 | Throw New NotSupportedException
|
---|
| 87 | End Sub
|
---|
| 88 |
|
---|
| 89 | '現在の Object を表す String を返します。 (Object から継承されます。)
|
---|
| 90 | Override Function ToString () As String
|
---|
| 91 | Dim string = New Text.StringBuilder
|
---|
| 92 | Dim i As Long
|
---|
| 93 | For i = 0 To ELM(This.list.Count())
|
---|
| 94 | string.Append(This.list.Item[i]).Append(Ex"\r\n")
|
---|
| 95 | Next
|
---|
| 96 | Return string.ToString
|
---|
| 97 | End Function
|
---|
| 98 |
|
---|
| 99 | End Class
|
---|
| 100 |
|
---|
| 101 | End Namespace
|
---|
| 102 | End Namespace
|
---|
| 103 | End Namespace
|
---|