Самостоятельная работа

• Создать на диалоговой панели список и при нажатии кнопки "Показать список" ввести в него содержимое ячеек C4:C9 какого-либо листа рабочей книги. Выбрать в списке элемент и по командной кнопке "Выбранный элемент" вывести на диалоговую панель MsgBox значение элемента.

5. Выпадающее окно (ComboBox)

Выпадающее окно (кнопка «поле со списком» ) практически аналогично «списку», за исключением того, что окно списка размещает список в прокручиваемом окне, а поле со списком создает выпадающий список. Отдельные особенности станут более понятными после выполнениясамостоятельной работы, которая аналогична предыдущей, за исключением того, что список заменятся на поле со списком.

6. Групповое окно (Frame)

Групповое окно (кнопка «рамка» ) визуально объединяет в группу другие объекты бланка. Кроме того, оно определяет группу кнопок выбора. Для задания строки текста, располагающегося в верхней области окна, применяется свойствоCaption. Групповое окно должно быть изображено на бланке до того, как вы начнете вставлять кнопки, которые нужно объединить в группу.

7. Контрольный индикатор (CheckBox)

Контрольный индикатор (кнопка «флажок» ) позволяет пользователю выбрать одну или несколько опций. Одновременно может использоваться любое количество флажков. Подобные флажки мы часто встречали в меню программ MS Office при выборе тех или иных характеристик или свойств. Когда флажок включен, его свойствоValue принимает значение True, в противном случае - False. Именно по этому свойству программным путем можно выполнить адекватное действие. Справа от флажка располагается поясняющий текст (свойство Caption), который можно редактировать в режиме конструктора диалоговой панели. Флажок переключается простым нажатием на нем клавиши мыши.

Пример использования индикации флажка

Private Sub CommandButton3_Click()

If CheckBox1.Value Then ' Если флажок включен, то - Истина

MsgBox ("включено")

Else: MsgBox ("отключено")

End If

End Sub

8. Кнопка выбора (OptionButton)

Кнопка выбора («переключатель» ) позволяет пользователю выбрать одну опцию из списка взаимоисключающих опций. В отличие от флажков только одна кнопка из группы, сформированной групповым окном, находится во включенном состоянии, т.е. ее свойствоValue принимает значение True. Безусловно, если кнопки находятся в разных групповых окнах, то их влияние друг на друга не сказывается. Такие кнопки известны как "радиокнопки".

Самостоятельная работа

• Создать на диалоговой панели групповое окно. Вывести на него три флажка и три переключателя. Активизировать диалог и апробировать действие элементов окна.

• Создать и подключить к какой-либо командной кнопке процедуру, выводящую (функция MsgBox()) информацию о состоянии второго флажка и второго переключателя.

9. Линейка (полоса) прокрутки (ScrollBar)

Линейка прокрутки (кнопка ) создает вертикальную или горизонтальную полосы прокрутки. Линейка прокрутки может рассматриваться как индикатор прокрутки. Ее свойствоValue содержит число, определяющее положение ползунка на линейке. Присвоенные свойствам Min, Max минимальная и максимальная величины определяют диапазон значений, возвращаемых свойством Value.

10. Счетчик (SpinButton)

Счетчик (кнопка «спиннер» ) действует аналогично полосе прокрутки, но индикация положения в свойствеValue отсутствует.

11. Рисунок (Image)

Панель диалога совершенно преображается, если украсить ее рисунком (). Файл-рисунок подключается через свойствоPicture. Попробуйте сделать это, используя какой-либо файл с расширением, например .bmp, - их в системе Windows достаточно много.

9. Примеры программ наVisualBasic

   1. Число строк и столбцов динамически заполняемого блока

Часто требуется определить параметры области введенных, например, с помощью "формы" данных (определение числа узлов или ветвей электрической сети). Воспользовавшись макросом, записанным при выделении области данных (Правка \ Перейти\Выделить\текущую область), нетрудно определить ее число строк и столбцов. При формировании массива с помощью "формы" число записей указывается на диалоговой панели, но актуальность рассматриваемой проблемы не снимается, поскольку эта величина далее может быть использована в автоматических расчетах:

Операторы	Примечание
Sub число_строк_и_столбцов_области()
Range("C6").Select	С6- одна из ячеек области
Selection.CurrentRegion.Select	Записано макросом
Range("a1").Value = Selection.Rows.Count	В А1-число строк
Range("b1").Value = Selection.Columns.Count	В В1-число столбцов
End Sub