Свойства элементов управления

⇐ ПредыдущаяСтр 4 из 4

Элемент управления	Свойство	Значение
UserForm	Name Caption	frmInfa Анкета
CommandButton	Name Caption BackColor Font	cmdVupolnit cmdOchistit cmdVuhod Выполнить Очистить Закрыть & H00FFFFFF& (белый) Times New Roman, 12, начертание - полужирный
Label	Caption BorderStyle BackStyle Font	Фамилия Имя Дата рождения Страна Times New Roman, 12, начертание - полужирный
Caption BorderStyle BackStyle Font	Личные данные Times New Roman, 14, начертание - полужирный
TextBox	Name BackStyle Font	txtFamiliya txtImya txtDataRogdeniya txtStrana Times New Roman, 11, начертание - полужирный
Name Width Enabled	txtInfo False
Frame	Name Caption Font	fraLichDan Личные данные Times New Roman, 11, начертание – полужирный
CheckBox	Name Caption	chkFoto Фото
Image	Name Picture PictureSizeMode BorderStyle VisibletxtInfo.Font	imgFoto (Bitmap) – загрузить картинку False

Листинг программы (для формы frmInfa – Анкета)

Для разработки проекта «Анкета» необходимо выполнить последовательность действий:

1. Открыть окно редактора VBA одним из методов.

2. Если окно макета форм отсутствует на экране, то открыть его командой UserForm меню Insert.

3. В окне свойств установите Properties значениеCenterScreen свойстваStartUpPosition для того, чтобы поместить окно формы в центре экрана.

4. Буксировкой края формы изменить её размер. В конечном варианте размеры формы приблизительно 18 см в ширину и 12 см в высоту или 460 и 360 пунктов соответственно (свойство Width= 460, а свойство Height = 360).

5. Выделите форму, нажавши на ней мышью. Установить, что выделена именно форма, а не один из элементов, размещенных в ней, можно по состоянию окна свойств и по маркерам, находящихся в углах формы и по её сторонам. Если окно свойств отсутствует на экране, нажмите клавишу < F4> .

6. Задайте значение двух свойств формы, согласно данных таблицы 22.

Текст, которому соответствует свойство Caption, буде выведен в заглавие формы. С помощью свойства Name (это программное имя формы) будут производиться ссылки на форму в программе. Имя FrmInfa информативно, потому целесообразно этим именем заменить UserForm1, которое присваивается системой по умолчанию. Это же относится и к свойству Caption, значение которого изменяем на Анкета.

7. Создайте элемент Frame (Рамка)с размерами 140 пунктов в высоту и 276 пунктов в ширину. Свойства элемента Frameустановите согласно данных таблицы 22.Поместите в рамку элементы надписи Label и текстового поля TextBox в соответствии с рисунком 6.

8. Нажатие на элементе Label (надпись) на панели элементов управления обеспечивается создание надписи, которую пользователь в процессе пользования не сможет изменить. Буксировкой края элемента надписи измените её размеры так, чтобы в неё вмещался текст Фамилия. Начертания, размер и форма шрифта задаются в соответствующем окне свойств (рис. 7). Свойства надписи установите согласно таблицы 22. По аналогии создайте надписи Имя, Дата рождения и Страна.

9. Вставьте в рамку четыре текстовых поля TextBox для ввода личных данных и откорректируйте его свойства согласно значений таблицы 22.

10. Установите правее рамки флажок (CheckBox), а ниже его при помощи элемента управления Изображение (Image) разместите поле для вывода фотографии. Необходимо сформировать программный код так, чтобы при установке флажка выводилась фотография.

Для этого необходимо дважды нажать мышкой на флажке. Двойное нажатие на элементе управления (или форме) открывает окно программного кода с шаблоном процедуры (или заготовкой) Private Sub ChkFoto_Click().Согласно листинга программы введите подпрограмму процедуры. Поясняющий текст вводится при помощи одиночной верхней кавычки (‘) и на программном коде отображается зеленым цветом. Операторы процедур отображаются синим цветом. Для возврата к окну формы нажмите левой кнопкой мыши по названию формы в окне проекта.

11. Создайте на форме три кнопки (CommandButton) и откорректируйте их свойства согласно значений таблицы 22.

