创建一个对象或属性的多个实例来存储属性值

Question

我不知道我正在尝试这样做的确切名称，因此忍受着我...基本上我试图创建一个对象，多个属性..每一个都是独一无二的。下面是我迄今为止..

Public Class TestingProperties 

    Private m_TestId As Integer 
    Public Property TestId() As Integer 
     Get 
      Return m_TestId 
     End Get 
     Set(ByVal value As Integer) 
      m_TestId = value 
     End Set 
    End Property 

    Private m_TestName As String 
    Public Property TestName() As String 
     Get 
      Return m_TestName 
     End Get 
     Set(ByVal value As String) 
      m_TestName = value 
     End Set 
    End Property 

End Class 

然后我下面将主要是什么是包含在以上为属性的每个对象......

Dim x As TestingProperties 
    x = New TestingProperties 
    x.TestName = "N/A" 
    x.TestName = "Name1" 
    x.TestName = "Name2" 
    x.TestId = "0" 
    x.TestId = "1" 
    x.TestId = "2" 

这显然行不通因为最后一个testId和最后一个TestName会覆盖对象属性中包含的所有内容。一旦我明白了这一点，数据将通过一个SQL存储过程来提供，但是格式应该仍然是类似的......这个壮举中的任何想法都是我早就应该学会的。

Answer 1

Dim x As New List(Of TestingProperties) 

    For i = 0 To 9 
     Dim newx As New TestingProperties 
     newx.TestId = i 
     newx.TestName = "Name " & i 
     x.add(newx) 
    Next 

现在你有10个独特的属性。你可能会访问它们，如：

Console.WriteLine(x(0).TestId)