Встроенные диалоговые окна - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Встроенные диалоговые окна. Доклад-сообщение содержит 59 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

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

Слайд 2

Описание слайда:

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

Слайд 3

Описание слайда:

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

Слайд 4

Описание слайда:

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

Слайд 5

Описание слайда:

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

Слайд 6

Описание слайда:

Пример 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

Слайд 7

Описание слайда:

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

Слайд 8

Описание слайда:

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

Слайд 9

Описание слайда:

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

Слайд 10

Описание слайда:

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

Слайд 11

Описание слайда:

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

Слайд 12

Описание слайда:

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

Слайд 13

Описание слайда:

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

Слайд 14

Описание слайда:

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

Слайд 15

Описание слайда:

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

Слайд 16

Описание слайда:

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

Слайд 17

Описание слайда:

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

Слайд 18

Описание слайда:

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

Слайд 19

Описание слайда:

Открытие файла, как объекта 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

Слайд 20

Описание слайда:

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

Слайд 21

Описание слайда:

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

Слайд 22

Описание слайда:

Пример

Слайд 23

Описание слайда:

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

Слайд 24

Описание слайда:

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

Слайд 25

Описание слайда:

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

Слайд 26

Описание слайда:

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

Слайд 27

Описание слайда:

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

Слайд 28

Описание слайда:

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

Слайд 29

Описание слайда:

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

Слайд 30

Описание слайда:

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

Слайд 31

Описание слайда:

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

Слайд 32

Описание слайда:

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

Слайд 33

Описание слайда:

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

Слайд 34

Описание слайда:

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

Слайд 35

Описание слайда:

Пример использования оператора 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

Слайд 36

Описание слайда:

Пример

Слайд 37

Описание слайда:

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

Слайд 38

Описание слайда:

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

Слайд 39

Описание слайда:

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

Слайд 40

Описание слайда:

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

Слайд 41

Описание слайда:

Пример записи 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

Слайд 42

Описание слайда:

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

Слайд 43

Описание слайда:

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

Слайд 44

Описание слайда:

Пример кода GetOpenFileName

Слайд 45

Описание слайда:

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

Слайд 46

Описание слайда:

FileDialog

Слайд 47

Описание слайда:

Выбор папки

Слайд 48

Описание слайда:

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

Слайд 49

Описание слайда:

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

Слайд 50

Описание слайда:

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

Слайд 51

Описание слайда:

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