Практическая работа «Встроенные диалоговые окна»

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

Редактор VBA позволяет использовать стандартные встроенные диалоговые окна и проектировать пользовательские диалоговые окна. Диалоговое окно, созданное функцией MsgBox служит для вывода на экран сообщения программы и получения от пользователя простой реакции на это сообщение в виде щелчка одной из кнопок окна.

Синтаксис вызова функции MsgBox:

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

Здесь параметр prompt (сообщение) – строковое выражение, значение которого выводится в окне. Числовой параметр buttons (кнопки) задает виды командных кнопок, кнопку, выбираемую по умолчанию, и модальность диалогового окна. Строковое выражение title задает заголовок окна. Параметр helpfile – имя файла, содержащего справку, который будет выведен принажатии клавиши F1, context – числовое выражение, задающее номер темы со справкой.

В таблице 11 приведены свойства окна функции MsgBox.

Таблица 11

Имя константы	Код	Описание
Коды наборов командных кнопок
VbOKOnly	0	Только кнопка ОК
VbOKCancel	1	Кнопки ОК и Отмена
VbAbortRetryIgnore	2	Кнопки Прервать, Продолжить, Игнорировать
VbYesNoCancel	3	Кнопки Да, Нет, Отмена
VbYesNo	4	Кнопки Да и Нет
VbRetryCancel	5	Кнопки Продолжить и Отмена
Коды пиктограмм
VbCritical	16	Важное сообщение (крестик в круге)
VbQuestion	32	Запрос (вопросительный знак)
VbExclamation	48	Предупреждение (восклицательный знак)
VbInformation	64	Информация (i в круге)
Кнопка, выбранная по умолчанию
VbDefaultButton1	0	Первая кнопка
VbDefaultButton2	256	Вторая кнопка
VbDefaultButton3	512	Третья кнопка
VbDefaultButton4	768	Четвертая кнопка
Модальность диалога
VbApplicationModal	0	приложения
vbSystemModal	4096	Модален относительно системы

Как узнать, какую кнопку выбрал пользователь?

Присвоить значение функции MsgBox некоторой целочисленной переменной и проверить его. Возвращаемые функцией MsgBox значения приведены в таблице 12.

Таблица 12

Имя константы	Значение	Нажатая кнопка
VbOK	1	OK
VbCancel	2	Cancel
VbAbort	3	Abort
VbRetry	4	Retry
VbIgnore	5	Ignore
VbYes	6	Yes
VbNo	7	No

Окно, создаваемое функцией InputBox, предназначено для ввода строки и содержит однострочное окно редактирования, сообщение и кнопки ОК и Cancel.

Синтаксис вызова функции InputBox:

InputBox(prompt [, title] [, xpos] [, ypos] [, helpfile, context])

Параметр xpos задает расстояние по горизонтали левой границы окна от левой границы экрана, ypos – расстояние верхней границы окна от верхней границы экрана.

Задание 1

Доработайте свой проект Магазин: пусть щелчок на кнопке Выход на форме Сувениры вызывает сообщение пользователю “Спасибо за покупку!”.

1 Откройте рабочую книгу Магазин.

2 Откройте редактор Visual Basic.

3 В окне Проект выберите объект – форму frmSuvenir.

4 Двойным щелчком на кнопке Выход перейдите в окно редактора кода.

5 Добавьте функцию MsgBox в обработчик события.

Private Sub btnEnd_Click()

MsgBox "Спасибо за покупку!"

frmSuvenir.Hide

frmOtdel.Show

End Sub

6 Проверьте работу функции.

Задание 2

Доработайте свой проект Магазин: при щелчке на кнопке Выход на форме Выбор_отдела появляется окно, в котором надо подтвердить или отменить выход.

1 В окне Проект выберите объект – форму frmOtdel.

2 Двойным щелчком на кнопке Выход перейдите в окно редактора кода.

3 Объявите переменные.

4 Добавьте функцию MsgBox в обработчик события.

Private Sub Выход_Click()

Dim Msg As String, Btns As Integer

Dim Title As String

Dim Result As Integer

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

Title = "Подтвердите выход!"

'сообщение

Msg = "Вы хотите выйти из магазина?"

'Кнопки и свойства

Btns = vbYesNo+vbCritical+vbDefaultButton2

'Вывод сообщения.

Result = MsgBox(Msg, Btns, Title)

