如何遍历一个类的所有属性？
如何遍历一个类的所有属性？
提问于 2009-02-10 07:44:42
我有课要上。
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回答 7
Stack Overflow用户
回答已采纳
发布于 2009-02-10 07:47:38
使用反射：
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()来获取属性的值时使用它。
Stack Overflow用户
发布于 2009-02-10 09:00:30
请注意，如果您正在讨论的对象有一个自定义属性模型(如DataTable的DataRowView等)，那么您需要使用TypeDescriptor；好消息是，这仍然适用于常规类(甚至可以是much quicker than reflection)：
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));Stack Overflow用户
发布于 2009-02-10 07:53:48
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)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/531384
复制相关文章
相似问题