公共类

Question

我创建了2个单独的公共课程＆＃34; Sample＆＃34;和＆＃34;分析师＆＃34;每个都有自己的公共财产。 Class Analyte没问题，但我想在样本类中添加一个Analyte数组。

例如：样本有一个分析物数组。

我使用Analyte类创建一个Array，并使用excel表中的信息填充它。我最终得到了31位分析师。 （这里没问题： - ）

For i = 0 to TotalAnalytes Provar.PuPyAnalyt(I) = New Analyte(*,*,*,Properties,*,*,*) Next (I)

然后我想创建一个新的Samples数组。我遇到了公共类的问题，以及如何设置属性和构造函数。

Public Class Sample

Private mName As String 
Private mComponent(Provar.PupyAnalytnr) As Analyte
'und und und

Public Property Name As String
    Get
        Return mName
    End Get
    Set(ByVal Wert As String)
        mName = Wert
    End Set
End Property

Public Property Component(ByVal Index As Integer) As Analyte
    Get
        Return mComponent(Index)
    End Get
    Set(ByVal Wert As Analyte)
        mComponent(Index) = Wert
    End Set
End Property**

Sub New(ByVal aName As String, ByVal aComponent As Analyte)
    'Constructor
    Dim I As Short
    Me.Name = aName

    Me.Component(Provar.PupyAnalytnr) = New Analyte("", "", "", "", 0, 0, 0, 0)
    For I = 0 To Provar.PupyAnalytnr - 1
        Me.Component(I) = New Analyte("", "", "", "", 0, 0, 0, 0)
    Next

End Sub End Class

我试图理解它，但我感觉我现在在想它，也许做得太多甚至加倍......？

后来我尝试使用构造函数创建一个Sample Class Array。在这个阶段，我已经创建了Analyte Class数组（可以用作模板？），我可以提供构造函数来构建Sample Array ....？ 只是迷失了方向，不确定是否可以做到这一点，或者是否有更好的方法？

For I = 0 To SampleNr
        Provar.PuPySample(I) = New Sample("", Provar.PuPyAnalyt(I))
    Next (I)