12. Вставьте в форму текстовое поле TextBox для вывода личных данных и откорректируйте его свойства согласно значений таблицы 22.

13. Для вывода личных данных и работы кнопок необходимо ввести подпрограммы процедур согласно листинга программы.

Рис. 8. Результат работы программы (Начало)

14. При работе с VBA для сохранения проекта необходимо исполнить команду Save в меню Fileи выбрать тип сохраняемого файла как Книга Excel с поддержкой макросов (*xlsm).

При разработке приложения в программной среде Visual Basic 8.0 автоматически сохраняется не только файл Excel, но и все компоненты VBА – проект и форма как отдельные файлы с расширениями .vbpи .frm, называемые макрос.

15. Для запуска программы исполните команду Run – Start. Если все было сделано правильно, на экране появится форма, готовая к заполнению. Заполните свои данные и нажмите кнопку Выполнить. В окне личных данных получите сводные сведения по запросу (рис. 8 (конец)). Нажав на кнопку Очистить окно личных данных сбросит результат запроса. Установка флажка Фото должно выводить на форму запрашиваемую фотографию. При нажатии Закрыть, форма должна сворачиваться.

Рис. 8. Результат работы программы (Конец)

Задание 1.

Созданная форма Анкета позволяет делать запросы для поиска анкетных данных студентов, но она не совершенна. Давайте добавим ряд опций для расширенного поиска. Для этого открытый проект сохраним под именем FrmInfa2. Интерфейс пользователя приведен на рис. 9, а используемые в нем формы указаны на рис. 10.

Рис. 9. Интерфейс пользователя FrmInfa2

Рис. 10. Используемые формы FrmInfa2

Для изменения вида формы Вам понадобятся дополнительные листинги процедур, которые приведены ниже.

Листинг программы (для формы FrmInfa2 – Анкета2)

Код для отображения формы FrmInfa2.

Код для отображения фото в отдельном окне (Задание 2).

Для установки подсказки к ЭУ нужно воспользоваться свойством ControtTipText.

Код для установки курса обучения при помощи элемента управления (ЭУ) SpinButton(рис. 10).

Рис. 10. Элемента управления SpinButton

Код для формирования выпадающего списка – наименований факультетов при помощи ЭУ ComboBox(рис. 11); а также установка 1-го курса по умолчанию.

Рис. 11. Элемента управления ComboBox

Код для форматирования текста в текстовом поле (используя ЭУ OptionButton) и добавления данных в ЭУ ListBox(рис. 12).

Рис. 12. Форматирование текста в текстовом поле

Задание 2.

1. Для вывода фото используется дополнительная форма (рис. 13).

Рис. 13. Форма для вывода фотографии

Листинг программы (для формы frmFoto – Фото)

2. При нажатии кнопки Фото на форме Анкета2 открывается дополнительная форма для вывода фотографии рис.14. (Начало).

Рис. 14. Результат работы программы (Начало)

3. При нажатии кнопки мыши на изображении активизируется кнопка Загрузить фото и появляется окно выбора пути рис.14. (Продолжение).

Рис. 14. Результат работы программы (Продолжение)

4. После указания пути расположения фотографии нажмите дважды на кнопке Загрузить фото рис.14. (Конец).

Рис. 14. Результат работы программы (Конец)

5. Для выхода из формы нажмите кнопку Закрыть.

Варианты заданий для самостоятельной работы

Разработать презентацию товаров (услуг) фирмы. Отобразить на форме атрибуты фирмы (логотип, адрес, телефон, факс, домашнюю страничку), информацию о товарах (услугах) – наименование, цена и т.п. Предусмотреть возможность изменения цвета фона, цвета текста, имени, размера шрифта, наименования товаров (услуг).

Варианты

1. мобильные телефоны

2. парфюмерия

3. спорттовары

4. литература

5. канцтовары

6. мебель

7. одежда

8. мониторы

9. музыкальная аппаратура

10. туристическое агентство

11. компьютерные курсы

12. бытовая техника

13. интернет-провайдер

14. планшеты

15. товары для отдыха

Рекомендованная литература:

⇐ Предыдущая 1 2 34