項目不添加到列表中（T）

我爲Actor，位置和對象創建了幾個類。類位置：項目不添加到列表中（T）

Public Class AdvLocation 

Private m_Name As String 
Private m_NameAlias As String 
Private m_Description As String 
Private m_Dark As Byte '0=Dark, 
Private m_ExitN As String 
Private m_ExitNE As String 
Private m_ExitE As String 
Private m_ExitSE As String 
Private m_ExitS As String 
Private m_ExitSW As String 
Private m_ExitW As String 
Private m_ExitNW As String 
Private m_ExitUp As String 
Private m_ExitDown As String 
Private m_ExitIn As String 
Private m_ExitOut As String 
Private m_ExitNHidden As Boolean 
Private m_ExitNEHidden As Boolean 
Private m_ExitEHidden As Boolean 
Private m_ExitSEHidden As Boolean 
Private m_ExitSHidden As Boolean 
Private m_ExitSWHidden As Boolean 
Private m_ExitWHidden As Boolean 
Private m_ExitNWHidden As Boolean 
Private m_ExitUpHidden As Boolean 
Private m_ExitDownHidden As Boolean 
Private m_ExitInHidden As Boolean 
Private m_ExitOutHidden As Boolean 
Private m_ExitNLockObj As String 
Private m_ExitNELockObj As String 
Private m_ExitELockObj As String 
Private m_ExitSELockObj As String 
Private m_ExitSLockObj As String 
Private m_ExitSWLockObj As String 
Private m_ExitWLockObj As String 
Private m_ExitNWLockObj As String 
Private m_ExitUpLockObj As String 
Private m_ExitDownLockObj As String 
Private m_ExitInLockObj As String 
Private m_ExitOutLockObj As String 

Public Property Name As String 
    Get 
     Return m_Name 
    End Get 
    Set(value As String) 
     m_Name = value 
    End Set 
End Property 

Public Property NameAlias As String 
    Get 
     Return m_NameAlias 
    End Get 
    Set(value As String) 
     m_NameAlias = value 
    End Set 
End Property 

Public Property Description As String 
    Get 
     Return m_Description 
    End Get 
    Set(value As String) 
     m_Description = value 
    End Set 
End Property 

Public Property Dark As Boolean 
    Get 
     Return m_Dark 
    End Get 
    Set(value As Boolean) 
     m_Dark = value 
    End Set 
End Property 

Public Property ExitN As String 
    Get 
     Return m_ExitN 
    End Get 
    Set(value As String) 
     m_ExitN = value 
    End Set 
End Property 

Public Property ExitNE As String 
    Get 
     Return m_ExitNE 
    End Get 
    Set(value As String) 
     m_ExitNE = value 
    End Set 
End Property 

Public Property ExitE As String 
    Get 
     Return m_ExitE 
    End Get 
    Set(value As String) 
     m_ExitE = value 
    End Set 
End Property 

Public Property ExitSE As String 
    Get 
     Return m_ExitSE 
    End Get 
    Set(value As String) 
     m_ExitSE = value 
    End Set 
End Property 

Public Property ExitS As String 
    Get 
     Return m_ExitS 
    End Get 
    Set(value As String) 
     m_ExitS = value 
    End Set 
End Property 

Public Property ExitSW As String 
    Get 
     Return m_ExitSW 
    End Get 
    Set(value As String) 
     m_ExitSW = value 
    End Set 
End Property 

Public Property ExitW As String 
    Get 
     Return m_ExitW 
    End Get 
    Set(value As String) 
     m_ExitW = value 
    End Set 
End Property 

Public Property ExitNW As String 
    Get 
     Return m_ExitNW 
    End Get 
    Set(value As String) 
     m_ExitNW = value 
    End Set 
End Property 

Public Property ExitUp As String 
    Get 
     Return m_ExitUp 
    End Get 
    Set(value As String) 
     m_ExitUp = value 
    End Set 
End Property 

Public Property ExitDown As String 
    Get 
     Return m_ExitDown 
    End Get 
    Set(value As String) 
     m_ExitDown = value 
    End Set 
End Property 

Public Property ExitIn As String 
    Get 
     Return m_ExitIn 
    End Get 
    Set(value As String) 
     m_ExitIn = value 
    End Set 
End Property 

Public Property ExitOut As String 
    Get 
     Return m_ExitOut 
    End Get 
    Set(value As String) 
     m_ExitOut = value 
    End Set 
End Property 

Public Property ExitNHidden As Boolean 
    Get 
     Return m_ExitNHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitNHidden = value 
    End Set 
End Property 

Public Property ExitNEHidden As Boolean 
    Get 
     Return m_ExitNEHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitNEHidden = value 
    End Set 
End Property 

