Comment définir un objet comme le type d'un autre objet?

Question

text: J'ai une classe de base avec une méthode pour synchroniser les données. Cependant, je dois être capable de créer un nouvel objet dans le processus qui est le même que l'objet parent qui a hérité de la classe de base.

Je veux faire quelque chose comme ceci:

Sub Transfer(ByVal OBType As BaseClass) 
    Dim A as new typeof(OBType) 
    A.doSomething() 
End Sub 

EDIT

J'appologize pour toute confusion

Mon cas d'utilisation est que je transférer des données entre deux objets et la méthode est responsable de la fusion des changements entre eux. Lorsque la méthode est appelée, elle reçoit un ensemble d'enregistrements et doit ensuite appeler une méthode de transfert qui les synchronise. Lors de l'exécution de GetDataRow, j'ai besoin d'une nouvelle version de l'objet et j'ai également besoin d'une nouvelle version pour terminer le transfert.

Voici une version allégée du code:

GetDataRow crée l'objet forment les données DataRow et transfert compare ensuite et apporte les modifications nécessaires.

Sub Transfer(ByVal OBType As BaseBLLClass) 
     'Get a list from each side and synch 
     Dim DT As DataTable = GetDataMethod() ‘Gets data to transfer 
     Dim A As OBType 
     Dim B As OBType 
     For Each Row As DataRow In DT.Rows 
      A = New OBType 
      B = New OBType 
      GetDataRow(A, Row).TransferData(B) 
     Next 
    End Sub 

Solution

Public Shared Sub Base_Transfer(Of OBType As BaseBLLClass)() 
     'Get a list from each side and synch 
     Dim DT As DataTable = GetDataMethod() ‘Gets data to transfer 
     Dim A As BaseClassUIM = Activator.CreateInstance(GetType(OBType)) 
     Dim B As BaseClassUIM = Activator.CreateInstance(GetType(OBType)) 
     For Each Row As DataRow In DT.Rows 
      A = Activator.CreateInstance(GetType(OBType)) 
      B = Activator.CreateInstance(GetType(OBType)) 
      GetDataRow(A, Row).TransferData(B) 
     Next 
    End Sub 

Answer 1

Vous pouvez utiliser Activator.CreateInstance pour construire le nouvel objet avec le type approprié. Une fois que vous avez fait cela, vous pouvez le lancer dans votre classe de base.

Answer 2

Je ne suis pas au courant de la façon dont il regarderait en VB, mais en C# vous pourriez faire avec les génériques comme celui-ci:

public void Transfer<T>(T item) where T: BaseClass, new() 
{ 
    var a = new T(); 
    a.DoSomething(); 
} 

Voici ma faible tentative d'écrire la même chose dans VB:

Sub Transfer(Of T As {BaseClass, New})(ByVal OBType As T) 
    Dim A as new T 
    A.doSomething() 
End Sub