'Анализ действий пользователя

If Result = vbYes Then

Application.Quit

End If

End Sub

Задание 3

1 В окне Проект выберите объект ThisWorkbook

2 В окне редактора кода объявите переменные, создайте окно ввода данных при помощи функции InputBox, а затем окно сообщения при помощи функции MsgBox. Предусмотрите заголовки окон и пиктограммы (свойства функции MsgBox приведены в таблице 10).

Пример:

Sub asd()

Dim q As String

q = InputBox("Как вас зовут?", "proba")

MsgBox "Привет, " & q, , "proba"

End Sub

3 Проверьте работу своего приложения.

Задание 4

1 В окне Проект выберите объект Выбор_отдела.

2 Добавьте элемент управления CommandButton.

3 Создайте обработчик события:

Private Sub btnSave_Click()

Application.Dialogs(xlDialogSaveAs).Show

End Sub

4 Проверьте работу своего приложения.

Проверь себя

Запишите в тетрадь ответы на контрольные вопросы и решения ситуаций

1 Напишите процедуру активизации диалогового окна Excel Печать при нажатии кнопки btnPrint.

2 Напишите процедуру закрытия диалогового окна frmClient при нажатии кнопки btnExit.

Ситуация 1. Пользователю предлагается ввести в окно ввода название города, в котором мы живем, и предусматривается два варианта сообщений: «Неправильный ответ» и «Любимый город может спать спокойно».

Краткое описание материала

Практическая работа «Встроенные диалоговые окна»

Информатика

Другие методич. материалы

DOCX

22.12.2014

1268

Информатика

Другие методич. материалы

Файл будет скачан в формате:

DOCX

Краткое описание материала

Автор материала

Мирошниченко Вера Алексеевна

преподаватель

На сайте: 11 лет
Всего просмотров: 10276
Подписчики: 0
Всего материалов: 7

10276
просмотров
7
материалов
0
подписчиков

Настоящий материал опубликован пользователем Мирошниченко Вера Алексеевна.
Инфоурок является информационным посредником. Всю ответственность за опубликованные материалы несут пользователи, загрузившие материал на сайт. Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете на материал.

Практическая работа «Встроенные диалоговые окна»

Краткое описание материала

Практическая работа «Встроенные диалоговые окна»

Краткое описание материала

Если готовые материалы не подошли — помогут нейросети

Все ИИ-инструменты

Создать изображение

Создать презентацию

Сделать рабочий лист

Составить план урока

Оформить школьный кабинет

Подготовить тест или контрольную

Создать раскраску

Подготовить школьный праздник

Объяснить сложную тему

Пересказать текст

Подготовить классный час

Создать студийное фото

Придумать игру для урока

Изменить возраст на фото

Создать открытку

Создать презентацию со сгенерированными ИИ изображениями

Составить план обучения

Создать презентацию с настоящими фото

Добавить человека на фото

Написать поздравление

Извлечь текст из файла

Визуализировать данные

Написать характеристику ученика

Составить индивидуальный образовательный маршрут

Перевести текст

Составить меню на неделю

Подготовиться к собеседованию

Проверить работу ученика

Подготовиться к педсовету

Создать персонажа

Заменить объект на изображении

Создать изображение для поста

Написать объявление для родительского чата

Проанализировать данные

Улучшить качество изображения

Стилизовать изображение

Составить план тренировок

Раскрасить черно-белое изображение

Сделать обложку для видео

Написать официальное письмо

Подготовить материалы к экзамену

Спланировать поездку

Подобрать дизайн интерьера

Создать карточку товара

Создать презентацию без изображений

Адаптировать материал под уровень учеников

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

Удалить фон

Разобрать ситуацию с учеником

Составить список покупок

Разобрать анализы

Подготовить резюме

Подготовиться к проверке

Заменить фон

Распланировать бюджет на месяц

Оформить упаковку

Сделать мокап

Подготовить отчет по успеваемости класса

Адаптировать изображение под формат

Все нейросети

ИИнфоурок

Создать презентацию

GPT Image 2

ChatGPT 5.5

Nano Banana 2

Nano Banana Pro

ChatGPT 5.1

Claude Opus 4.8

Claude Opus 4.5

ChatGPT 5.4 mini

ChatGPT 5.4

DeepSeek v3.2

Gemini 3.1 Pro

GPT Image 1.5