Public Property ExitEHidden As Boolean 
    Get 
     Return m_ExitEHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitE = value 
    End Set 
End Property 

Public Property ExitSEHidden As Boolean 
    Get 
     Return m_ExitSEHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitSE = value 
    End Set 
End Property 

Public Property ExitSHidden As Boolean 
    Get 
     Return m_ExitSHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitSHidden = value 
    End Set 
End Property 

Public Property ExitSWHidden As Boolean 
    Get 
     Return m_ExitSWHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitSWHidden = value 
    End Set 
End Property 

Public Property ExitWHidden As Boolean 
    Get 
     Return m_ExitWHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitWHidden = value 
    End Set 
End Property 

Public Property ExitNWHidden As Boolean 
    Get 
     Return m_ExitNWHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitNWHidden = value 
    End Set 
End Property 

Public Property ExitUpHidden As Boolean 
    Get 
     Return m_ExitUpHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitUpHidden = value 
    End Set 
End Property 

Public Property ExitDownHidden As Boolean 
    Get 
     Return m_ExitDownHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitDownHidden = value 
    End Set 
End Property 

Public Property ExitInHidden As Boolean 
    Get 
     Return m_ExitInHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitInHidden = value 
    End Set 
End Property 

Public Property ExitOutHidden As Boolean 
    Get 
     Return m_ExitOutHidden 
    End Get 
    Set(value As Boolean) 
     m_ExitOutHidden = value 
    End Set 
End Property 

Public Property ExitNLockObj As String 
    Get 
     Return m_ExitNLockObj 
    End Get 
    Set(value As String) 
     m_ExitNLockObj = value 
    End Set 
End Property 

Public Property ExitNELockObj As String 
    Get 
     Return m_ExitNELockObj 
    End Get 
    Set(value As String) 
     m_ExitNELockObj = value 
    End Set 
End Property 

Public Property ExitELockObj As String 
    Get 
     Return m_ExitELockObj 
    End Get 
    Set(value As String) 
     m_ExitELockObj = value 
    End Set 
End Property 

Public Property ExitSELockObj As String 
    Get 
     Return m_ExitSELockObj 
    End Get 
    Set(value As String) 
     m_ExitSELockObj = value 
    End Set 
End Property 

Public Property ExitSLockObj As String 
    Get 
     Return m_ExitSLockObj 
    End Get 
    Set(value As String) 
     m_ExitSLockObj = value 
    End Set 
End Property 

Public Property ExitSWLockObj As String 
    Get 
     Return m_ExitSWLockObj 
    End Get 
    Set(value As String) 
     m_ExitSWLockObj = value 
    End Set 
End Property 

Public Property ExitWLockObj As String 
    Get 
     Return m_ExitWLockObj 
    End Get 
    Set(value As String) 
     m_ExitWLockObj = value 
    End Set 
End Property 
Public Property ExitNWLockObj As String 
    Get 
     Return m_ExitNWLockObj 
    End Get 
    Set(value As String) 
     m_ExitNWLockObj = value 
    End Set 
End Property 

Public Property ExitUpLockObj As String 
    Get 
     Return m_ExitUpLockObj 
    End Get 
    Set(value As String) 
     m_ExitUpLockObj = value 
    End Set 
End Property 

Public Property ExitDownLockObj As String 
    Get 
     Return m_ExitDownLockObj 
    End Get 
    Set(value As String) 
     m_ExitDownLockObj = value 
    End Set 
End Property 

Public Property ExitInLockObj As String 
    Get 
     Return m_ExitInLockObj 
    End Get 
    Set(value As String) 
     m_ExitInLockObj = value 
    End Set 
End Property 

Public Property ExitOutLockObj As String 
    Get 
     Return m_ExitOutLockObj 
    End Get 
    Set(value As String) 
     m_ExitOutLockObj = value 
    End Set 
End Property 

