如何设置一个数组值的VB.NET列表？ [英] How to set an array to a list of values in VB.NET?

问题描述

我无法弄清楚如何设置阵列的两组数字中的一个（将有更多更高版本），每一个我都试过的方式抛出了某种错误。我试图淡化case语句里面的数组，但我不能用在为每个阵列，这使得这个毫无价值....任何想法将AP preciated。

code：

 暗淡HourArray（）作为整数选择案例CurrentShapeRow（ROW_PERIOD）
    案开，2X16
        HourArray = {6，7，8，9，10，11，12，13，14，15，16，17，18，19，20，21}
    案2X8，5X8
        HourArray = {0，1，2，3，4，5，22，23}
    否则案例
        抛出新的异常（的String.Format（未处理的时期：{0}，CurrentShapeRow（ROW_PERIOD）））
结束选择
对于每个HourCount作为整数HourArray（）
     做一些东西在这里
下一个
 

解决方案

 昏暗hourArray方式列表（整数）    选择案例CurrentShapeRow（ROW_PERIOD）
        案开，2X16
            hourArray.AddRange（新泽西整型（）{6，7，8，9，10，11，12，13，14，15，16，17，18，19，20，21}）
        案2X8，5X8
            hourArray.AddRange（新泽西整型（）{0，1，2，3，4，5，22，23}）
        否则案例
            抛出新的异常（的String.Format（未处理的时期：{0}，CurrentShapeRow（ROW_PERIOD）））
    结束选择每个I作为整数hourArray
    Console.WriteLine（ⅰ）
下一个
 

I cannot figure out how to set an array to one of two sets of numbers (there will be more later), every way that I have tried throws some kind of error. I have tried to Dim the array inside the case statements, but then I cannot use the array in the For Each, which makes this worthless.... any ideas would be appreciated.

Code:

Dim HourArray() As Integer

Select Case CurrentShapeRow(ROW_PERIOD)
    Case "ON", "2X16"
        HourArray = {6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21}
    Case "2X8", "5X8"
        HourArray = {0, 1, 2, 3, 4, 5, 22, 23}
    Case Else
        Throw New Exception(String.Format("Unhandled Period: {0}", CurrentShapeRow(ROW_PERIOD)))
End Select


For Each HourCount As Integer In HourArray()
     'DO SOME STUFF HERE
Next

解决方案

    Dim hourArray As List(Of Integer)

    Select Case CurrentShapeRow(ROW_PERIOD)
        Case "ON", "2X16"
            hourArray.AddRange(New Integer() {6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21})
        Case "2X8", "5X8"
            hourArray.AddRange(New Integer() {0, 1, 2, 3, 4, 5, 22, 23})
        Case Else
            Throw New Exception(String.Format("Unhandled Period: {0}", CurrentShapeRow(ROW_PERIOD)))
    End Select

For Each i As Integer In hourArray
    Console.WriteLine(i)
Next

这篇关于如何设置一个数组值的VB.NET列表？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！