|
Is there a way to retrieve Entities using a System.Type variable instead of a generics (Of T) that cannot be set in a variable?
I would like to be able to do something like that :
Private Sub TestReflex()
Dim oAms As Reflection.Assembly = Reflection.Assembly.GetCallingAssembly
For Each oType As Type In oAms.GetTypes
If oType.BaseType Is GetType(Entity) Then
PrintAll(oType)
End If
Next
End Sub
Private Sub PrintAll(ByVal pType As System.Type)
For Each oEnt As Entity In DefaultManager.GetEntities(Of pType)() '<-- Does not compile
PrintValues(Of pType.BaseType) (CType(oEnt, pType.BaseType)) '<-- Does not compile
Next
End Sub
Private Sub PrintValues(Of T)(ByVal pItem As T)
Dim oProperties() As Reflection.PropertyInfo
oProperties = GetType(T).GetProperties(Reflection.BindingFlags.DeclaredOnly _
Or Reflection.BindingFlags.Instance _
Or Reflection.BindingFlags.Public)
For Each oProp As Reflection.PropertyInfo In oProperties
If oProp.CanRead AndAlso oProp.CanWrite Then
Console.WriteLine("{0} = {1}", oProp.Name, oProp.GetValue(pItem, Nothing))
ElseIf oProp.CanRead Then
Console.WriteLine("{0}* = {1}", oProp.Name, oProp.GetValue(pItem, Nothing))
End If
Next
End Sub
|
Thanks for any idea
-------------
F3
|