根据名称和循环填充多个组合框，VB.Net

Question

我目前正在vb.net在Visual Studio Express 2013中工作。 我有5个组合框，所有组合框都需要添加相同的项目。 组合框的名称为CBWeekday1，Cbweekday2，.... CBweekday5。 我想使用循环语句用相同的数据填充框，而不是必须为每个组合框的每个项目使用一行。 但是，我收到错误代码，并且我认为此设置有误。

   Dim n As Integer = 1
    For n = 1 To 5
        Dim cb = DirectCast(Me.Controls("CBWeekday" & n &), ComboBox)
        ComboBox.Items.add("Monday")
        ComboBox.Items.add("Tuesday")
        ComboBox.Items.add("Wednesday")
        ComboBox.Items.add("Thursday")
        ComboBox.Items.add("Friday")
    Next

Answer 1

正确的代码是这样的：

    Dim n As Integer = 1
    For n = 1 To 5
        Dim cb = DirectCast(Me.Controls("CBWeekday" & n), ComboBox)
        cb.Items.Add("Monday")
        cb.Items.Add("Tuesday")
        cb.Items.Add("Wednesday")
        cb.Items.Add("Thursday")
        cb.Items.Add("Friday")
    Next

Answer 2

对于简单的对象，这更有效：

Private weekdays As String() = {"Monday", "Tuesday", "Wednesday", 
                               "Thursday", "Friday"}
...
' if you know the name of the control. use it:
cbWeekday.Items.AddRange(weekdays)

---

对于五个 CBO（我一开始错过了那部分）：

' module level declaration
Private DayNames As String() = {"Monday", "Tuesday", "Wednesday",
                               "Thursday", "Friday"}
Private weekdays As List(Of String)

Private Sub Form_Load(...
    Dim cboWkDays As ComboBox() = {cbWkDay1, cbWkDay2}

    weekdays = New List(of String)(DayNames)
    For Each cbo As ComboBox In cboWkDays
        cbo.DataSource = weekdays
    Next

就个人而言，我可以不用cboWkDays数组，而直接直接设置它们（但标题要求循环）。 其中5个的效率是只有一天的日期副本。 而不是将它们复制到Items而是使用List(of String)作为数据源。

如果您想与文化无关，请获取如下日期名称：

    Dim cult As CultureInfo = CultureInfo.CurrentCulture  

    weekdays = cult.DateTimeFormat.DayNames().ToList()
    weekdays.RemoveAt(6)      ' sat
    weekdays.RemoveAt(0)      ' sunday