End Type

Пользовательский тип данных

Лекция 15

Продолжение выполнения программы

Завершив обработку ошибки, следует продолжить нормальное выполнение программы. Инструкция Resume позволяет вернуться в строку, вызвавшую ошибку, для ее повторного выполнения, а оператор Resume Next возвращает в следующую строку за строкой с ошибкой.

Процедура с обработчиком ошибок может выглядеть следующим образом:

Sub Error_Test()

Dim E As Single

On Error GoTo ErrLabel

'Включает обработку ошибок

For i = 4 То 0 Step -1

Е = 2 / I

'Вызывает деление на нуль

Next

Exit Sub

ErrLabel: 'Метка

Select Case Err.Number 'Проверка ошибки

Case 11 'Деление на нуль

i = -1

Err.Clear

Resume 'Возврат

Case Else

MsgBox (Err.Description)

Stop

End Select

End Sub

Свойство Description объекта Err возвращает текст системного описания ошибки. Это можно использовать для вывода текста сообщения об ошибке в обработчике ошибок, поскольку системный вывод сообщения об ошибке при использовании обработчика ошибок не производится.

Кроме встроенных типов данных, таких как Integer, Long и т.п., VB поддерживает также типы данных, определяемые пользователем. Они могут быть созданы как на основе стандартных типов данных, так и на основе ранее определенных пользователем типов данных.

Для определения пользовательского типа данных используется ключевое слово Type:

[ Private / Public ] Type Имя_типа

ИмяЭлемента1 [([Размерность])] As Тип

[ИмяЭлемента2 [([Размерность])] As Тип]

Определив собственный тип данных, вы можете использовать его для объявления переменных этого типа. Эти переменные могут быть локальными, глобальными или переменными контейнера (подробнее):

Пример

Type Товар

Название As String

Цена As Currency

Код As String

End Type

Dim Инструмент As Товар

.

.

.

Инструмент.Название = "Отвертка"

Инструмент.Цена =120

.

.

.

В этом примере определяется тип данных Товар. Затем объявляется переменная Инструмент типа Товар, и устанавливаются конкретные значения составляющих этой переменной.

Доступ к элементам переменной пользовательского типа осу­ществляется, по аналогии с доступом к свойствам, путем указания точки после имени переменной. При этом переменные одинакового типа можно присваивать не поэлементно, а напрямую:

Type Субъект

Фамилия As String

ТабельныйНомер As Integer

End Type

Читатель As Субъект, Пользователь As Субъект

Private Sub Commandl_Click()

Пользователь.Фамилия = "Иванов И.И."

Пользователь.ТабельныйНомер = 218739

Читатель = Пользователь

End Sub

Переменные Читатель и Пользовательотносятся к одному типу Субъект.Поэтому они присваиваться напрямую, а не поэлементно.

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

Type Персона

Имя As String

Фамилия As String

End Type

Type Клиент

Идентификатор As Персона

ДеньРождения As Date

End Type

Dim Покупатель As Клиент

Private Sub Command1_Click()

Покупатель.Идентификатор.Имя = "Иван"

Покупатель.Идентификатор.Фамилия = "Петров"

End Sub

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

Дата добавления: 2014-12-07