🗊Презентация Встроенные диалоговые окна

РХТУ им. Д.И. Менделеева Каф. ИКТ Курс создал: ст. преп. A.М. Васецкий

Встроенные диалоговые окна В проектах VBA встречаются две разновидности диалоговых окон: окна сообщений (MsgBox) и окна ввода (InputBox). Они встроены в VBA, и если их возможностей достаточно, то можно обойтись без проектирования диалоговых окон. Окно сообщений выводит простейшие сообщения для пользователя, а окно ввода обеспечивает ввод информации.

Функция InputBox Выводит на экран диалоговое окно, содержащее сообщение и поле ввода, устанавливает режим ожидания ввода текста пользователем или нажатия кнопки, а затем возвращает значение типа string, содержащее текст, введенный в поле. Синтаксис: InputBox (prompt [, title] [, default] [, xpos][, ypos] [, helpfile, context])

Аргументы функции InputBox prompt – строковое выражение, отображаемое как сообщение в диалоговом окне. Строковое значение prompt может содержать несколько строк. Для разделения строк допускается использование символов chr(10), chr(13) и их комбинации title – строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот аргумент опущен, в строку заголовка помещается имя приложения default – строковое выражение, Отображаемое в поле ввода как используемое по умолчанию, если пользователь не введет другую строку. Если этот аргумент опущен, поле ввода изображается пустым xpos – числовое выражение, задающее расстояние по горизонтали между левой границей диалогового окна и левым краем экрана. Если этот аргумент опущен, диалоговое окно выравнивается по центру экрана по горизонтали ypos – числовое выражение, задающее расстояние по вертикали между верхней границей диалогового окна и верхним краем экрана. Если этот аргумент опущен, диалоговое окно помещается по вертикали примерно на одну треть высоты экрана

Аргументы функции InputBox (продолжение) helpfile – строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне. Если этот аргумент указан, необходимо наличие также аргумента context context – числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот аргумент указан, необходимо наличие также аргумента helpfile

Пример InputBox 10: str = InputBox("Введите текст", "пример", "Поле ввода текста") If Len(str) > 0 Then MsgBox "Введено:" & vbCr & str, vbExclamation + vbOKOnly Else i = MsgBox("Текст не введён!", vbCritical + vbRetryCancel) If i = vbRetry Then GoTo 10 Else MsgBox "Отменено пользователем", vbExclamation + vbOKOnly End If End If

Процедура MsgBox Выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия кнопки пользователем, а затем возвращает значение типа Integer, указывающее, какая кнопка была нажата. Синтаксис: MsgBox (prompt [, buttons] [, title] [, helpfile, context])

Аргументы функции MsgBox prompt – строковое выражение, отображаемое как сообщение в диалоговом окне buttons – числовое выражение, представляющее сумму значений, которые указывают число и тип отображаемых кнопок, тип используемого значка, основную кнопку и модальность окна сообщения. Значение по умолчанию этого аргумента равняется 0. Значения констант, определяющих число и тип кнопок используемого значка, приведены на следующих слайдах title – строковое выражение, отображаемое в строке, заголовка диалогового окна. Если этот аргумент опущен, в строку заголовка помещается имя приложения helpfile – строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне. Если этот аргумент указан, необходимо указать также аргумент context context – числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот аргумент указан, необходимо указать также аргумент helpfile

Значения аргумента buttons, определяющие кнопки

Значения аргумента buttons, определяющие отображаемые информационные значки

Значения аргумента buttons определяющие основную кнопку

Возвращаемые значения окна MsgBox

Типы файлов в VBA

Открытие файла

Закрытие файла

Прочие функции для работы с файлами

File System Objects (FSO) FSO позволяет открывать файлы как текстовой поток и читать и писать в них object.OpenTextFile(filename[, iomode[, create[, format]]]) filename – полный путь к файлу iomode – режим ввода/вывода create – Логическое значение, показывающее будет ли создан новый файл, если файл filename не найден (False – по умолчанию) format – формат открываемого файла. По умолчанию - ASCII

Значения констант для открытия файлов через FSO iomode принимает следующие значения: ForReading = 1 – открывает файл для чтения ForAppending =8 – открывает файл для добавления format принимает следующие значения: TristateUseDefault =–2 для открытия файла используются системные установки TristateTrue =-1 – открывает файл в кодировке Unicode. TristateFalse =0 – открывает файл в кодировке ASCII

Открытие файла, как объекта FSO Метод OpenTextFile Sub OpenTextFileTest() Const ForReading = 1, ForWriting = 2 Const ForAppending = 8 Const TristateFalse =0 Dim fs, f Set fs=CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse) f.Write "Hello world!" f.Close End Sub

