如何遍历类的所有属性？

Question

如何遍历类的所有属性？

我上课了。

Public Class Foo    Private _Name As String
    Public Property Name() As String
        Get
            Return _Name        End Get
        Set(ByVal value As String)
            _Name = value        End Set
    End Property

    Private _Age As String
    Public Property Age() As String
        Get
            Return _Age        End Get
        Set(ByVal value As String)
            _Age = value        End Set
    End Property

    Private _ContactNumber As String
    Public Property ContactNumber() As String
        Get
            Return _ContactNumber        End Get
        Set(ByVal value As String)
            _ContactNumber = value        End Set
    End PropertyEnd Class

我想循环上面的类的属性。例如;

Public Sub DisplayAll(ByVal Someobject As Foo)
    For Each _Property As something In Someobject.Properties
        Console.WriteLine(_Property.Name & "=" & _Property.value)
    NextEnd Sub