Шестаков В.С. Оптимизация параметров горных машин. Учебное пособие (811777), страница 39
Текст из файла (страница 39)
П.2.12. Расположение элементов на панели инструментов239Для изменения свойств элементов, необходимо вначалеуказать имя формы, затем через точку имя элемента, затем черезточку свойство = значение.Использование элемента «Надпись» (Label)Элемент служит для вывода на форму надписей. Надпись может быть задана непосредственно при расположении элемента наформе через свойство Caption или выведена из программы, например,Экскаватор.Label1.Caption= “Расчет карьерного экскаватора”.В этом примере Экскаватор – наименование формы, Label1наименование надписи.Использование элемента «Кнопка» (CommandButton)Используется для передачи команд программе, например, начать расчет.
В некоторых ситуациях требуется запретить реагирование на нажатие кнопки. В таком случае свойству Enabled присваивают значение False. Надпись на кнопке задается через свойство Caption при установке кнопки или выводится из программы аналогично надписи.Использование элемента «Флажок» (CheckBox)Элемент управления CheckBox создает ячейку, которая можетбыть помечена пользователем как имеющая значение “истина”или “ложь”. Флажок представляет собой маленький квадрат, с которым связан расположенный рядом заголовок. Если квадрат пуст,то при щелчке по нему появляется галочка, и наоборот, если квадрат помечен галочкой, то при щелке по нему галочка исчезает.
Состояние флажка используется в программе для выбора определенных действий. Для этого имеется свойство Value. Если галочка вквадрате установлена, то Value равно True, а если нет, то False.Пример фрагмента программы (флажок с именем CheckBox1)If CheckBox1.Value = True ThenИнструкции 1ElseИнструкции 2End IfЗаголовок флажка вводится через свойство Caption при егоустановке или выводится из программы аналогично надписи.240Использование элемента «переключатель (OptionButton)Элемент управления OptionButton используется для предоставления выбора одного варианта из многих.
Для выбора переключатели объединяют в группу путем расположения их внутрирамки. Свойство Value выбранного переключателя в группе приобретает значение True, а у остальных – False.Использование элемента «Текст» (TextBox)Элемент служит для ввода данных в текстовом поле. Обычнов программе введенное значение передается в переменную, например, Prim=TextBox1, а затем используется для реализации нужныхдействий. При введении в поле числа, оно получит строковый тип,поэтому непосредственно его использовать в формулах нельзя. Длявычислений введенное значение необходимо перевести в число спомощью функции преобразования, например, Z=val(Text1).Использование элемента «RefEdit»Элемент RefEdit, так же, как и «Техт», служит для вводаданных в текстовом поле.
Отличие в том, что элемент имеет кнопкууправления, после щелчка по ней для ввода форма убирается с экрана и остается на экране только поле ввода, после нажатия Enterосуществляется возврат в форму. Это позволяет расположить наформе элемент небольшого размера, а вводить в него длиннуюстроку. Передается введенное значение в переменную аналогичным образом, например, Prim= RefEdit1.
При вводе численных значений перед присвоением необходимо перевести текст в число, например, Z=val(RefEdit1).Использование элемента «Набор вкладок» (TabStrip)Набор вкладок позволяет отображать разные наборы данных спомощью одних и тех же элементов. Например, для изменения надписи можно использовать процедуру, связанную с элементом «Набор вкладок»Private Sub TabStrip1_Click(ByVal Index As Long)If Index = 0 Then Me.Label2.Caption = "Экскаватор карьерный"If Index = 1 Then Me.Label2.Caption = "Экскаватор шагающий"End SubПри щелчке по первой вкладке будет выведена надпись "Экскаватор карьерный", а по второй - "Экскаватор шагающий".241Использование элемента «список» (ListBox)Элемент служит для хранения списка значений.
В спискепользователь выбирает один или несколько элементов. Для заполнения списка служит свойство AddItem, например, в процедуреPrivate Sub CommandButton2_Click()ListBox1. AddItem "Строка 1"ListBox1.AddItem "Строка 2"ListBox1.AddItem "Строка 3"End SubЧаще всего в программе список используется для выбора одного элемента. Наименование выбранного элемента содержится всвойстве Text. Для дальнейшего использования в программе номеравыбранного элемента может быть использовано свойство .ListIndex,передаваемое в программу по щелчку мыши по списку или иномуэлементу.
Нумерация в списке идет с нуля.Процедура передачи выбранного элемента щелчком по спискуPrivate Sub ListBox1_Click()MsgBox ListBox1.TextMsgBox ListBox1.ListIndexEnd SubИспользование элемента «поле со списком» (ComboBox)Этот элемент также служит для выбора элемента из списка.Отличие от списка в том, что выбранный элемент отображается вполе. Список сразу весь не выводится, а только после щелчка покнопке раскрытия списка. Кроме того, поле может служить и дляввода элемента списка. Для заполнения списка служит свойствоAddItem, например, в процедуреPrivate Sub CommandButton2_Click()ComboBox1.
AddItem "Строка 1"ComboBox1.AddItem "Строка 2"ComboBox1.AddItem "Строка 3"End SubДля использования в программе номера выбранного элементаможет быть использовано свойство .ListIndex или .Text, передавае-242мое в программу по щелчку мыши по списку или иному элементу.Нумерация в списке идет с нуля.Процедура передачи по щелчку по спискуPrivate Sub ComboBox1_Click()MsgBox ComboBox1.ListIndexEnd SubИспользование элемента «Выключатель» (ToggleButton)Этот элемент имеет вид кнопки, отличием является то, чтокнопка имеет «защелку». После щелчка по выключателю он остается в нажатом состоянии, повторный щелчок вернет выключатель висходное состояние. Выключатель имеет свойство Value, котороепринимает значение True при нажатой кнопке, и False – при отжатой.
Пример, характеризующий работу выключателяPrivate Sub ToggleButton1_Click()If ToggleButton1 ThenMsgBox "Выключатель включен"ElseMsgBox "Выключатель выключен"End IfEnd SubЭлемент «Счетчик» SpinButtonСлужит для передачи в программу на единицу изменяющихсязначений. Для передачи служит свойство Value. Пример процедуры:Private Sub SpinButton1_Change()MsgBox SpinButton1End SubЭлемент «Полоса прокрутки» SpinButtonТак же, как и счетчик, служит для передачи в программу целочисленных значений.
Значения, как и в счетчике, можно менятьна единицу с помощью кнопок управления или с помощью полосыпрокрутки сразу на большое значение, потянув за бегунок. Для передачи служит свойство Value. Пример процедуры:Private Sub ScrollBar1_Change()MsgBox ScrollBar1.ValueEnd Sub243Использование элемента «Рисунок» (Image)Элемент «Рисунок» позволяет выводить в форме рисунки.Для вывода необходимо в свойстве Picture выполнить щелчок покнопке и загрузить нужный рисунок. Создание кода, реагирующего на событияОбычно в программе обрабатывают одно событие – щелчокпо элементу управления мышью (событие Click). Для обработки,т. е. что должно произойти после щелчка, пишут процедуру с соответствующими операторами.
Для получения заготовки процедурывыполните двойной щелчок мышью по элементу. В результате после щелчка по кнопке (имя кнопки CommandButton1) будет получена процедураPrivate Sub CommandButton1_Click()End SubВнутрь этой процедуры и могут быть вставлены все необходимые инструкции, реализующие решаемую задачу.Инициализация значений элементов управленияПри отображении формы требуется ввести значения полей,применяемые по умолчанию в момент вызова. Инициализация выполняется с помощью процедуры обработки события формыInitialize. Отображение формыДля вызова формы из программы необходимо в нужном местевставить команду Show, например, Расчет.Show (в данном случаеформа имела имя «Расчет»). Удаление формы с экрана - закрытие формыЧтобы выгрузить форму, используется оператор Unload«имя формы» или «имя формы».Hide.Пока форма активна, вся работа проводится только с элементами, расположенными на ней.
Для продолжения работы программы Visual Basic или завершения работы форму закрывают. Для этого необходимо с одним из элементов, например с кнопкой, связатькоманду Unload. Для получения процедуры, в которую можно вста244вить команду Unload, необходимо опустить на UserForm кнопку ивыполнить по ней двойной щелчок, после чего появится процедураPrivate Sub CommandButton1_Click()End Sub.В эту процедуру и вставляется строка Расчет.Hide (в данномслучае форма имела имя «Расчет»).П.
2.4. Примеры программ Пример простейшей программы – вычисление площадипрямоугольникаПоследовательность действий при решении будет следующей.1. На листе «Лист1» располагаем вводные данные и готовим местодля вывода результатов: увеличиваем ширину столбца А – навести курсор на линию между Аи В, нажать левую кнопку мыши и потянуть;объединяем в первой строке ячейки А1 и В1 – выделить мышью этиячейки и щелкнуть по кнопке «Объединить и поместить в центре» напанели «Форматирование»;вводим обозначение параметров и размеры сторон в видеАВ1Вычисление площади прямоугольника2Ширина прямоугольника43Длина прямоугольника104Площадь2.
Вызываем на экран панель Visual Basic: курсор мыши на любую из имеющихся панелей; щелчок правой кнопкой, щелчок по Visual Basic.3. Записываем заготовку для основной подпрограммы: щелчок по кнопке «Запись макроса» на панели Visual Basic; вписываем название основной процедуры «Прямоугольник» в окно«Имя макроса», щелчок по ОК; щелчок по кнопке «Остановить запись» на панели Visual Basic.4. Переходим в окно редактора Visual Basic: щелчок по кнопке «Редактор» на панели Visual Basic; открываем окно проекта –View→Project Explorer (Вид→Окно проекта);245 щелчок по папке «Модули» (Modules); двойной щелчок по «Модуль1» (Module1).5.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