OpenAsTextStream метод Метод открывает файл и делает возможным чтение/запись в него object.OpenAsTextStream([iomode, [format]]) object – файловый объект iomode – режим записи/чтения format – формат файла

Значения констант OpenAsTextStream iomode принимает следующие значения: ForReading = 1 – открывает файл для чтения ForWriting = 2 – открывает файл для записи. Если файл существовал, то его содержимое предварительно стирается ForAppending = 8 – открывает файл для добавления format принимает следующие значения: TristateUseDefault = –2 для открытия файла используются системные установки TristateTrue = -1 – открывает файл в кодировке Unicode. TristateFalse = 0 – открывает файл в кодировке ASCII

Пример

FSO. Список папок

Функции по работе с файлами

Функции по работе с файлами (продолжение)

Функции по работе с файлами (продолжение)

Функции по работе с файлами (продолжение)

Примеры. Функция DIR

Ввод данных в файл последовательного доступа. Оператор Write Записывает неформатированные данные в файл последовательного доступа. В отличие от инструкции Print, инструкция Write вставляет запятые между элементами и заключает строки в кавычки по мере записи их в файл. Синтаксис: Write #НомерФайла, [СписокВывода] НомерФайла – номер файла СписокВывода – выражение или список выражений, записываемых в файл. Данные, записанные с помощью инструкции Write, обычно считываются из файла с помощью инструкции Input

Ввод данных в файл последовательного доступа. Оператор Print

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

Пример применения оператора Write

Ввод данных из файла последовательного доступа. Оператор Input

Ввод данных из файла последовательного доступа

Пример использования оператора Input Dim MyChar Open "FILE.tst" For Input As #1 ‘Цикл до конца файла Do While Not EOF(1) ‘Считываем 1 символ MyChar = Input(1, #1) ‘Вывод в окно Immediate Debug.Print MyChar Loop Close #1

Пример

Пример. Вывод массива в файл

Пример. Ввод массива из файла

Работа с файлом произвольного доступа

Работа с файлом произвольного доступа

Пример записи Type Record ' Пользовательский тип. ID As Integer Name As String * 20 End Type Dim MyRecord As Record, RecordNumber ‘Открываем для прямой записи Open "TESTFILE" For Random As #1 Len = Len(MyRecord) For RecordNumber = 1 To 5 ' 5 оборотов цикла MyRecord.ID = RecordNumber ' Заполняем поля MyRecord.Name = "My Name" & RecordNumber ‘Записываем записи в файл Put #1, RecordNumber, MyRecord Next RecordNumber Close #1

Пример чтение из файла ‘Открываем тестовый файл Open "TESTFILE" For Random As #1 Len = Len(MyRecord) Position = 3 ' номер записи. ' читаем третью запись Get #1, Position, MyRecord Close #1

Выбор файла пользователем Если приложению необходимо получить от пользователя имя файла, то это можно сделать несколькими путями. Например через GetOpenFilename объекта Application. Более общим приёмом является использование метода FileDialog. Использование InputBox возможно, но не рекомендуется в силу большой вероятности ошибок и неудобства для пользователя.

Пример кода GetOpenFileName

Диалоговое окно

FileDialog

Выбор папки

Выбор папки при помощи FileDialog

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

Функция перехвата ошибок On Error On Error производит перехват ошибки. Устанавливает, что программа должна делать в случае появления ошибки. Допустимы следующие синтаксисы. Синтаксис 1: On Error GoTo строка Активизирует подпрограмму обработки ошибок, начало которой определяется обязательным аргументом строка, значением которого может быть либо метка строки, либо номер строки. Синтаксис 2: On Error Resume Next Указывает, что при возникновении ошибки происходит передача управления на инструкцию, непосредственно следующую за инструкцией, где возникла ошибка. Синтаксис 3: On Error GoTo 0 Отключает любой активизированный обработчик ошибок в текущей процедуре.

Инструкция Resume Обеспечивает процедуре возможность продолжить работу после обработки ошибки. Допустимы следующие синтаксисы. Синтаксис 1: Resume После обработки ошибки управление передается той инструкции, в которой произошла ошибка. Синтаксис 2: Resume строка После обработки ошибки управление передается инструкции, определенной аргументом строка. Значением этого аргумента может быть любая метка строки или номер строки. Синтаксис 3: Resume Next После обработки ошибки управление передается инструкции, следующей за инструкцией, в которой произошла ошибка.

Инструкция Exit Инструкция Exit останавливает выполнение процедуры. Допустимые синтаксисы: Exit Sub Exit Function Exit Property

Пример перехвата ошибок

Коды ошибок

Коды ошибок

Коды ошибок

Коды ошибок

Коды ошибок