Упражнение 6

В этом упражнение будет продолжена виртуальная процедура записи данных.

1 В программный код вашего приложения добавьте следующую строку:

FileName = InputBox$("Задайте имя файла")

2 Запустите приложение. В режиме выбора сохранения файла на диске на экране появится текстовое окно с предложением ввести имя файла (Рис. 8).

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

3 В режиме конструирования введите заголовок (Header$) и начальное значение (Default), отображаемое в текстовом окне.

Header$ = “Ввод имени файла”

Default = “DD.doc”

При этом программный код будет формы будет иметь вид:

Private Sub Form_Click()

 

Dim Vol, res As Single

Vol = 1.56

If Vol > 1.44 Then

D$ = "Операция записи не может быть продолжена.";

D$ = D$ + " Диск переполнен";

res = MsgBox(D$, 16 + 2, "Ошибка записи")

If res = 4 Then

D$ = "Вставте новую дискету.";

D$ = D$ + Chr$(10) + "Запись продолжить?";

res = MsgBox(D$, 64 + 4, "Повтор записи")

If res = 6 Then

End

Else

MsgBox "Сохраните файл на диске";

Header$ = " Вводименифайла"

FileName$ = InputBox$("Задайтеимяфайла", Header$, "DD.doc", 0, 0)

Print FileName$

End If

End If

End Sub

За метим, что при вводе заголовка (Header$) в программный код его обязательно необходимо вставлять до вызова функции InputBox$.

Кроме того, функция InputBox$() возвращает строку, а функция MsgBox () – значение типа Variant. При нажатии на кнопку Ok, содержимое текстового поля присваивается переменной (в нашем случае FileName). Если пользователь нажал кнопку Cancel, то возвращается строка нулевой длины

6 Запустите приложение. Отработайте его до появления текстового окна с предложением ввести имя файла (рис. 9).

 

Если вас не устраивает предлагаемый вариант по умолчанию, введите свой вариант имени файла и нажмите кнопку Ok. На форме будет напечатано имя, введенного вами файла.

7. Завершите работу приложения. Сохраните проект с именем Диалоговые окна.

 

 

Вопросы для самопроверки

1 Назначение диалоговых окон.

2 Как осуществляется вывод сообщения?

3 Чем отличается организация вывода сообщения функцией и оператором?

4 В чем заключается организация вывода содержательной части сообщения?

5 Чем определяется вид диалогового окна сообщения?

6 Параметры и константы, определяющие вид окна сообщения.

7 Коды возврата диалоговых окон.

8 Диалоговые окна ввода информации.

9 Организация диалогового окна ввода информации.