Реферат: Програмирование на Visual Basic
Элементы управления и процедуры обработки событий должны обеспечить следующую логику работы с формой.
На этапе загрузки формы заполняются комбинированные списки “Фирма”, “Цвет”, “Исполнение”, а также простой список “Фирм продавцов”:
| Список “Фирмы” | Список “Цвет” | Список “Исполнение” | Список “Фирмы-продавцы” |
| Мерседес | Красный | Люкс | АЗР |
| Ауди | Белый | Стандарт | Musa Motors |
| Фольксваген | Черный | Минимум | ЛадаИнжинеринг |
| Шкода | Синий | Sawa | |
| Рено | Зеленый | ЛогоВАЗ | |
| Ситроен | |||
| Лада |
Заполнение производится в процедуре Form_Load с помощью методов Additem.
В той же процедуре задаются названия меток Label4 и Label5 (соответственно значение мощности в киловаттах и в лошадиных силах). Эти названия должны изменяться соответственно значению текущего положения движка линейки прокрутки. Для преобразования мощности из киловатт в лошадиные силы и обратно надо использовать соотношение: 1Л.С.=735,499 Вт.
Для определения названия метки необходимо преобразовать численное значение свойства HScrolll. Value в текст с использованием встроенной функции Str$ (выражение Str$(HScrolll. Value)).
В таблицах приведены операторы процедур обработки событий примера и поясняющие их комментарии.
| Процедура | Комментарии |
| Sub Form Load() | |
| LabeM.Caption = Str$(HScrolll. Value * 735.499 / 1000) | Определение названия (свойство |
| Label5.Caption = Str$(HScrolll. Value) | Caption) метки Label4 Определение названия метки Label5 |
| Combo 1.Add Item “Мерседес” | Combol - имя списка “Фирмы” |
| Combo 1.Add I tern “Ауди” | Additem - метод, осуществляющий |
| Combo 1.Add Item “Фольксваген” | добавление элементов в список с |
| Combol.Additem “Шкода” | указанным именем |
| Combo 1.Additem “Рено” | “Мерседес” - Значение добавляемого |
| Combol.Additem “Ситроен” | элемента |
| Combol.Additem “Лада” | |
| Метод Additem одинаково действует | |
| Combo2.AddItem “Красный” | и для комбинированных списков и |
| Combo2.AddItem “Белый” | для простых |
| Combo2.AddItem “Черный” | |
| Combo2.AddItem “Синий” | |
| Combo2.AddItem “Зеленый” | |
| СотЬоЗ.Additem “Люкс” | |
| Combo3.AddItern “Стандарт” | |
| Combo3.AddItem “Минимум” | |
| Listl.Additem “Musa Motors” | |
| Listl.Additem “ЛадаИнжинеринг” | |
| Listl.Additem “Sawa” | |
| Listl.Additem “A3P” | |
| Listl.Additem “ЛогоВАЗ” | |
| End Sub |
В результате выполнения процедуры выводится форма (рис. 2.20). На форме активны только четыре элемента: метка с названием “Фирма”, командная кнопка “Конец”, текстовое окно “Описание модели” и комбинированный список “Фирма”.
При щелчке по списку он разворачивается и из него можно выбрать название фирмы-производителя. После выбора фирмы её название заносится в текстовое окно “Описание модели”, комбинированный список фирм становится неактивным вместе с меткой “Фирма”, а метка “Цвет”, комбинированный список для выбора цветов автомобиля и метка отображения выбранного цвета становятся активными.
Для выполнения указанных действий процедура Combo l_Click() (обработка события щелчок по списку) содержит следующие операторы:
| Процедура | Комментарии |
| Sub Combo lClick() | Деактивизация комбинированного |
| Combol. Enabled == False | списка путем присвоения значения |
| Label 1. Enabled = False | False( ложь ) свойству Enabled |
| (Активность) | |
| Добавление к значению текстовой | |
| Text 1.Text = Text 1.Text + | строки “Описание модели” |
| Combol.Text + Chr$(13) + Chr$(10) | значения текущего (выбранного) |
| элемента из комбинированного | |
| списка “Фирмы”. “+” - операция | |
| сцепления строк | |
| Chr$(10), Chr$(13) - функция, ре | |
| зультатом вычисления которой | |
| является символ с кодом 10 и 13 | |
| 13, 10 - комбинация символов для | |
| перевода курсора в начало следую | |
| щей строки текстового окна. | |
| Активизация комбинированного | |
| списка “Цвета” и его метки | |
| Combo2. Enabled = True | |
| Label2. Enabled = True | |
|
End Sub |
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37
