Файл: Макарова_Информатика_2000.doc

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

Таблица 19.7. Список видов командных кнопок и их кодов

Код	Константа	Описание
Коды командных кнопок
0	vbOKOnly	OK
1	vbOKCancel	OK, Отмена
2	vbAbortRetryIgnore	Прекратить, Повторить, Игнорировать
3	vbYesNoCancel	Да, Нет, Отмена
4	vbYesNo	Да, Нет
5	vbRetryCancel	Повторить, Отмена

Пример 19.38. Формирование диалогового окна с кнопками

Текст программы

Комментарий

Option Explicit

Sub Msg_Priim()

Dim Response As Integer

Dim Msg As String

Dim Title As String

Dim Help As String

Dim Style As Integer

Dim Ctxt As Integer

Msg = "Вы хотите продолжить ?"

Style = 35

Title = "Пример окна-сообщения"

Help = "DEMO.HLP"

Ctxt = 0

Response = MsgBox(Msg; Style; Title; Help; Ctxt)

End Sub

Обязательность объявления всех переменных в модуле перед их использованием

Объявление процедуры

Объявление переменной

Строка сообщения

Кнопки для окна (vbYesNoCancel + + vbDefaultButtonH vbQuestion)

Заголовок окна

Имя файла-подсказки

Номер контекста внутри файла-подсказки

Присвоение переменной кода ответа

Конец процедуры

В результате выполнения программы будет сформировано следующее окно (рис. 19.24).

Рис. 19.24. Окно-сообщение с кнопками

Диалоговые окна для ввода данных

Функция InputBox() обеспечивает формирование окна для вывода строки сообщения и ожидания ввода строки символов или нажатия кнопки. Возвращает содержание текстового блока:

InputВох(<строка_сообщение> [,<заголовок_окна>][.<текст_по_умолчанию>]

[,Хпоз][,Yпоз][, <файл-подсказки>, <контекст>])

где <текст_по_умолчанию> - строка символов, выводимая в текстовом блоке (может быть пустой);

Хпоз, Yпоз - позиция левого верхнего угла окна.

Пример 19.39. Формирование окна ввода

Текст программы

Комментарий

Option Explicit

Sub Msg_Inp()

Dim Response As String

Dim Message As String

Dim Default As String

Dim Title As String

Dim Help As String

Dim Style As Integer

Dim Ctxt As Integer

Message = "Введите Фамилию, Имя и Отчество студента"

Title = "Пример окна для ввода"

Default = "Смирнов Игорь Александрович" Response = InputBox(Message; Title; Default; 100; 100)

End Sub

Обязательность объявления всех переменных в модуле перед их использованием

Объявление процедуры

Объявление переменной

Строка-сообщение

Заголовок окна

Текст по умолчанию

Присвоение переменной символьного типа результата ввода

Конец процедуры

В результате выполнения программы будет выведено диалоговое окно (рис. 19.25).

Рис. 19.25. Диалоговое окно для ввода данных

Диалоговые окна пользователей

Диалоговые окна пользователей обеспечивают ввод и редактирование данных файлов и таблиц. Для создания диалогового окна выполняется команда ВСТАВКА, Макрос с указанием типа вставляемого листа – Диалог. Экран содержит основу для построения диалогового окна пользователя, а также панель инструментов Формы (рис. 19.26) для размещения и настройки (форматирования) элементов окна.

Рис. 19.26. Панель инструментов Формы

Таблица 19.8. Состав панели инструментов Формы

В диалоговом окне могут размещаться элементы произвольного вида, которые создают наборы объектов. Доступ к конкретному элементу – по имени набора и имени или порядковому номеру элемента внутри набора.

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

Пример 19.40.

Sheets("<имя_листа_диалога>"). Labels ("<имя_объекта_метки>") .Caption="cтpoкa текста"

Поле ввода является многострочным, содержит текст, который можно редактировать. Поле ввода входит в набор EditBoxes(), его можно редактировать и программным способом.

Пример 19.41.

Sheets("<имя_листа_диалога>").ЕditBoxes("<имя_окна>").Техt="строка текста"

Кроме того, этот тип элемента диалогового окна обладает следующими свойствами:

MultyLine = True – в случае многострочности поля ввода;

InputType - ограничение типа данных, вводимых в окно (xlFormula, xlInteger, xllNumber, xlReference, xlText).

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

Флажок обеспечивает аддитивный выбор, имеет свойство Value (принимает значение True, если выбран, или False – в противном случае). Подобные переключатели образуют набор CheckBoxes().

Кнопка переключателя обеспечивает альтернативный выбор из списка взаимоисключающих опций. Такие кнопки входят в состав группы, если они различны по назначению, либо все кнопки в диалоговом окне образуют единую группу; выбор одной из кнопок внутри группы означает автоматический невыбор других. Подобные переключатели образуют набор OptionButtons(). Свойство Value принимает значение True, если выбрана кнопка, и False – в противном случае.

Окно списка предоставляет для выбора список значений, при этом редакция списка невозможна. Формирование списка осуществляется только программным путем. Существует несколько вариантов организации списков с помощью свойств объекта:

ListFillRange – ссылка на диапазон ячеек электронной таблицы, содержащей значения элементов списка;

List() - перечисление элементов списка непосредственно, замена старого списка новым целиком.

Раскрывающийся список во многом соответствует окну списков, но этот элемент входит в набор DropDowns().

Поле ввода со списком объединяет окно списка и окно редактирования. При выборе элемента списка он автоматически появляется в окне редактирования, где возможна его корректировка. В принципе это два разных окна с различными свойствами.

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

Линейка прокрутки создает горизонтальную или вертикальную линейку прокрутки. Свойство Value содержит число, соответствующее положению ползунка, доступ к линейкам прокрутки через набор ScrollBars(). Свойства Min и Мах управляют диапазоном значений, доступны как из программы, так и через диалоговое окно форматирования элемента. Свойства LargeChange и SmallChange содержат величину изменения свойства Value.

Регулятор счетчика аналогичен линейке прокрутки, но отсутствует свойство LargeChange.

На рис. 19.27 представлено диалоговое окно пользователя для ввода данных об экзаменационных оценках.

Диалоговое окно пользователя включает следующие элементы:

метки (Группа, Фамилия Имя Отчество, № зач.книжки и др.);

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

поля ввода (Фамилия Имя Отчество, № зач.книжки, Дата), для которых может быть указан тип вводимой информации (текст, целое число, число, ссылка, формула), наличие многострочного текста и вертикальной линейки прокрутки;

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

кнопки управления (<По умолчанию>, <Отмена>, <Закрыть>, <Справка>).

Рис. 19.27. Диалоговое окно пользователя

Для выделенного элемента диалогового окна с помощью команды контекстного меню Форматобъектавызывается окно «Форматирование объекта» для задания указанных характеристик.

Смотрите также файлы

Лермонтов.doc

Лекция FrontPage.doc

Курсовая.docx

курсовая сцен.мастерство.doc

КУРСОВАЯ КАМНЕРЕЗЫ.doc

Файл: Макарова_Информатика_2000.doc

Смотрите также файлы

Информация

Списки файлов

Дополнительно