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


         

Редактирование страницы свойств


Запустите тестовый проект и проверьте работоспособность страниц свойств, сгенерированных мастером. Теперь наступил момент, когда можно добавить еще несколько элементов управления на страницу Text Property, которая позволит разработчикам изменять другие заказные свойства. Законченная страница должна иметь вид, подобный представленному на рис. 16.12.

Рис. 16.12. Страница свойств со свойствами элемента управления FLEXLabel

Откройте страницу свойств в режиме конструирования и добавьте два элемента управления ComboBox и две соответствующие метки над ними. Установите нужный размер и шрифт для всех элементов.

Теперь все готово к изменению кода. Оба элемента управления ComboBox должны быть заполнены допустимыми установками для соответствующих свойств. Наилучшее место для вставки кода инициализации — событие Initialize.

Программа 16.11. Инициализация страницы CaptionProperties

Private Sub PropertyPage_Initialize()

Combo1.AddItem "Top Left"

Combo1.AddItem "Top Middle"

Combo1.AddItem "Top Right"

Combo1.AddItem "Center Left"

Combo1.AddItem "Center Middle"

Combo1.Addltem "Center Right"

Combo1.AddItem "Bottom Left"

Combo1.AddItem "Bottom Middle"

Combo1.AddItem "Bottom Right"

Combo2.Addltem "None"

Combo2.Addltem "Carved Light"

Combo2.Addltem "Carved"

Combo2.Addltem "Carved Heavy"

Combo2.Addltem "Raised Light"

Combo2.Addltem "Raised"

Combo2.Addltem "Raised Heavy"

End Sub

Теперь необходимо исправить обработчик события

SelectionChanged().   Добавим операторы, инициализирующие два элемента управления ComboBox,        которые соответствуют двум новым свойствам. Введите следующий код в обработчик события SelectionChanged страницы свойств.

Программа 16.12. Инициализация элементов ComboBox

Private Sub PropertyPage SelectionChanged()

txtCaption.Text = SelectedControls(0).Caption

Combol.Listlndex = SelectedControls(0).TextAlignment




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