Програмирование на Visual Basic
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
р программы.
Откроем новую форму и разместим на ней два текстовых окна и горизонтальную линейку прокрутки (рис. 2.16).
В окне Properties (Свойства) для объекта Hscrolll (имя присваивается по умолчанию) зададим следующие значения свойств:
LargeChange = 10, Мах = 100, Min = 0, SmallChange = 5.
Рис. 2.16
Определим процедуры обработки событий НScrolll_Change и HScrolll_Scroll:
.Private Sub HScrolll_Change()
Textl.Text = HScrolll.Value End Sub
Private Sub HScrolll_Scroll()
Text2.Text = HScrolll.Value End Sub
Событие Change отражается в верхнем окне, событие Scroll - в нижнем окне. После запуска программы щелчок мыши по полю вызывает перемещение движка и изменение значения в верхнем окне на 10 единиц (Large Change), щелчок мыши по стрелкам вызывает перемещение движка и изменение значения в верхнем окне на 5 единиц (Small Change). Эти изменения не отражаются в нижнем окне (рис. 2.17). Перемещение движка мышью вызывает изменение значения, которые отражаются в обоих окнах (рис. 2.18).
2.12.ПРИМЕР СОЗДАНИЯ ФОРМЫ
Создадим форму со следующими элементами управления (рис. 2.19):
- Комбинированный список типа 1, содержащий названия фирм-производителей автомобилей.
Рис.2.17Рис. 2.18
- Метка с названием“Фирма”, поясняющая назначение комбинированного списка.
- Комбинированный список типа 2, содержащий названия цветов автомобилей.
- Метка с названием “Цвет”, поясняющая назначение комбинированного списка.
- Метка без названия для отображения цвета, который выбирается в комбинированном списке.
- Комбинированный список типа 0, содержащий названия исполнения автомобилей.
- Рамка с названием “Тип кузова”, объединяющая три переключателя для выбора типа кузова: “Кабриолет”, “Седан”, “Универсал”.
- Рамка с названием “Мощность”, содержащая горизонтальную линейку прокрутки для изменения мощности двигателя, две метки для отображения мощности двигателя в киловаттах и лошадиных силах, две поясняющие метки с названиями “кВт” и “Л.С.” (для горизонтальной линейки прокрутки на этапе проектирования формы задаются значения свойств: минимальное значение - 30 (min = 30), максимальное значение - 500 (max == 500), текущее значение - 75 ( value = 75), малый шаг - 1 (SmallChange = 1), большой шаг - 10 (LargeChage = 10), недоступна (enabled = false)) и командную кнопку “Зафиксировать”.
- Рамка с названием “Список фирм - дистрибьюторов”, объединяющая список, флажок, метку с названием “Двухколоночный”, поясняющую назначение флажка, и четыре командных кнопки (“Очистить список”, “Удалить название “, “Добавить название”, “Зафиксировать”).
- Флажки с названиями “Дизель” и “Металлик”.
- Текстовое окно для описания модели с горизонтальной и вертикальной линейками прокрутки.
- Метка с названием “Описание модели”.
- Командная кнопка “Конец”.
При проектировании формы значения свойств, определяющих основные цвета, цвета фона, вид и размер шрифтов, размеры и расположение управляющих элементов, задаются разработчиком или определяются по умолчанию.
Элементы управления и процедуры обработки событий должны обеспечить следующую логику работы с формой.
На этапе загрузки формы заполняются комбинированные списки “Фирма”, “Цвет”, “Исполнение”, а также простой список “Фирм продавцов”:
Список “Фирмы”Список “Цвет”Список “Исполнение”Список “Фирмы-продавцы”МерседесКрасныйЛюксАЗРАудиБелыйСтандарт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 Определение названия метки Label5Combo 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). На форме активны только четыре элемента: метка с названием “Фирма”, командная кнопка “Конец”, текстовое окно “Описание модели” и комбинированный список “Фирма”.
При щелчке по списку он разворачивается и из него можно выбрать название фирмы-производителя. После выбора фирмы её название заносится в текстовое окно “Описание модели”, комбинированный список фирм становится неактивным вместе с меткой “Фирма”, а м