3. Запись
Запись – это структурированный тип данных, компоненты которого обычно называют полями, имеют имя и могут принадлежать к различным типам данных.
[Private | Public] Type имяТипа
имяПоля [(<размер>)] As типДанных
[имяПоля [(<размер>)] As типДанных]
…
End Type
Запись определяется либо на уровне модуля, либо на уровне приложения. Поля могут быть простых типов, массивы или уже определенные перечисляемые типы и записи.
Например:
Опишем следующее дерево
|
Книга (тип запись) |
|
|
НазваниеКниги (тип String) |
НазванияГлавКниги (динамический массив типа String) |
Автор (запись типа ДанныеЧеловека) |
|
|
|
Имя (тип String) |
ДеньРождения (тип Date) |
Public Type ДанныеЧеловека
Имя As String
ДеньРождения As Date
End Type
Public Type Книга
НазваниеКниги As String
НазванияГлавКниги () As String
Автор As ДанныеЧеловека
End Type
Sub Пример ()
Dim Библиотека (1 To 12) As Книга
Библиотека(1).Автор.Имя = «Федор Новиков»
Библиотека(1).Автор.ДеньРождения = #10/10/1951#
Библиотека(1).НазваниеКниги = «VBA и разработка приложений»
ReDim Библиотека(1).НазванияГлавКниги (0 To 1)
Библиотека(1).НазванияГлавКниги (0) = «Введение»
Библиотека(1).НазванияГлавКниги (1) = «Типы данных»
MsgBox (Библиотека(1).Автор.Имя) ‘Вывод на экран имени автора книги
End Sub
Лекция №9. Диалоговые окна
1. Функция InputBox
Используется для ввода значения необходимого для выполнения макроса.
Синтаксис:
InputBox(Prompt [,Title] [, Default] [, xPos] [, yPos] [, Helpfile, Context])
Prompt – строковое выражение, отображаемое как сообщение в диалоговом окне. Строковое выражение может содержать несколько строк. Для разделения строки допускается использование символа возврата каретки (Chr(13)), символа перевода строки (Chr(10)) или комбинацию этих символов (Chr(13)& Chr(10));
Title – строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот параметр опущен, то в строку заголовка помещается имя приложения;
Default – строковое выражение, отображаемое в поле ввода как используемое по умолчанию, если пользователь не введет другую строку. Еили этот параметр опущен, то поле ввода изображается пустым;
xPos – числовое выражение, задающее расстояние по горизонтали между левой границей диалогового окна и левым краем экрана. Если этот параметр опущен, то диалоговое окно выравнивается по центру экрана по горизонтали;
yPos – числовое выражение, задающее расстояние по вертикали между верхней границей диалогового окна и верхним карем экрана. Если этот параметр опущен, то диалоговое окно помещается по вертикали примерно на одну треть высоты экрана;
Helpfile – строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне. Если этот параметр указан, то необходимо указать также параметр Context;
Context – числовое выражение, определяющее номер соответствующего раздела справочной службы. Если этот параметр указан, то необходимо также указать параметр Helpfile.
Пример, использования функции InputBox:
Ставка = InputBox(«Введите ставку комиссионных», «Расчет комиссионных»)
Функция InputBox вводит строку, поэтому может возникнуть необходимость в преобразовании результата в число. Для этого используется функция Val (эта функция преобразует строку текста, отображающую число, в число).
Ставка = Val(InputBox(«Введите ставку комиссионных», «Расчет комиссионных»))