Visual Basic 6. Руководство разработчика


         

Перечислимые свойства - часть 2


Теперь необходимо заменить тип свойства TextAlignment с Integer на Align (этот перечислимый тип мы только что объявили), так как тип свойства TextAlignment должен быть именно перечислимым. Откройте проект FLEXLabel и выполните следующие изменения:

1. Выберите объект UserControl, откройте окно с его кодом и в начале кода вставьте следующее определение типов:

Enum Align

[Top Left]

[Тор Middle]

[Top Right]

[Center Left]

[Center Middle]

[Center Right]

[Bottom Left]

[Bottom Middle]

[Bottom Right]

End Enum

2. Измените определения процедур Property Let и Property Get свойства TextAlignment таким образом, чтобы они имели тип Align (вместо Integer). Сделать это можно следующим образом:

Public Property Get TextAlignment() As Align

TextAlignment = m_TextAlignment

End Property

Public Property Let TextAlignment (ByVal New_TextAlignment _

As Align)

M_TextAlignment = New_TextAlignment

PropertyChanged "TextAlignment"

End Property

Обратите внимание, что код проверки допустимости значений в процедуре Property Let более не нужен, поскольку пользователь не может выбрать недопустимое значение для этого свойства в окне свойств. Если попытаться связать недопус­тимое значение со свойством непосредственно в коде, то такая команда будет проигнорирована без каких либо предупреждений или сообщении об ошибке Значение свойства просто не изменится. Попытка присвоить перечислимой пере­менной недопустимое значение посредством кода приведет к сообщению об ошибке во время выполнения программы.




Содержание  Назад  Вперед