Как определить, существует ли член класса?

Question

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

Например:

Public Class_1 

    Public a1 as string = "" 

    Public Sub New() 
     ' when a button is clicked call subroutine "check()" 
    End Sub 

End Class 

Public Class_2 

    Public a1 as string = "" 
    Public a2 as integer = 0 

    Public Sub New() 
     ' when a button is clicked call subroutine "check()" 
    End Sub 

End Class 

Public Class whatever 

    Public Sub check(sender as object) 
     If sender.a2 = 0 then 
     ' do something 
     End if 
    End Sub 

End Class 

Я попытался такие вещи, как

If not(sender.a2 is nothing) then 
If isnothing(sender.a2) then 

Но я не могу пройти мимо того факта, что я получаю сообщение об ошибке, просто используя «sender.a2», так как a2 не всегда является участником отправителя.

Как проверить, не является ли a2 членом класса отправки без использования «sender.a2»?

Answer 1

Если вы хотите увидеть, что поле существует вам это нужно:

Dim fi As FieldInfo = sender.GetType().GetField("nameOfFieldHere") 
If fi IsNot Nothing 
    'field exists now get the value 
    Dim o As Object = fi.GetValue(sender) 
End If 

Посмотрите на документацию Type.GetField Method (String) Есть также перегружает слишком доступны.

Answer 2

Вы можете проверить, что объект, на который вы ссылаетесь, имеет определенный тип, прежде чем пытаться его использовать. После того, как вы определили, что это правильный тип, вы можете смело бросить на него, а затем использовать правильные свойства, как так:

If (TypeOf sender Is Class_2) Then 
    Dim castObj As Class_2 = CType(sender, Class_2) 
    'We can now access castObj.a2 
End If 

Если существует несколько классов со свойством, было бы целесообразно создать интерфейс, который заявляет, что у них есть свойство a2 и все они реализуют его. Затем вы можете проверить свой тип на новый интерфейс вместо Class_2.

Альтернативный вариант - использовать наследование классов для реализации общедоступного метода по умолчанию для всех классов и переопределить его в специальном случае Class_2 для ваших подклассов.