VB.NET. Создание компонентов
Урок 2. Добавление свойства

Сейчас мы к созданной на прошлом уроке заготовке для компонента добавим свойство. Как мы говорили, имя этого свойства будет N, тип - целый.

Для добавления нашего свойства нужно добавить в класс следующий код:

    'Переменная для хранения значения свойства.
    Private _N As Int32
    'Объявление свойства.
    Public Property N() As Int32
        Get
            Return _N 'Возврат результата.
        End Get
        Set(ByVal Value As Int32)
            If Value > 0 Then
                _N = Value
            Else
                _N = 1
            End If
        End Set
    End Property

Код тут следующий - сначала мы объявляем переменную для хранения нашего свойства N:

    ...
    Private _N As Int32
    ...

Затем объявляем собственно свойство:

    Public Property N() As Int32
        Get
            ...
        End Get
        Set(ByVal Value As Int32)
            ...
        End Set
    End Property

Обратите внимание, что свойство у нас имеет модификатор public, а перемнная для хранения свойства - private. Еще обратите внимание, что при записи свойства (метод Set) мы принимаем не все значения, а только большие 0. В противном случае мы записываем в переменную для хранения свойства один.