Visual Basic 6. Руководство разработчика


Реализация семейства


Для реализации общедоступного семейства в разрабатываемом компоненте, в объекте Collection надо создать следующие свойства и методы.

• Метод Add. Добавляет новый элемент в семейство.

•  Метод Remove. Удаляет элемент из семейства.

•  Метод Clear. Удаляет все элементы из семейства.

•  Свойство Count. Возвращает количество элементов в семействе.

•  Свойство Item. Возвращает заданный элемент семейства.

Чтобы сделать это, вставьте следующее объявление семейства в окне Code модуля класса.

Dim DataCollection As New Collection

Data Collection —

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

Программа 15.7. Свойство Count переменной DataCollection

Public Property Get Count() As Long

Count = DataCollection.Count

End Property

Метод Add — это общедоступная функция, которая возвращает значение True, если ее аргументы успешно добавлены в семейство Если при выполнении возни кают ошибки, то метод возвращает False.

Программа 15.8. Метод Add переменной DataCollection

Public Function Add(dValue As Double) As Boolean

On Error GoTo AddError

DataCollection.Add dValue

Add = True

Exit Function

AddError:

Add = False

End Function

Метод Remove — также функция, возвращающая результат типа Boolean. Функция возвращает True, если указанный элемент успешно удален из списка. Кроме того, она генерирует прерывание ошибок выполнения, которое главное приложение может обработать с помощью оператора On Error. Заметьте, что оператор Err.Raise в программном коде 15.9 инициирует ошибку выполнения с номером и ее описанием (обязательно надо добавить константу vbObjectError, чтобы избежать конфликтов со стандартным сообщением об ошибке). Поскольку прило­жение использует класс — он будет получать стандартную ошибку Visual Basic. Заметьте, что Visual Basic может инициировать свою собственную ошибку 1. Но ошибка 1 существует только для нашего класса, вот почему была добавлена константа vbObjectError.




Начало  Назад  Вперед



Книжный магазин