我有课要上。
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
发布于 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()
来获取属性的值时使用它。
发布于 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));
发布于 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)
https://stackoverflow.com/questions/531384
复制相似问题