如何在程序运行中动态改变对象属性在PropertyGrid可见性和只读属性

以下两个方法分别实现可见性和只读属性的动态改变：

void SetPropertyVisibility(object obj, string propertyName, bool visible) 
{ 
Type type = typeof(BrowsableAttribute); 
PropertyDescriptorCollection props = TypeDescriptor.GetProperties(obj); 
AttributeCollection attrs = props[propertyName].Attributes; 
FieldInfo fld = type.GetField("browsable", BindingFlags.Instance | BindingFlags.NonPublic); 
fld.SetValue(attrs[type], visible); 
}

void SetPropertyReadOnly(object obj, string propertyName, bool readOnly) 
{ 
Type type = typeof(System.ComponentModel.ReadOnlyAttribute); 
PropertyDescriptorCollection props = TypeDescriptor.GetProperties(obj); 
AttributeCollection attrs = props[propertyName].Attributes; 
FieldInfo fld = type.GetField("isReadOnly", BindingFlags.Instance | BindingFlags.NonPublic | BindingFlags.CreateInstance); 
fld.SetValue(attrs[type], readOnly); 
}

'上面是cs的代码 以下是自己改的vb代码 测试通过

Function SetPropertyVisibility(ByVal obj As Object, ByVal propertyName As String, ByVal visible As Boolean)

        Dim mytype As Type = GetType(BrowsableAttribute)

        Dim props As PropertyDescriptorCollection = TypeDescriptor.GetProperties(obj) '得到一个属性集 

        Dim attrs As AttributeCollection = props(propertyName).Attributes

        Dim fld As FieldInfo = mytype.GetField("browsable", BindingFlags.Instance Or BindingFlags.NonPublic)

        fld.SetValue(attrs(mytype), visible)

        Return Nothing

End Function

'同一个类中调用的话 如下就OK了

SetPropertyVisibility(Me, "属性名称", True)

本文来自优快云博客，转载请标明出处：http://blog.youkuaiyun.com/departure19841030/archive/2009/10/24/4720452.aspx