VB6 控件数组最简单的 .NET 等效项是什么？

Question

也许我只是对 .NET 还不够了解，但我还没有看到一种令人满意的方法来在 .NET 中轻松实现这个简单的 VB6 代码（假设这个代码在一个表单上，在数组 Command1() 和 N数组 Text1()) 中的文本框：

Private Sub Command1_Click(Index As Integer)

   Text1(Index).Text = Timer

End Sub

我知道这不是很有用的代码，但它展示了在 VB6 中可以轻松使用控件数组。 C# 或 VB.NET 中最简单的等价物是什么？

Answer 1

制作一个通用的文本框列表：

var textBoxes = new List<TextBox>();

// Create 10 textboxes in the collection
for (int i = 0; i < 10; i++)
{
    var textBox = new TextBox();
    textBox.Text = "Textbox " + i;
    textBoxes.Add(textBox);
}

// Loop through and set new values on textboxes in collection
for (int i = 0; i < textBoxes.Count; i++)
{
    textBoxes[i].Text = "New value " + i;
    // or like this
    var textBox = textBoxes[i];
    textBox.Text = "New val " + i;
}

Answer 2

VB .NET 所做的另一件好事是拥有一个处理多个控件的事件处理程序：

Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
        Handles TextBox1.TextChanged, _

        TextBox2.TextChanged, _

        TextBox3.TextChanged

End Sub

Answer 3

.Net 中没有真正的1 对 1 模拟。 当然，您可以创建特定类型的控件的数组或列表，但是没有什么可以自动为您完成这些操作。

但是，我从未见过无法在 .Net 中重构为更好的控件数组。 一个恰当的例子就是你的例子。 在您发布的场景中，您使用控件数组将按钮与文本框配对。 在 .Net 中，您可能会使用自定义控件来执行此操作。 自定义控件将由一个按钮、一个文本框和一个共享/静态计时器组成。 该表单使用此自定义控件的多个实例。 您实现控件所需的逻辑一次，并且它与自己的源文件隔离，可以在源控件中跟踪和编辑，无需与更大的表单类合并，或者轻松地在多个表单甚至多个项目中重用. 您也不必担心确保命令按钮索引与文本框索引匹配。

为此使用自定义控件而不是控件数组与使用类而不是数组对数据进行分组大致类似，因为您获得的是名称而不是索引。

Answer 4

有两个方面。

.NET 很容易支持控件数组，VB6 只需要使用一种解决方法，因为否则，连接事件真的很困难。 在 .NET 中，动态连接事件很容易。

但是，.NET 表单设计器不支持控件数组的原因很简单：控件数组是在运行时创建/扩展的。 如果您知道在编译时需要多少个控件（推理如此），那么您可以为它们指定不同的名称，并且不要将它们放入数组中。

我知道这不是很有用的代码

这正是重点。 如果一个功能没用，为什么要拥有它？

如果需要，您还可以按名称访问控件，结果如下：

Private Sub Command_Click(sender As Object, e As EventArgs) Handles Command1.Click, Command2.Click …
    Dim name As String = DirectCast(sender, Control).Name
    Dim index As Integer = Integer.Parse(name.Substring("Command".Length))
    Controls(String.Format("Text {0}", index)).Text = Timer.Value.ToString()
End Sub

Answer 5

VisualBasic .NET 的兼容性库包含强类型控件数组。 这是升级向导用来替换当前 VB6 控件数组的内容。

然而，VB6 中的控件数组只是一个对象的集合，VB6 在表面上做了一些语法魔术。 在 .NET 世界中，通过删除它，他们正在推动更好的实践。

最后，随着泛型的出现，没有什么能阻止你使用

List<YourControl> MyControlArray.

Answer 6

VB6 中控件数组的两个主要优点是：(1) 它们为您提供了一种遍历控件集合的方法 (2) 它们允许您在控件之间共享事件

(1) 可以在 .Net 中使用一组控件来完成 (2) 可以通过让一个事件处理多个控件来完成（语法有点不同，因为您使用的是sender参数而不是myArray(index) ）。

.Net 的一个好处是这些功能是解耦的。 因此，例如，您可以拥有共享事件的控件，即使它们不是数组的一部分并且具有不同的名称甚至不同的类型。 您可以遍历一组控件，即使它们具有完全不同的事件。

Answer 7

制作一组控件。

TextBox[] textboxes = new TextBox[] {
    textBox1,
    textBox2,
    textBox3
};

Answer 8

相同的点击事件可以处理来自 .Net 中多个按钮的按钮按下。 然后您可以添加要在 Tag 属性中查找的文本框吗？

Private Sub AllButton_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
  Dim c As Control = CType(sender, Control)
  Dim t As TextBox = FindControl(CType(c.Tag, String))
  If t Is Not Nothing Then
     t.Text = "Clicked"
  End If
End Sub

Answer 9

我知道我的回答已经很晚了，但我想我找到了解决方案。 我并不是唯一一个为 VS 的这种限制而苦苦挣扎的前 VB6 开发人员。 很久以前，我尝试迁移我设计的 CRM，但我失败了，因为我对控制阵列（一种形式的数百个）有很强的依赖性。 我阅读了很多论坛，我能够编写这个简单的代码：

VB.NET：

'To declare the List of controls
Private textBoxes As List(Of TextBox) = New List(Of TextBox)()

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
    'To get all controls in the form
    For Each control In Controls

        'To search for the specific type that you want to create the array 
        If control.[GetType]() = GetType(TextBox) Then
            textBoxes.Add(CType(control, TextBox))
        End If
    Next

    'To sort the labels by the ID
    textBoxes = textBoxes.OrderBy(Function(x) x.Name).ToList()
End Sub

C#：

//To declare the List of controls
private List<TextBox> textBoxes = new List<TextBox>();
private void Form1_Load(object sender, EventArgs e)
{
    //To get all controls in the form
    foreach (var control in Controls)
    {
        //To search for the specific type that you want to create the array 
        if (control.GetType() == typeof(TextBox))
        {
            //To add the control to the List
            textBoxes.Add((TextBox)control);
        }
    }

    //To sort the labels by the ID
    textBoxes = textBoxes.OrderBy(x => x.Name).ToList();
}

有3点需要考虑：

1. List将帮助您模拟大量控件。
2. typeof(Control)将帮助您定义要添加到列表中的控件的类型。
3. 当您将“索引”作为最后一个字符（textBox 1 , textBox 2 , ..., textBox N ）时，您可以创建一个逻辑顺序。

设计模式中的示例：

运行：

在我看来，类似的逻辑可能会用于其他技术，如 WPF、ASP.NET（Web 窗体）或 Xamarin（窗体）。 我希望这段代码将来能帮助到更多的程序员。