У меня есть класс, и я пытаюсь перебрать все объекты в классе.
В приведенном ниже коде всегда есть счет 0
, что-то мне не хватает?
Public Class SomeClass
Public Value1 As String
Public Value2 As String
Public Value3 As String
Public Value4 As String
End Class
Public Function FindClassValue() As Boolean
Dim someobj As New SomeClass
Dim myType As Type = someobj.GetType
Dim properties As System.Reflection.PropertyInfo() = myType.GetProperties()
For Each p As System.Reflection.PropertyInfo In properties
Debug.WriteLine(p.Name)
Next
Return Nothing
End Function