无法将自定义类添加到数组

Question

我有一个名为 PLAYER 的自定义类，它具有以下属性以及关联的 getter 和 setter 以及默认 init。

Private aName As String
Private aAge As Integer
Private aID As String
Private aScore As Integer

我现在尝试在主程序中创建一个数组，如下所示：

    Dim Players As Range
    Set Players = Range("PLAYERS")

    Dim PlayerRows As Integer, PlayerCols As Integer, count As Integer

    PlayerRows = Players.Rows.count

    Dim allPlayers() As PLAYER
    ReDim allPlayers(5)

    Dim temp As New PLAYER
    temp.name = Players.Cells(count + 1, 1)
    temp.age = Players.Cells(count + 1, 2)
    temp.ID = Players.Cells(count + 1, 3)
    temp.score = Players.Cells(count + 1, 4)

    allPlayers(0) = temp

但是当我尝试将新对象添加到 PLAYER 对象数组时，我得到一个运行时错误 91 '对象变量或未设置块变量'。

我如何设置这个数组错误？我正在尝试为 PLAYER 类创建一个数组。

Answer 1

处理必须使用“Set”关键字的对象：

Set allPlayers(0) = temp