從列表中刪除項目

Question

我的代碼應該從列表中刪除項目，但不刪除項目。

我的代碼：

dim myRoom as Room = New Room() 
Dim myRoomList as List(of Room) = new List(of Room) 

... 
myRoomList.add(myRoom) 
msgbox(myRoomList.count) 

... 
myRoomList.remove(myRoom) 
msgbox(myRoomList.count) 

Answer 1

你肯定是沒有刪除之前添加的項目，使得計不會再次增加。嘗試使用此爲測試...

dim myRoom as Room = New Room() 
Dim myRoomList as List(of Room) = new List(of Room) 

... 
myRoomList.add(myRoom) 
msgbox(myRoomList.count) 

... 
msgbox(myRoomList.count) 
myRoomList.remove(myRoom) 
msgbox(myRoomList.count) 

Answer 2

唯一可能的原因不去除該項目是當你已經重寫了Room類錯誤的Equals方法。例如，下面的代碼將表現出這種行爲：

Class Room 
    Public Overrides Function Equals(ByVal obj As Object) As Boolean 
     Return False 
    End Function 
End Class 

如果不是的話，那麼錯誤是其他地方你對我們的代碼是實際可行的。