Question

过去一小时我一直试图在我的牌组中初始化“一张”牌。一切正常，但是一旦我尝试将卡添加到我的套牌中，我就会收到“空引用异常”错误。我创建了一张价值为1和12（套装，价值）的卡片，并尝试将“卡片对象”添加到我的卡片列表中。当我在消息框中显示信息时会显示这些值，但我的列表将不会显示该信息。

      Public Class deck
          'create the fields
          Private newDeck As List(Of Card)

          'create properties
          Property newDeck_Property As List(Of Card)
            Get
                Return newDeck
            End Get
            Set(value As List(Of Card))
                newDeck = value
            End Set
         End Property


      Sub New()
            Dim cardvalueinfo As CardValue
            cardvalueinfo.cSuite = 1
            cardvalueinfo.cValue = 12
            Dim newCardinsert As New Card(cardvalueinfo)
            MessageBox.Show(newCardinsert.oneCard_Prop.cSuite)
            MessageBox.Show(newCardinsert.oneCard_Prop.cValue)
            newDeck_Property.Add(newCardinsert) <--------------- null error here
      End Sub

  End Class

我真的很感激有人指出我正确的方向。我是菜鸟

由于

Answer 1

在向其添加项目之前，您需要初始化newDeck_Property：

newDeck_Property = New List(Of Card)

或将初始化与支持字段的声明一起放置：

Private newDeck As New List(Of Card)

VB初始化构造函数时添加到列表中

1 个答案: