vb.net - 动态创建文本框并将它们添加到 TabControl

Question

我正在使用以下代码在运行时创建文本框，并且运行良好：

  MarginTextbox.Name = "mid" & id
  MarginLabel.Name = "ML" & id
  MarginTextbox.Font = New System.Drawing.Font("Verdana", 10, Drawing.FontStyle.Regular)
  MarginLabel.Location = New Point(15, (80 + (counter * 24)))
  MarginTextbox.Location = New Point(110, (80 + (counter * 24)))
  MarginLabel.BackColor = Me.BackColor
  MarginTextbox.Size = New Size(56, 20)
  MarginLabel.Size = New Size(150, 20)
  MarginTextbox.AutoSize = False
  MarginLabel.Text = "Supplier " & id
  Controls.Add(MarginTextbox)
  Controls.Add(MarginLabel)

我不想将它们放在表单上，​​而是放在 TabControl 选项卡中。我怎样才能做到这一点？

Answer 1

一个 TabControl 包含一个或多个 TabPage。
TabPage 有一个 Controls 对象集合，可用于添加您的文本框。

所以（假设您添加了一个名为 tabControl1 的 TabControl）：

Dim tp as TabPage = tabControl1.TabPages(0) ' 0 is the index of the page required'
tp.Controls.Add(MarginTextbox)
tp.Controls.Add(MarginLabel)

Answer 2

不要将控件添加到您Form的 'sControls中，而是将其添加到您TabPage的 's中Controls：

Controls.Add(MarginTextbox)
Controls.Add(MarginLabel)
Me.TabPageWhatever.Controls.Add(MarginTextbox)
Me.TabPageWhatever.Controls.Add(MarginLabel)