是否可以動態枚舉VB .NET中的所有數組？

Question

我有很多陣列在一個網絡模塊，我寫，隨着時間的推移，我會增加更多。我想動態枚舉所有數組來搜索和更新它們。這可能嗎？下面的代碼片段：

Private EMASCFee() As String = {0, 1, "12345679", "MASC Debt SetOff Fees"} 
Private EMSPen() As String = {2, 3, "987654312", "Medicare EMS Late Penalties"} 
Private Beach() As String = {4, 5, "110022233", "Beach Services"} 

Private allCodes() As Array 'Holds all Codes Arrays 

Private Sub addArrays()  
    'Adds all Codes String Arrays together into 1 Array *** Add NEW string arrays to the end of allCodes *** 
    allCodes = {EMASCFee, EMSPen, Beach} 
End Sub 

我想要做的是一樣的東西：

Private EMASCFee() As String = {0, 1, "12345679", "MASC Debt SetOff Fees"} 
Private EMSPen() As String = {2, 3, "987654312", "Medicare EMS Late Penalties"} 
Private Beach() As String = {4, 5, "110022233", "Beach Services"} 

Private allCodes() As Array 'Holds all Codes Arrays 

Private Sub addArrays()  
    For each myArray as Array in ModuleName 
     allCodes = {allCodes, myArray} 
    Next 
End Sub 

Answer 1

如果你真的想堅持到陣列，這裏是一個辦法做到這一點：

Module Codes 
    Private EMASCFee() As String = {0, 1, "12345679", "MASC Debt SetOff Fees"} 
    Private EMSPen() As String = {2, 3, "987654312", "Medicare EMS Late Penalties"} 
    Private Beach() As String = {4, 5, "110022233", "Beach Services"} 

    Public Function GetAllCodes() As String()() 
     Dim t = Type.GetType("WindowsApplication1.Codes") 'Change this to your project namespace 
     Dim members = t.GetFields(Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Static) 
     Dim result As New List(Of String()) 
     For Each m In members 
      If m.FieldType = GetType(String()) Then 
       result.Add(m.GetValue(Nothing)) 
      End If 
     Next 
     Return result.ToArray() 
    End Function 
End Module 

可是，我真的建議使用struct和泛型列表，而不是數組。整體概念將是相同的。