Hi,
Please refer below code.
C#
int A = 0;
int B = 0;
public System.Windows.Forms.TextBox AddNewTextBox()
{
System.Windows.Forms.TextBox text = new System.Windows.Forms.TextBox();
text.Name = "txt" + B;
this.Controls.Add(text);
textAdded.Insert(B, text);
text.Top = B * 35;
text.Left = 150;
B = B + 1;
return text;
}
List<TextBox> textAdded = new List<TextBox>();
public System.Windows.Forms.Button AddNewButton()
{
System.Windows.Forms.Button button = new System.Windows.Forms.Button();
button.Name = "btn" + A;
button.Click += new EventHandler(DeleteButton);
this.Controls.Add(button);
button.Top = A * 35;
button.Left = 255;
button.Text = " Delete";
A = A + 1;
return button;
}
private void button1_Click(object sender, EventArgs e)
{
AddNewButton();
AddNewTextBox();
}
private void DeleteButton(object sender, EventArgs e)
{
Button btn = (sender as Button);
string name = btn.Name;
name = name.Replace("btn", "");
Control[] cntrls = this.Controls.Find("txt" + name, false);
TextBox txt = cntrls[0] as TextBox;
if (this.Controls.Contains(txt))
{
this.Controls.Remove(txt);
this.Controls.Remove(btn);
}
}
VB
Private A As Integer = 0
Private B As Integer = 0
Public Function AddNewTextBox() As System.Windows.Forms.TextBox
Dim text As New System.Windows.Forms.TextBox()
text.Name = "txt" + B
Me.Controls.Add(text)
textAdded.Insert(B, text)
text.Top = B * 35
text.Left = 150
B = B + 1
Return text
End Function
Private textAdded As New List(Of TextBox)()
Public Function AddNewButton() As System.Windows.Forms.Button
Dim button As New System.Windows.Forms.Button()
button.Name = "btn" + A
button.Click += New EventHandler(AddressOf DeleteButton)
Me.Controls.Add(button)
button.Top = A * 35
button.Left = 255
button.Text = " Delete"
A = A + 1
Return button
End Function
Private Sub button1_Click(sender As Object, e As EventArgs)
AddNewButton()
AddNewTextBox()
End Sub
Private Sub DeleteButton(sender As Object, e As EventArgs)
Dim btn As Button = TryCast(sender, Button)
Dim name As String = btn.Name
name = name.Replace("btn", "")
Dim cntrls As Control() = Me.Controls.Find(Convert.ToString("txt") & name, False)
Dim txt As TextBox = TryCast(cntrls(0), TextBox)
If Me.Controls.Contains(txt) Then
Me.Controls.Remove(txt)
Me.Controls.Remove(btn)
End If
End Sub
Screenshot
