Ошибка №424

[Draco]

При работе с Collection происходит ошибка с номером 424.
Если убрать всё не относящееся к данному вопросу, то получим следующий код:

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

Dim mCol As New Collection
Public Sub main()
    Dim temp As Integer
    mCol.Add t
    mCol.Item(1) = "yyy"
    'Возникает ошибка.
    MsgBox i.Item(1)
End Sub


Извечный русский вопрос: что делать?
P.S.:
Буду очень благодарен за ответ.

[A.A.Z.]

Item() - метод, ему нельзя присвоить свойство.
Используй код:

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

Sub Change(Col As Collection, Position As Long, Str As String)
Col.Remove Item
Col.Add Str, , Item
End Sub

Sub Main()
Dim mCol As New Collection
mCol.Add t
Change mCol, 1, "yyy"
MsgBox mCol.Item(1) 'yyy
End Sub


[Draco]

Данный код не будет работь по ряду причин, но благодарю за идею: свою ошибку я понял.
Вопрос следующий:
Нет ли способа проще

[GSerg]

Есть
Создай класс, весь код которого

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

public Value as string

Добавляй эти классы в коллекцию. И потом можно Item(n).Value=""

[Draco]

Данный вариант ответа приходил и мне в голову, я даже использовал его в одной проге. Хотел найти решение попроще , хотя данное решение вполне удовлетворяет моим требованиям .
P.S.:
Я нашёл другое (лучшее) решение проблемы вцелом (без использования колекции), но хотелось бы узнать простое решение задачи без "лишних" классов (если оно есть ).