Позиционирование на запись в файле

Позиция в записи (номер байта или номер записи) для очередного чтения или записи в файл устанавливается оператором:

Seek [#] номер_файла; позиция

где позиция – число в диапазоне номеров байтов (1 - 2 147 483 647) файла.

Для файла, открываемого в режиме последовательного доступа, с помощью оператора SEEK определяется байт.

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

Текст программы	Комментарий
Dim MyChar As String Open " FILE" For Input As #1 MaxSize = LOF(l)	Объявление переменной на основе пользовательского типа данных Открытие файла произвольного доступа с длиной, соответствующей длине объявленного типа Вычисление количества байтов в файле

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

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

ДИАЛОГОВЫЕ ОКНА

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

Диалоговые окна для обмена сообщениями

Встроенная функция MsgBox() обеспечивает создание диалоговых окон различных типов.

1. Простое окно-сообщение

MsgBox (" строка_сообщения" )

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

Пример 19.37. Вывод сообщения о значении переменной

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

Комментарий

Option Explicit Sub Msg_Priim() Dim a As Single Randomize a=rnd MsgBox " Значение случайного числа " & Str(a) End Sub

Обязательность объявления всех переменных в модуле перед их использованием Объявление процедуры Объявление переменной Запуск генератора случайных чисел Присвоение переменной значения случайного числа Вывод сообщения Конец процедуры

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

Рис. 19.23. Окно-сообщение

2. Окно-сообщение с командными кнопками

Общий формат оператора:

MsgВох(" строка_сообщение" [, < кнопки> ] [, " заголовок_окна" ] [, < файл-подсказки>, < контекст> ])

где < строка_сообщение> - максимальная длина строки – 1024 символа;

< кнопки> - число, являющееся суммой кодов выбранных типов кнопок и

пиктограммы, или имена кнопок;

< заголовок_окна> - строка символов;

< файл-подсказки> - имя файла-подсказки для контекстно-зависимой помощи при работе в

окне, строка символов;

< контекст> - число, которое назначено подсказке для данного окна.

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

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

Код	Константа	Описание
Коды командных кнопок
	vbOKOnly	OK
	vbOKCancel	OK, Отмена
	vbAbortRetryIgnore	Прекратить, Повторить, Игнорировать
	vbYesNoCancel	Да, Нет, Отмена
	vbYesNo	Да, Нет
	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. Окно-сообщение с кнопками

⇐ Предыдущая 114 115 116 117 118119120 121 122 123 Следующая ⇒