把多个标签的第二种形式

Question

嗨好日子，大家好我只想问，如果这是把多个标签在第二形式与文字使用一个按钮，第一个形成了良好的代码？在此先感谢并向所有人表示感谢。

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 

Dim lbl As Label = New Label  'Create your Label 
    'change the location..  
    lbl.Location = New Point(50, 50) 'Set Label Location 
    lbl.Text = TextBox1.Text   'Set Label Text 
    lbl.ForeColor = Color.Black  'Set Label ForeColor 
    frm2.Controls.Add(lbl)   'Add Label to it 

    Return 

    'change the location..  
    lbl.Location = New Point(10, 20) 'Set Label Location 
    lbl.Text = TextBox1.Text   'Set Label Text 
    lbl.ForeColor = Color.Black  'Set Label ForeColor 
    frm2.Controls.Add(lbl)   'Add Label to it 

    Return 

End Sub 

它只显示第一个标签，但它并不能表明我将输入...

窗口2码

Public Class Form2 
Public lbl As New Label 
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Me.Controls.Add(lbl) 

End Sub 

末级

问题解决的下一个标签。 。非常感谢Plutonix爵士和Steve的帮助，我非常感谢:)我接受了Plutonix的建议，使用多个文本框而不是一个文本框，并使用示例代码o ˚F史蒂夫在开始我的项目..再次感谢:)

Answer 1

你需要声明的是保持一个参考到你的窗体2全球一流水平的变量，那么当你点击按钮和全球一流水平的变量是什么（第一时间创建）创建Form2实例，添加标签，最重要的是添加一个事件处理程序，该程序将在frm2实例关闭时调用。然后展示形式并将其带到最前沿。
如果您的用户reclicks上的按钮，一个新的形式将不会被创建（FRM2是没有什么在这一点），相反，如果你的用户关闭FRM2事件处理程序将被调用，重置内部类级变量来没有。现在，如果你用户再次点击按钮的FRM2将重新

Private frm2 As Form2 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 

    if frm2 Is Nothing then 
     frm2 = new Form2 
     AddHandler frm2.FormClosed, AddressOf Me.Form2HasBeenClosed 

     Dim lbl As Label = New Label  
     lbl.Location = New Point(50, 50) 
     lbl.Text = "FirstLabelText" 
     lbl.ForeColor = Color.Black  

     frm2.Controls.Add(lbl)   

     Dim lbl2 = New Label 
     lbl2.Location = New Point(10, 20) 
     lbl2.Text = "TextForSecondLabel" 
     lbl2.ForeColor = Color.Black  
     frm2.Controls.Add(lbl2)   
    End if 

    frm2.Show() 
    frm2.BringToFront 
End Sub 

Sub Form2HasBeenClosed(sender As Object, e As FormClosedEventArgs) 
    frm2 = Nothing 
End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    if frm2 IsNot Nothing Then 
     frm2.Show(Me)   'Show Second Form 
    End If  
End Sub 

Answer 2

Private LabelCount As Integer = 0 

Private Sub Button3_Click(yada yada yada 

' I think this is actually fixing a nonexistant problem 
' stemming from misunderstanding the issue 
if frm2 Is Nothing then 
    frm2 = new Form2 
    AddHandler frm2.FormClosed, AddressOf Me.Form2HasBeenClosed 

    Dim lbl As Label = New Label 
    lbl.Text = TextBox1.Text 
    lbl.ForeColor = Color.Black 

    Select Case LabelCount 
     Case 0 
      lbl.Location = New Point(50, 50) 
     Case 1 
      lbl.Location = New Point(10, 20) 

     Case Else 
      ' not specified 
      Exit Sub 
    End Select 
    LabelCount +=1     ' dont forget this 
    frm2.Controls.Add(lbl) 

End if 

frm2.Show() 
frm2.BringToFront 
End Sub