- Код: Выделить всё
Listview1.Listitems.Add ....
а с другой стороны
- Код: Выделить всё
listview1.listitems(1).text
Т.е.
Listview1.Listitems без указания индекса возвращает Listitems, а с указанием, возвращает Listitem.
А как это реализовать на VB6?
Listview1.Listitems.Add ....
listview1.listitems(1).text
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
Listview1.Listitems(1).Text
Antonariy писал(а):Хмм... Действительно :?
Alexanbar, запусти addin Class Biulder Utility, он покажет как делать коллекции.
Alexanbar писал(а):Над тем способом, что указан, я думал. Но то, что Listitems - это коллекция Listitem, указано только словами. А так написано, что Listitems - это класс.
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 124