「VB.NET」Addで要素をCollectionオブジェクトに追加

2021年9月8日

書式
1.Default Public ReadOnly Property Item(Key As String) As Object
Collection オブジェクトの特定の要素を、位置またはキーに基づいて取得します。
2.Public Sub Add (Item As Object, Optional Key As String = Nothing, Optional Before As   Object = Nothing,Optional After As Object = Nothing)
要素を Collection オブジェクトに追加します。
使用例

Module ModuleTest

    Public Sub Main()

        'Collectionオブジェクトの宣言
        Dim bdays As New Collection()

        'インスタンスをコレクションに追加
        bdays.Add(New DateTime(2021, 1, 12), "user101")
        bdays.Add(New DateTime(2021, 2, 13), "user202")
        bdays.Add(New DateTime(2021, 3, 14), "user303")
        bdays.Add(New DateTime(2021, 4, 15), "user404")

        Dim resBd As DateTime
        '特定の要素user202を、位置またはキーに基づいて取得
        resBd = bdays.Item("user202")
        MsgBox(CStr(resBd))

        '特定の要素user404を、位置またはキーに基づいて取得
        resBd = bdays("user404")
        MsgBox(CStr(resBd))

    End Sub

End Module

結果
2021/02/13
2021/04/15

VB.net

Posted by arkgame