控制項學習九（AttributeCollection及工具箱圖示）

 

十一．屬性設計的進階技巧

1.當屬性是指向某個集合或物件

當我們使用某些控制項的時候，屬性似乎不是屬性，而是一個另外一個物件。看下面的例子。

我們在頁面上布置一個TextBox，你會發現可以這樣用”me.TextBox1.Attributes.Add()”

其實，Attributes是它的一個屬性。單純的屬性是不會有方法和其他屬性的，很顯然，Attributes是指向另外一個結構——AttributeCollection物件。

Imports System.ComponentModel

Imports System.Web.UI

 

<DefaultProperty("items"), ToolboxData("<{0}:MyTestControlA runat=server></{0}:MyTestControlA>")> Public Class MyTestControlA

    Inherits System.Web.UI.WebControls.WebControl

    '儲存一個項目的類別

    Class DataItem

        Public data1 As String

        Sub New(ByVal data)

            data1 = data

        End Sub

    End Class

    '定義項目集合的類別(給屬性用)

    Class DataItems

        Inherits CollectionBase

        Default Public Property item(ByVal index As Integer) As DataItem

            Get

                Return CType(List(index), DataItem)

            End Get

            Set(ByVal Value As DataItem)

                List(index) = Value

            End Set

        End Property

        Public Sub Remove(ByVal value As DataItem)

            List.Remove(value)

        End Sub 'Remove

        Public Function Add(ByVal value As DataItem)

            Return List.Add(value)

        End Function 'Add

    End Class

    'DataItems

    Dim _items As New DataItems

    '指向 DataItems 的屬性

    <Bindable(True), Category("Appearance"), DefaultValue("")> Property items() As DataItems

        Get

            Return _items

        End Get

        Set(ByVal Value As DataItems)

            _items = Value

        End Set

    End Property

    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)

        output.RenderBeginTag("div")

        output.Write("<br>MyTestControls<br>")

        If Not (items Is Nothing) Then

            '顯示 items 屬性中的每一個元素

            For Each i As DataItem In Me.items()

                output.Write("<br>" & i.data1)

            Next

        End If

        output.RenderEndTag()

    End Sub

End Class

.NET Framework為了處理這種十分常用的需求，設計了CollectionBase，作為抽象的基底類別（Base Class）。

3.指向陣列（集合）的預設屬性

我們曾經提過，控制項的事件有預設事件，控制項的屬性也有預設屬性，要將屬性設為屬性相當簡單，只需要在宣告屬性的時候加上【Default】關鍵字即可，唯一一個條件，是該屬性必須有傳入值。例如：

        Default Public Property item(ByVal index As Integer) As DataItem

            Get

                Return CType(List(index), DataItem)

            End Get

            Set(ByVal Value As DataItem)

                List(index) = Value

            End Set

        End Property

之後，我們就可以這樣用Me.MyTestControlA1.items.item(0).data1=”abc”
 

十二．控制項的工具箱圖示

當我們建置控制項的時候，請加入一個“同名的”.bmp圖檔，這個圖檔是16X16的大小，建置動作必須為“內嵌資源”。

转载于:https://www.cnblogs.com/htht66/archive/2008/11/15/1334185.html