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

Тестирование нового элемента управления


ActiveX

Для проверки нового элемента управления сначала нужно создать ОСХ-файл. Откроите новый проект, а затем вставьте новый элемент управления в форму.

Для упрощения разработки Visual Basic позволяет добавлять новый проект к уже существующему. Таким образом можно проверить и изменить элемент управления без загрузки нового проекта.

Следующие шаги являются стандартными — им нужно следовать каждый раз при конструировании элемента управления ActiveX.

1. Выберите команду Add Project меню File, чтобы открыть новое окно проекта.

2. Выберите тип проекта Standard EXE. Новый проект добавится в окно проекта, с заданным по умолчанию именем формы Forml. Измените имя формы на TestForm, а имя нового проекта на TestProject.

3. Закройте окно конструирования UserControl нажатием кнопки Close. Закройте окно с кодом элемента управления, если оно открыто.

Когда выбрана форма TestForm, значок на панели элементов управления становится доступным. С этого момента можно использовать элемент управления FLEXLabel, как любой другой элемент управления VB.

Чтобы поместить экземпляр элемента управления

FLEXLabel на тестовой форме, выполните следующие действия.

1. Выберите значок элемента FLEXLabel на панели элементов управления и поместите на форму проекта. Элемент управления автоматически получит имя Label3Dl (согласно соглашению об именах в VB).

2. Найдите свойство Effect на странице свойств элемента управления ActiveX и ус­тановите другое значение (целое в диапазоне от 0 до 6).

Можно, конечно, присваивать значениям свойств Effect и TextAlignment любые целые числа, и все они будут приняты VB. Позднее мы увидим, как выйти из этой ситуации.



Как вы уже заметили, элементы управления ActiveX имеют свойство Appearance (Внешний вид), которое по умолчанию задает трехмерное отображение внешних краев элемента управления. Но свойство Appearance не задействуется, если свой­ство BorderStyle не установлено в 1 — Fixed Single (Фиксированная одиночная). Значение BorderStyle по умолчанию равно 0 - Flat (Плоская) (довольно своеоб­разный выбор, учитывая его действие на свойство Appearance). Откройте свойство BorderStyle и установите его в 1 — Fixed Single.


Теперь выполните двойной щелчок на элементе управления

FLEXLabel на форме, чтобы увидеть события, обрабатываемые элементом. Новый элемент управления имеет свои собственные события, которые можно программировать, как и события обычных объектов VB. Введите следующий код для события Click:

Private Sub Label3Dl_Click()

MsgBox "My properties are" & vbCrLf & _

"Caption = " & Label3Dl.Caption & Chr$(13) & _

"TextAlignment = " & Label3Dl.TextAlignment & Chr$(13) & _

"Effect = " & Label3Dl.Effect

End Sub

Нажмите клавишу F5, чтобы запустить приложение, и щелкните на элементе управления. Появится окно сообщения с отображенными в нем свойствами элемента управления, как показано на рис. 16.5. (На данный момент код, отобра­жающий надпись, еще не введен.).



Рис. 16.5. Некоторые свойства элемента управления, отображенные им самим

Можно программировать также и другие события. Ничего специфического в программировании элемента управления нет. Для разработчика — это обыкновенный элемент управления VB сделал довольно много. Он сгенерировал работающий элемент управления ActiveX. Конечно, нужно все еще добавить код, который сделает элемент полезным в использовании. Создание чего-то, что выглядит и ведет себя подобно элементам с управлением типа "указать и щелкнуть" — немалое достижение, но конечная цель состоит в том, чтобы разработать кое-что практи­ческое и полезное.


Содержание раздела