本文整理汇总了VB.NET中System.Web.UI.Design.WebControls.WebParts.ConnectionsZoneDesigner类的典型用法代码示例。如果您正苦于以下问题：VB.NET ConnectionsZoneDesigner类的具体用法？VB.NET ConnectionsZoneDesigner怎么用？VB.NET ConnectionsZoneDesigner使用的例子？那么恭喜您, 这里精选的类代码示例或许可以为您提供帮助。
在下文中一共展示了ConnectionsZoneDesigner类的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: PreFilterProperties
' 导入命名空间
Imports System.Security.Permissions
Imports System.Web
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.Design.WebControls.WebParts
Imports System.ComponentModel
Imports System.Collections
' ConnectionsZoneSample provides a blank inheritance of
' the ConnectionsZone class for the purpose of attaching
' a custom designer.
' ConnectionsZoneSampleDesigner shows how to edit the
' PreFilterProperties() method to hide a specific property
' at design time.
Namespace Samples.AspNet.VB.Controls
<AspNetHostingPermission(SecurityAction.Demand, Level:=AspNetHostingPermissionLevel.Minimal)> _
<AspNetHostingPermission(SecurityAction.InheritanceDemand, Level:=AspNetHostingPermissionLevel.Minimal)> _
<Designer(GetType(ConnectionsZoneSampleDesigner))> _
Public Class ConnectionsZoneSample
Inherits ConnectionsZone
End Class
Public Class ConnectionsZoneSampleDesigner
Inherits ConnectionsZoneDesigner
' Here is the property we will hide.
Private propertyToHide As String = "BackColor"
Protected Overrides Sub PreFilterProperties(properties As IDictionary)
' Invoke the base method. This will hide those properties
' specified in ConnectionsZoneDesigner.
MyBase.PreFilterProperties(properties)
' Set attributes to remove it from the property grid and any editors.
Dim newAttributes As Attribute() = New Attribute() {New BrowsableAttribute(False), New EditorBrowsableAttribute(EditorBrowsableState.Never)}
Dim [property] As PropertyDescriptor = DirectCast(properties(propertyToHide), PropertyDescriptor)
If [property] IsNot Nothing Then
' Re-create the property with the attributes specified above.
properties(propertyToHide) = TypeDescriptor.CreateProperty([property].ComponentType, [property], newAttributes)
End If
End Sub
End Class
End Namespace