クラスは自立できますか？

Question

クラスは参照されていないアセンブリを継承できますか？それとも自立させることができますか？

私は動的に参照されていないDLLをロードし、自分自身にそれを設定できるようにしたいのですが - のようなもの：

Public Class MyProject.SomeClassWrapper 
    Inherits System.Windows.Forms.AxHost 

    Public Sub New() 
     Dim dynamicallyLoadedAssembly As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile("C:\Temp\SomeLibrary.dll") 
     Me = dynamicallyLoadedAssembly.CreateInstance("SomeLibrary.SomeClass") '<----- Doesn't work, but is there a way to do this?    
    End Sub 
End Class 

それとも、動的にクラスをロードし、それを継承？

'This class has the some of the properties/methods/etc as the library being imported 
Public Class MyProject.SomeClassWrapper 
    Inherits System.Windows.Forms.AxHost 

    Public Sub New(clsid As String) 
     MyBase.New(clsid) 
    End Sub 

    Public Sub SomeSubroutineHere() 
     'Do something 
    End Sub 
End Class 

'This class needs to inherit from a dynamically loaded assembly via reflection 
Public Class MyClass 
    Inherits MyProject.SomeClassWrapper 

    Public Sub New() 

     Dim dynamicallyLoadedAssembly As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile("C:\Temp\SomeLibrary.dll") 
     Dim newInstance = dynamicallyLoadedAssembly.CreateInstance("SomeLibrary.SomeClass") 
     Dim strCLSID as String = "Where can i get the CLSID from here?" 

     MyBase = newInstance '<<< I want to set "MyBase" to the new instance so that when MyBase.New() is called, it's the full inherited library 
     MyBase.New(strCLSID) 
    End Sub 
End Class 

ありがとうございます！

Answer 1

いいえ、これらのことはできません。オブジェクトが作成（または作成）されると、オブジェクトはタイプまたはインスタンスを変更できません。 VBは静的型言語です。

しかし、デコレータパターンを使用して閉じることができます。

はこれを試してみてください：

Public Interface IDecorator 
    Sub DoSomething() 
End Interface 

Public Class MyDecoratorClass 
    Implements IDecorator 

    Private _inner As IDecorator 

    Public Sub New() 
     Dim dynamicallyLoadedAssembly = System.Reflection.Assembly.LoadFile("C:\Temp\SomeLibrary.dll") 
     Dim newInstance = dynamicallyLoadedAssembly.CreateInstance("SomeLibrary.SomeClass") 
     _inner = CType(newInstance, IDecorator) ' `newInstance` must implement `IDecorator` 
    End Sub 

    Public Sub DoSomething() Implements IDecorator.DoSomething 
     _inner.DoSomething() 
    End Sub 
End Class 

あなたはMyDecoratorClass上IDecoratorメソッドを呼び出したときに今、実際の呼び出しは、動的にロードされたインスタンスを介して送信されます。