クラスのすべてのプロパティをループする方法は？

クラスがあります。

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 Property


End Class

上記のクラスのプロパティをループ処理したいと思います。例えば;

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

リフレクションを使用：

Type type = obj.GetType();
PropertyInfo[] properties = type.GetProperties();

foreach (PropertyInfo property in properties)
{
    Console.WriteLine("Name: " + property.Name + ", Value: " + property.GetValue(obj, null));
}

Excelの場合-リストに "System.Reflection"エントリがないため、BindingFlagsにアクセスするために追加する必要があるツール/参照項目

編集：BindingFlags値をtype.GetProperties()次のように指定することもできます。

BindingFlags flags = BindingFlags.Public | BindingFlags.Instance;
PropertyInfo[] properties = type.GetProperties(flags);

これにより、返されるプロパティがパブリックインスタンスプロパティ（静的プロパティ、保護プロパティなどを除く）に制限されます。

を指定する必要はありません。プロパティの値を取得するためBindingFlags.GetPropertyに呼び出すときにそれを使用しtype.InvokeMember()ます。

あなたが話しているオブジェクトは、（のようなカスタムプロパティモデルがある場合は、その注意DataRowViewなどのためにDataTable）、その後、あなたが使用する必要がありますTypeDescriptor。良いニュースは、これは通常のクラスでも問題なく機能することです（そして、リフレクションよりもはるかに高速になることもあります）。

foreach(PropertyDescriptor prop in TypeDescriptor.GetProperties(obj)) {
    Console.WriteLine("{0} = {1}", prop.Name, prop.GetValue(obj));
}

これによりTypeConverter、フォーマットなどにも簡単にアクセスできます。

    string fmt = prop.Converter.ConvertToString(prop.GetValue(obj));

Brannonから提供されたC＃のVBバージョン：

Public Sub DisplayAll(ByVal Someobject As Foo)
    Dim _type As Type = Someobject.GetType()
    Dim properties() As PropertyInfo = _type.GetProperties()  'line 3
    For Each _property As PropertyInfo In properties
        Console.WriteLine("Name: " + _property.Name + ", Value: " + _property.GetValue(Someobject, Nothing))
    Next
End Sub

行番号3の代わりにバインドフラグを使用する

    Dim flags As BindingFlags = BindingFlags.Public Or BindingFlags.Instance
    Dim properties() As PropertyInfo = _type.GetProperties(flags)

リフレクションはかなり「重い」

おそらくこのソリューションを試してください：// C＃

if (item is IEnumerable) {
    foreach (object o in item as IEnumerable) {
            //do function
    }
} else {
    foreach (System.Reflection.PropertyInfo p in obj.GetType().GetProperties())      {
        if (p.CanRead) {
            Console.WriteLine("{0}: {1}", p.Name, p.GetValue(obj,  null)); //possible function
        }
    }
}

'VB.Net

  If TypeOf item Is IEnumerable Then

    For Each o As Object In TryCast(item, IEnumerable)
               'Do Function
     Next
  Else
    For Each p As System.Reflection.PropertyInfo In obj.GetType().GetProperties()
         If p.CanRead Then
               Console.WriteLine("{0}: {1}", p.Name, p.GetValue(obj, Nothing))  'possible function
          End If
      Next
  End If

反射が遅くなるダウン+/- 1000×で示したメソッド呼び出しの速度を、日常的なもののパフォーマンス

これは、LINQラムダを使用して行う別の方法です。

C＃：

SomeObject.GetType().GetProperties().ToList().ForEach(x => Console.WriteLine($"{x.Name} = {x.GetValue(SomeObject, null)}"));

VB.NET：

SomeObject.GetType.GetProperties.ToList.ForEach(Sub(x) Console.WriteLine($"{x.Name} = {x.GetValue(SomeObject, Nothing)}"))

これが私のやり方です。

foreach (var fi in typeof(CustomRoles).GetFields())
{
    var propertyName = fi.Name;
}

private void ResetAllProperties()
    {
        Type type = this.GetType();
        PropertyInfo[] properties = (from c in type.GetProperties()
                                     where c.Name.StartsWith("Doc")
                                     select c).ToArray();
        foreach (PropertyInfo item in properties)
        {
            if (item.PropertyType.FullName == "System.String")
                item.SetValue(this, "", null);
        }
    }

上記のコードブロックを使用して、名前が「Doc」で始まるWebユーザーコントロールオブジェクトのすべての文字列プロパティをリセットしました。