どのようにオブジェクトタイプを動的に割り当てるのですか？

Question

パネル内のすべてのコントロールをループしています。いくつかのコントロールは私が作成したクラスです。これらのクラスでは、オブジェクトが削除されたときにサブルーチンを実行します。だから、私はそのルーチンを実行するために使用できる一時的なオブジェクトを作成しようとしています。

For Each window As Control In main_window.Controls 
    If window.Handle = hdl Then 
    Dim temp_window as window.getType() 
    temp_window.close_me() 
    main_window.Controls.Remove(window) 
    End If 
Next 

ただし、getTypeの割り当てはできません。

どうすればこの問題を解決できますか？

Answer 1

これを行うための正しい方法は、基本またはインターフェイス上close_meとあなたのコントロールInheritやあなたのコントロールImplementインタフェースの基本クラスを使用することです。次に、ベースまたはインターフェイスへのControlsの各メンバーTryCastを実行し、成功した場合はclose_meを呼び出します。基本クラスのアプローチを使用する場合は、抽象的な（MustInherit）にし、close_meはMustOverrideになります（それぞれの派生型で動作が異なる必要があるかどうかによって異なります）。

ICloseableを使用すると仮定すると、

Interface ICloseable 
    Sub close_me() 
End Interface 

'... 

For Each window As Control In main_window.Controls 
    If window.Handle = hdl Then 
     Dim asCloseable = TryCast(window, ICloseable) 
     If asCloseable IsNot Nothing Then 
      asCloseable.close_me() 
     EndIf 
    EndIf 
Next 

Answer 2

Object.GetTypeは、通常、反射に使用されるそのタイプのメタデータを含むオブジェクトのTypeインスタンスを返します。

実際のタイプは何ですか？それはclose_meメソッドを持っている必要があります。あなたはOfTypeを使用することができます。

Dim windowsToClose = main_window.Controls.OfType(Of YourWindowType)(). 
    Where(Function(w) w.Handle = hdl). 
    ToArray() 

For Each window In windowsToClose 
    window.close_me() 
    main_window.Controls.Remove(window) 
Next 

あなたFor Each別の理由で動作しません：あなたはそれを列挙している間、あなたは、コレクションから項目を削除することはできません。上のアプローチは、削除するウィンドウを配列に格納します。