VB.NET - доступ к общему члену через тип

Question

Мне интересно, возможно ли это. В моей функции тестирования ниже я хочу

1. Проверьте, если T имеет тип BaseClass; выбросьте ошибку, если это не так.

2. Получить значение SomeText Недвижимость BaseClass.

   Class BaseClass 
   
       Public Shared Property SomeText As String 
   
   End Class 
   
   Class Class1 
       Inherits BaseClass 
   
       Public Sub New() 
        SomeText = "Class 1 here" 
       End Sub 
   
   End Class 
   

...

Sub Main 

     Test(GetType(Class1)) 
     Test(GetType(Class2)) 

    End Sub 

    Sub Test(T As Type) 

     ' Task 1: Check if T is of type BaseClass 

     ' Task 2: Get the value of SomeText property of BaseClass 

    End Sub 

Answer 1

тест Rewrite следующим образом (обновляется с учетом изменений на вопрос):

Sub Test(T As Type) 

    ' Task 1: Check if T is of type BaseClass 
    If T.IsSubclassOf(GetType(BaseClass)) Then 
     ' Task 2: Get the value of SomeText property of BaseClass 
     Dim sValue As String 
     ' Create an unused instance of BaseClass to ensure the current value of SomeText is assigned 
     Dim oClass As BaseClass = DirectCast(System.Activator.CreateInstance(T), BaseClass) 

     ' Get the value from BaseClass since it is a shared instance 
     sValue = BaseClass.SomeText 
    Else 
     Throw New ArgumentException("T did not inherit from BaseClass") 
    End If 


End Sub 

Answer 2

Вы можете сохранить тестовую подпись и сделать следующее :

If T.BaseType Is GetType(BaseClass) Then 
     Dim CurrentValue as String = BaseClass.SomeText 
    Else 
     Throw New ArgumentException("T must inherit from BaseClass") 
    End If 

Поскольку это никогда не создает экземпляр вашего типа, вы можете не получить строку, которую вы ожидаете. Если вы еще не создали экземпляр в другом месте, у вас будет только пустая строка.

Вы можете создать экземпляр вашего класса от типа вы послали, если это ваша цель:

If T.BaseType Is GetType(BaseClass) Then 
     Dim currentValue As String = CType(Activator.CreateInstance(T), BaseClass).SomeText 
    Else 
     Throw New ArgumentException("T must inherit from BaseClass") 
    End If 

Редактировать на основе комментария о дальнейших подклассах:

Если вы хотите, чтобы включить базу типа или любых потомков, вы можете использовать это, если вместо этого:

If T Is GetType(EventBase) OrElse T.IsSubclassOf(GetType(EventBase)) Then 

    End If