Отображение диалогового окна пользователя.

Существует несколько способов отображения диалогового окна, зависящих от потребностей:

· Отображение окна при активной странице диалога.

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

Этот метод применяется в первую очередь для отладки диалогового окна и проверки его функционирования.

· Отображение окна из программы на Visual Basic.

Применяется метод Show.

Пример.

 

DialogSheets("Диалог").Show,

 

где «Диалог» - название листа диалога.

 

Подключение процедур к объектам диалогового окна пользователя.

· Чтобы к объекту подключить процедуру нужно, выбрав объект, щелкнуть правой кнопкой мыши и в контекстном меню открыть команду «Назначить макрос». В появившемся окне указать процедуру, которую хотите подключить к объекту, или выбрать команду «Создать» для создания заголовка новой процедуры.

 

Объекты диалогового окна пользователя.

· Чтобы определить настройку объекта нужно выбрать объект, щелкнуть правой кнопкой мыши и в появившемся контекстном меню открыть команду «Формат объекта». Чтобы сменить текст объекта – выбрать команду «Изменить текст».

· При изображении объектов в диалоговом окне пользователя, Visual Basic присваивает этим объектам имена по умолчанию (Label 2, Button 3). При выборе объекта его имя появляется в окне Name, расположенном в левом углу строки редактирования. Чтобы изменить имя объекта нужно, выбрав объект, записать новое имя в окне Name и нажать Enter.

 

 

Объект «Командная кнопка».

· Чтобы подключить командную кнопку нужно выбрать пиктограмму «Кнопка» на пиктографическом меню «Формы».

· Чтобы командная кнопка инициировала какие-нибудь действия, ее необходимо подключить к процедуре, для этого нужно выбрав командную кнопку, щелкнуть правой кнопкой мыши и в контекстном меню открыть команду «Назначить макрос». В появившемся окне указать процедуру, которую хотите подключить к кнопке, или выбрать команду «Создать» для создания заголовка новой процедуры.

 

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

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

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

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

 

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

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

End Sub

 

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

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

 

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

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

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

Чтобы изменить содержимое окна редактирования программным путем, нужно применить процедуру, которая использует набор 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».

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

 

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

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

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

 

 

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

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

End Sub

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