Шаг 4: установка или изменение параметров элементов управления содержимым

У каждого элемента управления содержимым есть параметры, которые можно установить или изменить. Например, в элементе управления «Выбор даты» предлагаются необходимые варианты отображения формата даты.

Щелкните правой кнопкой мыши элемент управления содержимым, который необходимо изменить.

Выберите команду Свойства, а затем измените необходимые свойства.

Шаг 5: добавление в форму пояснительного текста

Пояснительный текст может сделать создаваемую и распространяемую форму более удобной в использовании. Можно изменить пояснительный текст по умолчанию в элементе управления содержимым.

Чтобы настроить текст пояснения по умолчанию для пользователей формы, выполните одно из следующих действий.

На вкладке Разработчик, в группе Элементы управления нажмите Режим конструктора.

Щелкните элемент управления содержимым, где необходимо изменить замещающий пояснительный текст.

Отредактируйте и отформатируйте замещающий текст.

Если необходимо скрыть элемент управления содержимым, когда кто-либо вводит в собственное содержимое данные для замещения пояснений в элементе управления «Форматированный текст» или «Текст», нажмите кнопку Свойства в группе Элементы управления, а затем установите флажок Удалить элемент управления содержимым при редактировании содержимого.

На вкладке Разработчик в группе Элементы управления нажмите кнопку Режим конструктора, чтобы отключить возможность конструирования и сохранить пояснительный текст.

1.2 Условие задачи на использование экранной формы

В первой части лабораторной работы требуется создать в текстовом редакторе Word экранную форму, которая обеспечит определение каких цифровых символов во введенной строке больше: четверок или пятерок. Учесть возможность равенства количества данных цифровых символов.

1.3 Распечатка программного кода

Private Sub CmdProcess_Click()

Dim St As String

Dim St1 As Integer

Dim St2 As Integer

St = TextSt.Text

St1 = 0

St2 = 0

For I = 1 To Len(St)

If Mid(St, I, 1) = "5" Then

St1 = St1 + 1

End If

If Mid(St, I, 1) = "4" Then

St2 = St2 + 1

End If

Next I

If St1 > St2 Then

LbRez.Caption = "пятерок больше"

End If

If St2 > St1 Then

LbRez.Caption = "четверок больше"

End If

If St1 = St2 Then

LbRez.Caption = "поровну"

End If

End Sub

Private Sub CmdExit_Click()

Unload Me

End Sub

1.4 Распечатка результатов выполнения

1. Вводим число: 12445

Результат: четвёрок больше

2. Вводим число: 12455

Результат: пятёрок больше

3. Вводим число: 144255

Результат: поровну

2. Программная обработка информации, расположенной в таблице Excel, с использованием экранной формы

2.1 Использование экранной формы в таблице Excel

Экранные формы представляет собой инструмент программирования, позволяющий создать для приложений Excel визуальный пользовательский интерфейс требуемого вида. Эти экранные формы (диалоговые окна) могут содержать любые элементы управления, которые обычно встречаются в диалоговых окнах программы Excel.

Экранная форма имеет три связанных компонента:

• Окно со строкой заголовка.

• Элементы управления, составляющие ее визуальный и функциональный интерфейс.

• Коды VBA, управляющие экранной формой и ее элементами управления.

Форма представлена объектом UserForm. Объект UserForm, как и размещенные в окне формы элементы управления, обладают свойствами, методами и событиями, использование которых определяет внешний вид и функциональные характеристики экранной формы.

Создание экранной формы происходит в редакторе VBA. Для создания экранной формы необходимо выполнить команду меню Insert – UserForm. По умолчанию вновь созданным формам даются имена UserForm1, UserForm2 и т.д.

Окно редактора с экранной формой представлено

В рабочей области находится окно создаваемой формы и панель инструментов (Toolbox), которое отображается в случае активизации формы и служит для размещения в форме элементов управления.

В верхней части окна проектов находятся три кнопки. Левая – View Code (Просмотр кода) отображает код текущего объекта, средняя – View Object (Просмотр объекта) отображает средства визуального проектирования текущего объекта (доступна только для экранных форм), правая кнопка – Toggle Folders (Переключение папок) переключает режим отображения элементов в окне проектов.

Для того чтобы открыть окно редактирования кодов формы или элемента управления, нужно воспользоваться кнопкой View Code (Просмотр кода) или дважды щелкнуть мышью на форме или элементе управления. Окно редактирования откроется справа от окна проектов в рабочей области редактора VBA.

В левой нижней части находится окно свойств (Properties), в котором отображаются свойства выделенного объекта. При работе с формой такими объектами может быть сама форма или элементы управления, находящиеся в ней.