055自定义控件之为控件添加属性

    (1)创建一个新的“Windows窗体控件库”项目，命名为LimitedCheckedList，并将项目文件名修改为LimitedCheckedLisLvb。
    (2)打开代码编辑窗口，并添加属性MaxltemsSelected。
 

Imports System.ComponentModel

Public Class LimitedCheckedList
    Inherits System.Windows.Forms.CheckedListBox
    Private AutoScaleMode As AutoScaleMode
    Private _MaxItemsSelected As Integer = 5
    <DefaultValue(5), Description("用户最多可以选择的列表项数目"), Category("其他")> _
    Public Property MaxItemsSelected As Integer
        Get
            Return _MaxItemsSelected
        End Get
        Set(ByVal value As Integer)
           
            If value < 5 Then
                Throw New ArgumentException("不能超过5个")
            Else
                _MaxItemsSelected = value
            End If

        End Set
    End Property

    Public Event MaxItemOver(ByVal sender As Object, ByVal c As EventArgs)

    Private Sub LimitedCheckedList_ItemCheck(ByVal sender As Object, ByVal e