将数据存储在数组中 - 然后迭代该数组

Question

我有一个未修复的项目列表。它可以在 3 到 8 之间变化。我想要做的是循环找出我有多少项目 - 然后将这些项目存储在一个数组中，以便它们以相反的顺序排列并隐藏它们。然后我想回到那个数组并显示它们。

类似的东西。

For ix As Integer = Application.OpenForms.Count - 1 To 0 Step -1
    Dim frm = Application.OpenForms(ix)
    Dim arList() As String = {frm.Name}
    frm.Hide()
Next

所以就我而言，项目被保存在数组中，它不会给出任何错误，并且每次通过循环时，当我将鼠标悬停在 {frm.Name} 上时，它都会显示相应的项目

我怎样才能循环遍历这个数组，比如...

 for each ItemName as string in arList()
      if itemName <> "" then
         do something
      End if
 Next

Answer 1

代码存在一些基本问题：

For ix As Integer = Application.OpenForms.Count - 1 To 0 Step -1
    Dim frm = Application.OpenForms(ix)
    Dim arList() As String = {frm.Name}
    frm.Hide()
Next

Dim 使用 Scope 声明一个新变量，具体取决于它的声明位置。所以，

1. 您的代码正在为每个表单声明一个新的arList，替换之前的表单。
2. 它只能保存一个表单名称（遇到的最后一个）
3. 因为它被声明为 inside For/Each 块，它只会存在于那里。这称为Block 范围：导致代码缩进的所有内容都会创建一个新的Block Scope

避免使用数组，除非它们要保存一些静态数据集（例如Dim foo As String() = {"red", "green", "blue"}。列表更易于使用、更灵活且更强大。

' form level list variable
Private myFormNames As List(Of String)

当你想在其他地方使用它时：

myFormNames = New List(Of String)

For n As Int32 = Application.OpenForms.Count - 1 To 0 Step -1
    Dim frm = Application.OpenForms(n)
    ' add this name to the list
    myFormNames.Add(frm.Name)
    frm.Hide()
Next

我不确定这有什么价值，因为 OpenForms 集合中应该仍然包含表单，因为您所做的只是隐藏它：

For n As Int32 = 0 To Application.OpenForms.Count - 1
    Dim frm = Application.OpenForms(n)
    If myFormNames.Contains(frm.Name) Then
        ' do something
    End If
Next

还请注意，OpenForms 集合已知会“忘记”表单。如果它是关键任务，您可能需要自己跟踪它们。