CatalogZone Constructor ()
Initializes a new instance of the CatalogZone class.
Assembly: System.Web (in System.Web.dll)
Because the CatalogZone control implements a zone template, it is usually used declaratively and you will seldom need to create a new instance of the class using the CatalogZone constructor. However, if you inherit from the CatalogZone class to create a custom zone, you might wish to use the constructor to initialize some of its property values and customize its appearance.
The following code example demonstrates the programmatic use of the CatalogZone constructor in a custom CatalogZone control. The constructor is used to initialize some default property values for the control. The following code shows the custom CatalogZone class with the constructor declared near the top. For the full code and instructions required to set up and run the example, see the Example section in the CatalogZone class overview.
Imports System Imports System.Collections Imports System.ComponentModel Imports System.Drawing Imports System.Security.Permissions Imports System.Web Imports System.Web.UI Imports System.Web.UI.WebControls Imports System.Web.UI.WebControls.WebParts Namespace Samples.AspNet.VB.Controls ' Create a custom CatalogZone control by setting some ' properties in the constructor. <AspNetHostingPermission(SecurityAction.Demand, _ Level:=AspNetHostingPermissionLevel.Minimal)> _ <AspNetHostingPermission(SecurityAction.InheritanceDemand, _ Level:=AspNetHostingPermissionLevel.Minimal)> _ Public Class MyCatalogZone Inherits CatalogZone Public Sub New() Me.HeaderText = "My Company Catalog" Me.HeaderCloseVerb.Text = "Close Catalog" Me.CloseVerb.Text = "Close Catalog" End Sub End Class ' Create a custom WebPart to add to a WebPartZone. <AspNetHostingPermission(SecurityAction.Demand, _ Level:=AspNetHostingPermissionLevel.Minimal)> _ <AspNetHostingPermission(SecurityAction.InheritanceDemand, _ Level:=AspNetHostingPermissionLevel.Minimal)> _ Public Class TextDisplayWebPart Inherits WebPart Private _contentText As String = Nothing Private _fontStyle As String = Nothing Private input As TextBox Private DisplayContent As Label Private lineBreak As Literal <Personalizable(), WebBrowsable()> _ Public Property ContentText() As String Get Return _contentText End Get Set(ByVal value As String) _contentText = value End Set End Property Protected Overrides Sub CreateChildControls() Controls.Clear() DisplayContent = New Label() DisplayContent.BackColor = Color.LightBlue DisplayContent.Text = Me.ContentText Me.Controls.Add(DisplayContent) lineBreak = New Literal() lineBreak.Text = "<br />" Controls.Add(lineBreak) input = New TextBox() Me.Controls.Add(input) Dim update As New Button() update.Text = "Set Label Content" AddHandler update.Click, AddressOf Me.submit_Click Me.Controls.Add(update) End Sub Private Sub submit_Click(ByVal sender As Object, _ ByVal e As EventArgs) ' Update the label string. If input.Text <> String.Empty Then _contentText = input.Text + "<br />" input.Text = String.Empty DisplayContent.Text = Me.ContentText End If End Sub End Class End Namespace
Available since 2.0