テクパー２０２０
テクニカルヘルパー


　VisualBasic アプリ開発入門　
◆ Collection（コレクション）オブジェクト
コレクションは要素の 「追加」、「削除」 が動的にでき、簡単に参照することができます。
メソッド
Add
コレクションに要素を追加
Collection.Add(Item, Key, Before, After)

1. Item
［必須］コレクションに追加する任意の型のオブジェクト要素を指定
2. Key
［省略可能］コレクション内の新しい要素にアクセスするときに位置インデックスの代わりに使用できるキー文字列を指定
3. Before
［省略可能］コレクション内の位置を相対的に示す式（追加される要素は、Before 引数によって識別された要素の前に配置）
4. After
［省略可能］コレクション内の位置を相対的に示す式（追加される要素は、After 引数によって識別された要素の後に配置）
Dim myCollection As Collection 'コレクション
Dim myItem As Object
Dim myKey As String
Dim myBefore As Object
Dim myAfter As Object


'１番目に「red」、２番目に「green」、３番目に「blue」の要素を追加
myCollection.Add("red")
myCollection.Add("green")
myCollection.Add("blue")


'１番目に「redキーで#FF0000」、２番目に「greenキーで#008000」、３番目に「blueキーで#0000FF」の要素を追加
myCollection.Add("#FF0000", "red")
myCollection.Add("#008000", "green")
myCollection.Add("#0000FF", "blue")
Clear
コレクション内の要素をすべて削除
Collection.Clear()
Dim myCollection As Collection 'コレクション


'要素をすべて削除してから要素を追加
myCollection.Clear()
myCollection.Add("XXXXX")
Contains
コレクション内に特定のキーを持つ要素が含まれているかの探索
Collection.Contains(Key)


1. Key
［必須］探索するキー文字列を指定（指定のキー文字列を持つ場合 True、含まれない場合 Falseを返す）
Dim myCollection As Collection 'コレクション


'キーを持つ要素の探索
If myCollection.Contains("red") Then
returnValue = myCollection.Item("red")
End If
GetEnumerator
コレクションを反復処理する列挙子オブジェクトを返す
Collection.GetEnumerator()


IEnumerator型のオブジェクトを返す
Dim myCollection As Collection 'コレクション
Dim myIEnumerator As IEnumerator '列挙子オブジェクト


'反復処理する列挙子オブジェクトを返す
myIEnumerator = myCollection.GetEnumerator()
Dim myCurrent As Object
While myIEnumerator.MoveNext()
myCurrent = myIEnumerator.Current()
End While
Remove
コレクション内の要素をインデックス、特定のキーにより削除
Collection.Remove(Index)
Collection.Remove(Key)


1-1. Index
［必須］コレクション内の要素を削除するインデックスを指定
1-2. Key
［必須］コレクション内の要素を削除する特定のキーを指定
Dim myCollection As Collection 'コレクション


myCollection.Clear()
myCollection.Add("red")
myCollection.Add("green")
myCollection.Add("blue")


'インデックスにより削除
myCollection.Remove(0)


myCollection.Clear()
myCollection.Add("#FF0000", "red")
myCollection.Add("#008000", "green")
myCollection.Add("#0000FF", "blue")


'特定のキーにより削除
myCollection.Remove("red")
プロパティ
Count
コレクションの要素数の取得
Collection.Count()
Dim myCollection As Collection 'コレクション


myCollection.Clear()
myCollection.Add("red")
myCollection.Add("green")
myCollection.Add("blue")


'コレクションの要素数の取得（intCntの結果は 3 になります）
Dim intCnt As Integer = myCollection.Count()
Item
コレクション内の要素をインデックス、特定のキーで取得
Collection.Item(Index)
Collection.Item(Key)


1-1. Index
［必須］コレクション内の要素を取得するインデックスを指定
1-2. Key
［必須］コレクション内の要素を取得する特定のキーを指定
Dim myCollection As Collection 'コレクション


myCollection.Clear()
myCollection.Add("red")
myCollection.Add("green")
myCollection.Add("blue")


'インデックスで取得（strValueの結果は green になります）
Dim strValue As String = myCollection.Item(1)


myCollection.Clear()
myCollection.Add("#FF0000", "red")
myCollection.Add("#008000", "green")
myCollection.Add("#0000FF", "blue")


'特定のキーで取得（strValueの結果は #0000FF になります）
strValue = myCollection.Item("blue")
Copyright (C) 2010 プログラミングのテクニックをあなたに！！（リトル・ヘルパー） All Rights Reserved.