Vb.net “打开许多”；表格2“；一声令下

我正在制作一个新的vb.net应用程序，用按钮打开许多“form2”表单“form1”

我的代码：

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For i As Integer = 1 To 5
            Form2.Show()
        Next
 End Sub

---

但是这段代码只显示了1个“form2”，我如何修复它？

通过使用您引用的默认实例的类名，一次只有一个默认实例。如果希望同时创建多个实例，则需要自己创建它们

For i As Integer = 1 To 5
    Dim f2 As New Form2

    f2.Show()
Next

您可能希望查看有关默认实例的主题以了解更多信息

顺便说一句，您也可以将该循环中的两行合并为一行，但请注意，您不能使用

New

关键字开始一行，因此这是

调用

关键字为数不多的几次有用的操作之一

For i As Integer = 1 To 5
    Call New Form2().Show()
Next

---

通过使用类名，您引用的是默认实例，并且一次只有一个默认实例。如果希望同时创建多个实例，则需要自己创建它们

For i As Integer = 1 To 5
    Dim f2 As New Form2

    f2.Show()
Next

您可能希望查看有关默认实例的主题以了解更多信息

顺便说一句，您也可以将该循环中的两行合并为一行，但请注意，您不能使用

New

关键字开始一行，因此这是

调用

关键字为数不多的几次有用的操作之一

For i As Integer = 1 To 5
    Call New Form2().Show()
Next

---

您需要创建新实例。例如：

For i As Integer = 1 To 5
        Dim frm As New Form2
        frm.Show()
Next

如果您需要访问这些实例，可以将它们保存在列表中

Dim forms As New List(Of Form)(5)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For i As Integer = 1 To forms.Capacity
        Dim frm As New frmBaleRevision
        forms.Add(frm)
        frm.Show()
    Next
End Sub

---

您需要创建新实例。例如：

For i As Integer = 1 To 5
        Dim frm As New Form2
        frm.Show()
Next

如果您需要访问这些实例，可以将它们保存在列表中

Dim forms As New List(Of Form)(5)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For i As Integer = 1 To forms.Capacity
        Dim frm As New frmBaleRevision
        forms.Add(frm)
        frm.Show()
    Next
End Sub

---

您可以使用此代码并更改每个表单的属性（在本例中，它将是表单的文本）：

---

您可以使用此代码并更改每个表单的属性（在本例中，它将是表单的文本）：