BindingSource と Dictionary の 2 つのオブジェクトがあります。また、BindingSource オブジェクトには、List of Vehicles クラス オブジェクトのオブジェクトが含まれ、Dictionary オブジェクトには BindingSource クラス オブジェクトが含まれます。そして、ここにグローバル宣言があります:
Dim bs As BindingSource
Dim dicBinding As Dictionary(Of Integer,BindingSource)
ユーザーが「追加」という名前のボタンをクリックすると、Vehicle クラスのオブジェクトが bs に追加され、次に bs が dicBinding に追加されます。
If bs Is Nothing Then bs = New BindingSource(New List(Of Vehicle),Nothing)
If dicBinding is Nothing Then dicBinding = New Dictionary(Of integer,BindingSource)
Dim i As Integer = dicBinding.Count
dicBinding.Add(i,bs)
dicBinding オブジェクトから BindingSource オブジェクトを取得する場合:
bs =TryCast(dicBinding.Item(0),BindingSource)
For Each v As Vehicle In bs.List
MessageBox.Show(v.VehicleId)
Next
しかし、私は取得することはできません。誰でも私を助けることができますか?