Public Sub New(ByVal m_Name As String, 
       ByVal m_NameAlias As String, 
       ByVal m_Description As String, 
       ByVal m_Dark As Boolean, 
       ByVal m_ExitN As String, 
       ByVal m_ExitNE As String, 
       ByVal m_ExitE As String, 
       ByVal m_ExitSE As String, 
       ByVal m_ExitS As String, 
       ByVal m_ExitSW As String, 
       ByVal m_ExitW As String, 
       ByVal m_ExitNW As String, 
       ByVal m_ExitUp As String, 
       ByVal m_ExitDown As String, 
       ByVal m_ExitIn As String, 
       ByVal m_ExitOut As String, 
       ByVal m_ExitNHidden As Boolean, 
       ByVal m_ExitNEHidden As Boolean, 
       ByVal m_ExitEHidden As Boolean, 
       ByVal m_ExitSEHidden As Boolean, 
       ByVal m_ExitSHidden As Boolean, 
       ByVal m_ExitSWHidden As Boolean, 
       ByVal m_ExitWHidden As Boolean, 
       ByVal m_ExitNWHidden As Boolean, 
       ByVal m_ExitUpHidden As Boolean, 
       ByVal m_ExitDownHidden As Boolean, 
       ByVal m_ExitInHidden As Boolean, 
       ByVal m_ExitOutHidden As Boolean, 
       ByVal m_ExitNLockObj As String, 
       ByVal m_ExitNELockObj As String, 
       ByVal m_ExitELockObj As String, 
       ByVal m_ExitSELockObj As String, 
       ByVal m_ExitSLockObj As String, 
       ByVal m_ExitSWLockObj As String, 
       ByVal m_ExitWLockObj As String, 
       ByVal m_ExitNWLockObj As String, 
       ByVal m_ExitUpLockObj As String, 
       ByVal m_ExitDownLockObj As String, 
       ByVal m_ExitInLockObj As String, 
       ByVal m_ExitOutLockObj As String) 
    Name = m_Name 
    NameAlias = m_NameAlias 
    Description = m_Description 
    Dark = m_Dark 
    ExitN = m_ExitN 
    ExitNE = m_ExitNE 
    ExitE = m_ExitE 
    ExitSE = m_ExitSE 
    ExitS = m_ExitS 
    ExitSW = m_ExitSW 
    ExitW = m_ExitW 
    ExitNW = m_ExitNW 
    ExitUp = m_ExitUp 
    ExitDown = m_ExitDown 
    ExitIn = m_ExitIn 
    ExitOut = m_ExitOut 
    ExitNHidden = m_ExitNHidden 
    ExitNEHidden = m_ExitNEHidden 
    ExitEHidden = m_ExitEHidden 
    ExitSEHidden = m_ExitSEHidden 
    ExitSHidden = m_ExitSHidden 
    ExitSWHidden = m_ExitSWHidden 
    ExitWHidden = m_ExitWHidden 
    ExitNWHidden = m_ExitNWHidden 
    ExitUpHidden = m_ExitUpHidden 
    ExitDownHidden = m_ExitDownHidden 
    ExitInHidden = m_ExitInHidden 
    ExitOutHidden = m_ExitOutHidden 
    ExitNLockObj = m_ExitNLockObj 
    ExitNELockObj = m_ExitNELockObj 
    ExitELockObj = m_ExitELockObj 
    ExitSELockObj = m_ExitSELockObj 
    ExitSLockObj = m_ExitSLockObj 
    ExitSWLockObj = m_ExitSWLockObj 
    ExitWLockObj = m_ExitWLockObj 
    ExitNWLockObj = m_ExitNWLockObj 

End Sub 

End Class

在主表格的列表（T）中聲明瞭：

Public Class frmMain 

'Declare variables and lists 
Public Shared lngScore As Long = 0 
Public Shared MaxScore = 100 
Public Shared strScreen As String = "" 
Public Shared blnSave As Boolean = True 
Public Shared strCurLocation As String 
Public Shared Locations As New List(Of AdvLocation) 
Public Shared Actors As New List(Of AdvActor) 
Public Shared Objs As New List(Of AdvObject)

在子InitLoc位置將被添加到列表中：

'Locations 
Public Sub InitLoc() 

    Locations.Add(New AdvLocation("doorstep1", "Cindy's house", "You are in front of your girlfriends house.", False, _ 
         "hallway1", "", "", "", "", "", "", "", "", "", "", "", _ 
         False, False, False, False, False, False, False, False, False, False, False, False, _ 
         "", "", "", "", "", "", "", "", "", "", "", "")) 
    Locations.Add(New AdvLocation("hallway1", "Hallway", "You are standing in the hallway.", False, _ 
         "", "", "", "", "", "", "", "", "", "", "", "", _ 
         False, False, False, False, "doorstep1", False, False, False, False, False, False, False, _ 
         "", "", "", "", "", "", "", "", "", "", "", "")) 

End Sub

問題出現了：第一個位置應該添加到列表中，但第二個位置不會被添加，也不會覆蓋第一個位置。我也沒有得到任何錯誤，要麼不執行第二個添加，要麼會生成一個不顯示的錯誤。

代碼應該是正確的，但也許不是。要完整，還沒有錯誤陷阱。我希望有人能幫助我。

來源

2017-03-25 Rene Frijhoff

幾年來，VB已經有了自動實現的屬性。它會顯着減少所有樣板代碼。 – Plutonix

我在運行時得到一個錯誤，其中doorstop1不是第二個布爾值。 – Reisclef

我只是改變了它，現在它的工作，奇怪的事情，雖然我沒有得到任何錯誤。 –