Класс, подобный Listitems

[Alexanbar]

С одной стороны,

Код: Выделить всё

Listview1.Listitems.Add ....


а с другой стороны

Код: Выделить всё

listview1.listitems(1).text

Т.е.

Listview1.Listitems без указания индекса возвращает Listitems, а с указанием, возвращает Listitem.

А как это реализовать на VB6?

[Antonariy]

Код: Выделить всё

Dim lCol as Collection

Public Property Get ListItems(Optional Index As Integer) As Object
    If Index = 0 Then
        Set ListItems = lCol
    Else
        Set ListItems = lCol(Index)
    End If
End Property

[alibek]

Э...
А...

Кхм...

Вообщем, ListItems -- это коллекция, содержащая ListItem. В этой коллекции есть мембер Item (с аргументом Index), возвращающий ListItem, причем это мембер по умолчанию.
Т.е. если ты обращаешься к свойствам коллекции ListItems без указания имени свойства, то ты будешь обращаться к свойству Item.

Поэтому когда ты пишешь ListItems.Add, это означает "обратится к методу Add объекта ListItems". А когда ты пишешь ListItems(1).Text, это равносильно ListItems.Item(1).Text и означает "обратится к свойству Item объекта ListItems".

[Antonariy]

Хмм... Действительно
Alexanbar, запусти addin Class Biulder Utility, он покажет как делать коллекции.

[Alexanbar]

Над тем способом, что указан, я думал. Но то, что Listitems - это коллекция Listitem, указано только словами. А так написано, что Listitems - это класс.
К тому же подсказка

Код: Выделить всё

Listview1.Listitems(1).Text

не выдаётся .

[tyomitch]

Ещё раз: Listview1.Listitems никогда не получает параметра и всегда возвращает класс Listitems.

[Alexanbar]

Вроде появился свет в конце тоннеля:

Хмм... Действительно :?
Alexanbar, запусти addin Class Biulder Utility, он покажет как делать коллекции.

[alibek]

Над тем способом, что указан, я думал. Но то, что Listitems - это коллекция Listitem, указано только словами. А так написано, что Listitems - это класс.

Коллекция -- это тоже класс.

[Alexanbar]

Вроде разобрался. Надо в классе Listitems создать свойство Item и установить "По умолчанию" (Инструменты->Атрибуты процедур->кнопка Advanced)