Основы программирования

Офисное программирование - Набор страниц MultiPage
Индекс материала
Офисное программирование
Осноные седения о программироании на VBA
Определения
Обзор типов данных VBA
Переменные
Константы
Математические функции
Операторы и выражения
Логические операторы
Повторение действий: циклы
Объект UserForm
Использование форм
Задачи на закрепление материала
Массивы, процедуры, функции
Работа с различными типами данных
Функции работы со строками
Процедуры и функции VBA
Макросы
Создание VBA-программ
Элементы управления ComboBox, OptionButton и Frame
Элементы управления MultiPage, ScrollBar, SpinButton
Набор страниц MultiPage
Полоса прокрутки ScrollBar
Объект DataObject
Реализация технологии DragAndDrop
Программирование на VBA в Word
События объекта Document
Объекты Range и Selection
Работа с буфером
Форматирование документа
Создание кнопки или панели в Word
Автоматизация стандартных документов
Задачи на закрепление материала
Создание VBA-программ
Создание модуля Печать
Создание модулей работы кнопок
Особенности использования VBA в Excel
Метод AutoFilter
Метод Sort
Использование метода GoalSeek
Использование методов AutoFill
Математическая модель решения задачи
Разработка интерфейса пользователя
Финансовые функции
Построение диаграмм средстами VBA
Базы данных в Excel
Конструирование пользовательского интерфейса
Конструирование интерфейса. Презентация
Создание собственного головного меню
Добавление подменю
Добавление выпадающих меню
Все страницы

 

Набор страниц MultiPage

 

Элемент управления MultiPage объединяет несколько независимых диалоговых окон – страниц (вкладок). Заголовки страниц обычно видны на одной из сторон элемента на их закладках, а переход на страницу происходит после щелчка по ее закладке. Этот простой переход с одной страницы на другую и делает MultiPage удобным средством для представления разнородных данных, относящихся к одному объекту. Такие данные в «бумажных» офисах хранятся обычно в отдельных папках и образуют дела, досье и т. д. Каждая страница из Multipage – это объект типа Page, а все они включены в коллекцию Pages (страницы). При создании элемента MultiPage в него автоматически помещаются две страницы с именами Page1 и Раgе2. Имена можно изменять, присутствует возможность добавления и новых страниц. Рассмотрим основные свойства набора страниц.

Свойство count определяет, какое количество страниц возвращается.

Свойство value для элемента multipage определяет номер текущей активной страницы в коллекции pages.

Свойство selecteditem (его можно только читать) возвращает текущую активную страницу (как объект). Его можно использовать для считывания и установки свойств этой страницы и входящих в нее элементов управления.

Свойство style определяет, в каком виде представляются заголовки страниц. По умолчанию оно равно fmtabstyletabs = 0 и задает представление заголовков в виде закладок в полосе заголовков. Каждая закладка с заголовком находится внутри границ своей страницы. Если значение fmtabstylebuttons = 1, то заголовок каждой страницы находится на отдельной кнопке, расположенной в полосе заголовков. Переход на страницу происходит после выбора кнопки с ее заголовком. Если же значение fmtabstylenone = 2, то полоса с заголовками страниц на экран не выводится.

Свойство taborientation задает расположение полосы с заголовками страниц (табл. 13).

 

Таблица 13

 

Значения свойства TabOrientation

Булево свойство multirow позволяет создать несколько полос с закладками (по умолчанию его значение равно false, что соответствует одной полосе закладок).

Свойства tabfixedheight и tabfixedwidth устанавливают или возвращают высоту и ширину закладки (в точках). При значении 0 ширина закладок устанавливается автоматически, так чтобы в каждой закладке помещалось ее название и занимало всю ширину элемента. При значениях больше 0 у всех закладок одинаковые размеры, заданные свойством TabFixedWidth. Минимально возможный размер закладки – 4 точки.

Для того чтобы редактировать свойства элемента MultiPage, необходимо выделить этот элемент так, чтобы рамка вокруг элемента выделилась точками (рис. 47). Для этого щелкните по самой рамке, если она выделена черной штриховкой.

 

 

Рис. 47. Рамка элемента multipage

 

Если необходимо установить свойства самих вкладок, необходимо щелкнуть по ним, после чего рамка станет выделяться черной штриховкой (рис. 48).

 

 

Рис. 48. Рамка элемента page

 

Если необходимо добавить еще одну вкладку в режиме конструктора, то необходимо щелкнуть правой кнопкой мыши по последней вкладке (странице) и выбрать команду New Page (рис. 49).

 

 

Рис. 49. Добавление новой страницы

 

Если необходимо переименовать страницу, ввести всплывающие подсказки и установить номер активной по умолчанию страницы, необходимо выбрать команду Rename (рис. 49), в результате которой появляется диалоговое окно, где устанавливаются перечисленные свойства (рис. 50 и 51).

 

 

Рис. 50. Установление свойств вкладки

 

Пример 25. Создать форму, включающую в себя ряд вкладок (страниц), содержащих вопросы некоторого теста. На каждой странице находятся очередной вопрос и кнопка «Ответ», фиксирующая выбор правильного (неправильного) ответа. После перехода на следующую страницу (щелчок по корешку страницы с соответствующим именем) действия повторяются. Итоговая страница содержит кнопку «Результат», которая выводит правильность ответов и сумму набранных баллов (1 правильный ответ = 1 балл).

 

 

Рис. 51. Свойства в действии

 

Создать программу, выполняющую все требования примера.

Технология выполнения

1. Запустите приложение Word и сохраните документ.

2. Перейдите в редактор VBA и создайте форму, содержащую 4 страницы (рис. 52).

 

 

Рис. 52. Первая страница теста

 

3. Оформите первую страницу (рис. 52) и обработайте кнопку «Ответ».

 

Dim a As Integer

Private Sub CommandButton1_Click()

If OptionButton3.Value = True Then

a = a + 1

Label11.Caption = «Ответ верен»

Else

Label11.Caption = «Oтвет неверен»

End If

End Sub

 

4. Оформите вторую страницу теста (рис. 53) и обработайте кнопку «Ответ».

 

Private Sub CommandButton2_Click()

If OptionButton5.Value = True Then

a = a + 1

Label12.Caption = «Ответ верен»

Else

Label12.Caption = «Ответ неверен»

End If

End Sub

 

 

Рис. 53. Вторая страница теста

 

5. Оформите третью страницу теста (рис. 54) и обработайте кнопку «Ответ».

 

 

Рис. 54. Третья страница теста

 

Private Sub CommandButton3_Click()

If OptionButton10.Value = True Then

a = a + 1

Label13.Caption = «Ответ верен»

Else

Label13.Caption = «Ответ неверен»

End If

End Sub

6. Оформите четвертую страницу теста (рис. 55) и обработайте кнопку «Результат».

Private Sub CommandButton4_Click()

Label15.Caption = "вы набрали " & a & «балл(а)»

End Sub

 

 

Рис. 55. Итоговая страница теста

 

Примечание. Напоминаем, что все предлагаемые листинги примерные и их можно и нужно редактировать по своему усмотрению.

7. Откомпилируйте программу и запустите на выполнение.

 



 
CAMOZZI в Ижевске - camozzi. Camozzi: подбор аналогов.