2. Объект «Метка».

• Чтобы создать метку, нужно выбрать пиктограмму «Надпись», переместить ее на бланк, затем установить нужный размер. Выбрав метку, можно записать в нее текст, который хотите отобразить. (пример на листе Диалог1).

• Чтобы изменить текст метки программным путем, необходимо изменить свойство метки Caption.

Пример процедуры, которая меняет текст метки

Sub Смена_метки()

DialogSheets("Диалог1").Labels("Метка 1").Caption = "Пример работы с меткой!"

End Sub

«Диалог1» - страница диалога, «Метка1» - имя метки.

(пример работы процедуры – лист Диалог2)

3. Объект «Окно редактирования».

• Чтобы создать окно редактирования, нужно выбрать пиктограмму «Текстовое поле», переместить ее на бланк, затем установить нужный размер.

• Содержимое окна редактирования может меняться как пользователем, так и программным путем.

Чтобы изменить содержимое окна редактирования программным путем, нужно применить процедуру, которая использует набор EditBoxes и свойство Text.

Sub Окно_редактирования()

DialogSheets("Диалог3").EditBoxes("Окно").Text = Sheets("Пример").Range("A1").Value

End Sub

После выполнения данной процедуры в окне редактирования появится информация, которая записана в ячейке «А1» на листе «Пример». (результат работы на листе Диалог3)

Sub Окно_редактирования1()

Sheets("Пример").Range("A1").Value=DialogSheets("Диалог3").EditBoxes("Окно").Text

End Sub

После выполнения этой процедуры в ячейке «А1» на листе «Пример» будет записана информация, которая была введена в окно редактирования на странице «Диалог3».

• Чтобы определить такие свойства окна редактирования как тип вводимого значения (строка, целое число, число, ссылка, формула) многострочный текст и другие можно воспользоваться командой «Формат объекта ».

4. Объект «Групповое окно».

• Чтобы создать групповое окно, нужно выбрать пиктограмму «Рамка», переместить ее на бланк, затем установить нужный размер. Групповое окно должно быть изображено на бланке до того, как будут изображены кнопки, которые нужно объединить в группу.

• Чтобы задать строку текста, располагающуюся в верхней области границы окна, (программным путем) применяется свойство Caption

Sub Групповое_окно()

DialogSheets("Диалог4").GroupBoxes("ГРокно").Caption = "Групповое окно"

End Sub

(результат работы на листе Диалог4)

5. Объект «Контрольный индикатор».

• Чтобы вставить контрольный индикатор, нужно выбрать пиктограмму «Флажок», переместить ее на бланк, затем установить нужный размер и написать строку текста, которая обозначает действия индикатора.

• Чтобы определить включен или выключен контрольный индикатор, надо использовать набор

CheckBoxes и свойство Value. Если индикатор включен, то свойство Value возвращает значение «1», если выключен, то «-4146»

Sub Контрольный_индикатор1()

Sheets("Пример").Range("A2").Value = DialogSheets("Диалог5").CheckBoxes("Флажок1").Value

End Sub

В результате выполнения этой процедуры в ячейке «А2» на листе «Пример» будет значение «1», если индикатор с именем «Флажок1» на листе «Диалог5» был включен, либо значение «-4146» в противном случае. (пример на листе «Диалог5»)

• Чтобы определить строку текста, располагающуюся справа от индикатора, используют свойство Caption.

Sub Контрольный_индикатор2()

Sheets("Пример").Range("A3").Value = DialogSheets("Диалог5").CheckBoxes("Флажок1").Caption

End Sub

В ячейке «А3» после выполнения этой процедуры будет располагаться строка текста, расположенная справа от индикатора.