0

ボタンをクリックしてlabelにを追加したい。form

ここでそのコードを使用すると、1 しか追加されませlabelんが、ボタンをクリックするたびに無制限に追加したいと考えています。label名前を変更しても1が追加されます。

みんなありがとう。

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   Dim lbl As New label
        lbl.Size = New System.Drawing.Size(159, 23) 'set your size
        lbl.Location = New System.Drawing.Point(12, 180) 'set your location
        lbl.Text = (TextBox1.Text) 'set your name
        Me.Controls.Add(lbl)  'add your new control to your forms control collection

 End Sub
4

3 に答える 3

0

@jlvaquero が正しく指摘したように、ラベルが重なっています。この理由は、これらのラベルがフォームに追加されているポイントを変更していないためです。

1 つの解決策は、ポイントを調整できるフィールド変数を用意することです。

  Private x As Integer = 12
  Private y As Integer = 180

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)     Handles Button1.Click
    Dim lbl As New label
    lbl.Size = New System.Drawing.Size(159, 23) 'set your size
    lbl.Location = New System.Drawing.Point(x, y) 'set your location
    lbl.Text = (TextBox1.Text) 'set your name
    Me.Controls.Add(lbl)  'add your new control to your forms control collection
    x += 10 'arbitrary value, you could adjust y, too
End Sub
于 2013-10-11T11:45:53.007 に答える