vb System.Web.UI.Design.WebControls.ObjectDataSourceDesigner.PreFilterProperties类(方法)实例源码

' Shadow the control properties with design-time properties.
Protected Overrides Sub PreFilterProperties( _
    ByVal properties As IDictionary)

    ' Call the base method first.
    MyBase.PreFilterProperties(properties)

    ' Make the NamingContainer visible in the Properties grid.
    Dim selectProp As PropertyDescriptor = _
        CType(properties("NamingContainer"), PropertyDescriptor)
    properties("NamingContainer") = _
        TypeDescriptor.CreateProperty(selectProp.ComponentType, _
            selectProp, BrowsableAttribute.Yes)
End Sub